\***********************************************************************
\**                                                                   **
\** ANS COBOL'85 COMPILE & LIED & GO STEP           JOB CONTROL MACRO **
\**                                                                   **
\** ( FACOM OSIV/X8 FSP - JCME                                      ) **
\**                                                                   **
\***********************************************************************
\       JOB  COBOL85A,LIST=(A,JD)
\@COB   EX   COBOL,RSIZE=4096
\PARA   PARA APOST,
\PRGLIB FD   PRGLIB=DA,VOL=000001,FILE=SYS.COB85.LINKLIB
\U01    FD   U01=DA,VOL=WORK,CYL=(10,2,RLSE),DISP=CONT
\MLIB   FD   MLIB=DUMMY
\RLIB   FD   RLIB=DA,VOL=WORK,BLK=(1040*50),FCB=BLKSIZE=1040,DISP=CONT
\LIST   FD   LIST=DA,VOL=WORK,BLK=(255*900,500),SOUT=A
\SLIB   FD   SLIB=+
\@LIED  EX   LIED,RSIZE=2048
\PARA   PARA NAME=COBOL85
\ALIB   FD   ALIB=DA,VOL=000002,FILE=C.85ALIB
\CF     FD   CF=DUMMY
\RLIB   FD   RLIB=/,SW=RLIB
\ELIB   FD   ELIB=DA,VOL=WORK,BLK=(1024*50,20),DISP=CONT
\LIST   FD   LIST=DA,VOL=WORK,CYL=(1,1),SOUT=A
\@GO    EX   COBOL85,RSIZE=1024
\PRGLIB FD   PRGLIB=/,SW=ELIB
\LIST   FD   LIST=DA,VOL=WORK,CYL=(1,1),SOUT=A
\GO.U01 FD   U01=DA,VOL=WORK,BLK=(141*200,200),SOUT=A,LIMIT=10
\GO.U02 FD   U02=+
\       JEND