//**********************************************************************
//**                                                                  **
//** ANS COBOL'85 COMPILE & LIED & GO STEP          JOB CONTROL MACRO **
//**                                                                  **
//** ( FACOM OSIV/F4 MSP E20                                        ) **
//**                                                                  **
//**********************************************************************
//EDI10013      JOB  ED0755,CLASS=A,MSGCLASS=K,SPARM='LANG=J',          C
XX              REGION=768K
//EDI           EXEC COBUCLG=PARM.COB='FLOW,STATEMENT,SOU(1)'
XXCOB           EXEC PGM=JMN000,REGION=3000K
//COB.SYSPRINT  DD   SYSOUT=*
X/SYSPRINT      DD   SYSOUT=*
XXSYSPUNCH      DD   SYSOUT=*
XXSYSUT1        DD   DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(3000,2000))
XXSYSLIN        DD   DSNAME=&&LOADSET,UNIT=SYSDA,SPACE=(80,(500,100)),  C
XX                   DISP=(MOD,PASS),DCB=BLKSIZE=3120
//COB.SYSIN     DD   DSN=EDI113.JISSHU.COBOL(COBOL2),DISP=SHR
XXLKED          EXEC PGM=JQAL,PARM='LIST,XREF,LET',REGION=512K,         C
XX                   COND=(5,LT,COB)
XXSYSIN         DD   DSNAME=&&LOADSET,DISP=(OLD,DELETE)
XX              DD   DDNAME=SYSIN
XXSYSLMOD       DD   DSNAME=&&GOSET(GO),UNIT=SYSDA,                     C
XX                   SPACE=(1024,(50,20,1)),DISP=(NEW,PASS)
XXSYSLIB        DD   DSNAME=PP1.COBLIB85,DISP=SHR
XXSYSUT1        DD   UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),                 C
XX                   SPACE=(1024,(50,20))    
//LKED.SYSPRINT DD   DUMMY
X/SYSPRINT      DD   SYSOUT=*
XXGO            EXEC PGM=*.LKED.SYSLMOD,COND=((5,LT,COB),(5,LT,LKED))
//GO.URIAGE     DD   DSN=EDI000.COSKISC.URIAGE2,DISP=SHR
//GO.U04        DD   SYSOUT=*
//GO.SYSDBOUT   DD   SYSOUT=*
//