jclcomt

很多人编写了cobol程序后 却不知道怎么编写编译程序,呵呵,我给大家提供几个例子哦.

//FNSAP03A JOB (DEV),'TEST',NOTIFY=FNSAP03,                             00010003
//             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)                        00020000
//SEARCH   JCLLIB ORDER=(FNSAP03.REPORT.PGMLIB)                         00030003
//COMTEST EXEC PROC=COMTEST,                                            00040000
//            MEMBER='RPIND506',                                        00050004
//            SRCLIB='FNSAP03.REPORT.PGMLIB'                            00060003
//SYSPRINT DD SYSOUT=*                                                  00070001
//         IF ( COMTEST.COB.RC<5) THEN                                  00090002
//         IF ( COMTEST.LKED.RC<5 ) THEN                                00100002
//CPYBAT   EXEC PGM=IEBCOPY,PARM='SIZE=1M'                              00110001
//SYSPRINT DD SYSOUT=*                                                  00120001
//IN1      DD DISP=SHR,DSN=FNSAP03.REPORT.PGMLIB                        00130003
//OUT1     DD DISP=SHR,DSN=IFRFNS.FNETIBCH.COB                          00140001
//SYSIN    DD *                                                         00150001
  COPY I=IN1,O=OUT1                                                     00160001
     S MEMBER=((TEST,,R))                                               00170001
//*                                                                     00180001
//        ENDIF                                                         00190001
//        ENDIF                                                         00200001
//*                                                                     00220001