IBM COBOL SAMPLE PROGRAM
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help


EDIT  IBMMFS.MACC.COBOL(PGM001)                                                      Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001                ID DIVISION.
000002                PROGRAM-ID. PGM001.
000003                DATA DIVISION.
000004                WORKING-STORAGE SECTION.
000005                01 A PIC 9(09).
000006                PROCEDURE DIVISION.
000007                0001-MAIN.
000008                        ACCEPT A.
000009                        DISPLAY "OUTPUT IS: " A.
000010                        GO BACK.
000011                END PROGRAM PGM001.
****** **************************** Bottom of Data ************************************

Command ===>  SAVE                                                                                                   Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

                          IBM COBOL COMPILE JCL
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help


EDIT   IBMMFS.MACC.COBOL(JCL)                                                             Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //COMPJCL JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC IGYWCL,
000003 // PARM.COBOL='XREF,MAP,OFFSET'
000004 //COBOL.SYSIN DD DISP=SHR,DSN=IBMMFS.MACC.COBOL(PGM001)
000005 //LKED.SYSLMOD DD DISP=SHR,DSN=IBMMFS.MACC.LOAD(PGM001)
000006 //SYSPRINT DD SYSOUT=*
000007 //
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

                          IBM COBOL RUN JCL
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help


EDIT   IBMMFS.MACC.COBOL(RUN)                                                            Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //RUNJCL JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=PGM001
000003 //STEPLIB DD DISP=SHR,DSN=IBMMFS.MACC.LOAD
000004 //SYSPRINT DD SYSOUT=*
000005 //SYSIN DD *
000006 70
000007 /*
000008 //
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

                               SDSF OUTPUT SCREEN
EDIT    SYSPRINT                                                                                                 Columns 00001 - 00072
****** ***************************** Top of Data **************************************
             OUTPUT IS: 000000070
****** **************************** Bottom of Data ************************************

Command ===>                                                                                                              Scroll ===> PAGE
 

® IBMMAINFRAMES.com Training Division                                                              © www.ibmmainframes.com