Ideone.com | Online COBOL Compiler & Debugging Tool

Computer geeks!

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 10390 page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

13 days 10 hours ago view (lines: 15, size: 1187, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
include<stdio.h>
#include<stdlib.h>
#include<math.h>
int main(){                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
        int d_num=10;
        int     b_num=0,rem=0,i=0;
        while(d_num>0){
                rem = d_num %2;
                d_num = d_num/2;
 ...

13 days 10 hours ago view (lines: 12, size: 211, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
#include<stdio.h>
 #include<stdlib.h>
int add(int a,int b){
        return a+b;
}
 
int main(){
        int (*ptr)(int,int);
        ptr = add;
 ...

13 days 10 hours ago view (lines: 14, size: 158, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
#include<stdio.h>
 
int add(int a,int b){
        return a+b;
}
 
int main(){
        int (*ptr)(int,int);
        ptr = add;
 ...

13 days 11 hours ago view (lines: 14, size: 154, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<stdlib.h>
int add(int a,int b){
        return a+b;
}
 
main(){
        int (*ptr);
        ptr = add;
 ...

13 days 12 hours ago view (lines: 114, size: 9154, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.                                         00010000
       PROGRAM-ID. WC000461.                                            00020037
       ENVIRONMENT DIVISION.                                            00030000
       DATA DIVISION.                                                   00040000
       WORKING-STORAGE SECTION.                                         00050000
       COPY DFHAID.                                                     00060001
       COPY WC00465.                                                    00070030
      * COPY WC00463.                                                   00071036
      * COPY WC00462.                                                   00071136
 ...

14 days 16 hours ago view (lines: 82, size: 5309, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
                                                                         (*O/*_/
Cu  #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
CuG #%*                                                                  *+Ex=
CuG #%*------------------------------------------------------------------*+Ex=
CuG #%*   POLYGLOT - a program in eight languages      15 February 1991  *+Ex=
CuG #%*   10th Anniversary Edition                      1 December 2001  *+Ex=
CuG #%*                                                                  *+Ex=
CuG #%*   Written by Kevin Bungard, Peter Lisle, and Chris Tham          *+Ex=
CuG #%*                                                                  *+Ex=
 ...

14 days 19 hours ago view (lines: 17, size: 429, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 WS-DATE.
           05 DD PIC 9(2) VALUE 21.
 ...

15 days 13 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

15 days 14 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

15 days 16 hours ago view (lines: 48, size: 1245, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
               
IDENTIFICATION DIVISION.
PROGRAM-ID.  AcceptAndDisplay.
AUTHOR.  Michael Coughlan.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 StudentDetails.
   02  StudentId       PIC 9(7).
   02  StudentName.
 ...

15 days 19 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

16 days 8 hours ago view (lines: 44, size: 912, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. GC33ZKE.  
AUTHOR. GGGGEO2.
DATA DIVISION.  
WORKING-STORAGE SECTION. 
01 A1.  
02 E1 PIC X(1).
02 E2 PIC X(1). 
02 E3 PIC X(1).  
 ...

16 days 8 hours ago view (lines: 46, size: 936, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. GC33ZKE.  
AUTHOR. GGGGEO2.
DATA DIVISION.  
WORKING-STORAGE SECTION. 
01 A1.  
02 E1 PIC X(1).
02 E2 PIC X(1). 
02 E3 PIC X(1).  
 ...

16 days 8 hours ago view (lines: 14, size: 900, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

16 days 8 hours ago view (lines: 14, size: 913, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

16 days 8 hours ago view (lines: 14, size: 909, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

17 days 4 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

17 days 9 hours ago view (lines: 39, size: 2240, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
begin 644 
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

17 days 10 hours ago view (lines: 39, size: 2251, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

17 days 10 hours ago view (lines: 39, size: 2251, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

18 days 6 hours ago view (lines: 46, size: 922, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  
PROGRAM-ID. GC33ZKE.  
AUTHOR. GGGGEO2.
DATA DIVISION.  
WORKING-STORAGE SECTION. 
01 A1.  
02 E1 PIC X(1).
02 E2 PIC X(1). 
02 E3 PIC X(1).  
 ...

18 days 6 hours ago view (lines: 46, size: 931, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  
PROGRAM-ID. GC33ZKE.  
AUTHOR. GGGGEO2.
DATA DIVISION.  
WORKING-STORAGE SECTION. 
01 A1.  
02 E1 PIC X(1).
02 E2 PIC X(1). 
02 E3 PIC X(1).  
 ...

18 days 6 hours ago view (lines: 14, size: 909, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

18 days 9 hours ago view (lines: 14, size: 908, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE" TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

18 days 9 hours ago view (lines: 14, size: 909, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

18 days 9 hours ago view (lines: 14, size: 909, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

18 days 9 hours ago view (lines: 14, size: 900, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

18 days 9 hours ago view (lines: 15, size: 910, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

18 days 9 hours ago view (lines: 14, size: 909, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

18 days 9 hours ago view (lines: 14, size: 909, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

1 2 3 4 5 6 7 8 9	include<stdio.h> #include<stdlib.h> #include<math.h> int main(){ int d_num=10; int b_num=0,rem=0,i=0; while(d_num>0){ rem = d_num %2; d_num = d_num/2;
...

1 2 3 4 5 6 7 8 9	#include<stdio.h> #include<stdlib.h> int add(int a,int b){ return a+b; } int main(){ int (*ptr)(int,int); ptr = add;
...

1 2 3 4 5 6 7 8 9	#include<stdio.h> int add(int a,int b){ return a+b; } int main(){ int (*ptr)(int,int); ptr = add;
...

1 2 3 4 5 6 7 8 9	IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-DATE. 05 DD PIC 9(2) VALUE 21.
...

1 2 3 4 5 6 7 8	IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...

1 2 3 4 5 6 7 8 9	IDENTIFICATION DIVISION. PROGRAM-ID. AcceptAndDisplay. AUTHOR. Michael Coughlan. DATA DIVISION. WORKING-STORAGE SECTION. 01 StudentDetails. 02 StudentId PIC 9(7). 02 StudentName.
...

1 2 3 4 5 6 7 8 9	IDENTIFICATION DIVISION. PROGRAM-ID. GC33ZKE. AUTHOR. GGGGEO2. DATA DIVISION. WORKING-STORAGE SECTION. 01 A1. 02 E1 PIC X(1). 02 E2 PIC X(1). 02 E3 PIC X(1).
...

UsernamePassword

Username
Password