17.00 - COBUCL: COBOL Compile and Link - IBM IMS Interface for Teradata

IBM IMS Interface for Teradata® Reference

prodname
IBM IMS Interface for Teradata
vrm_release
17.00
created_date
June 2020
category
Programming Reference
featnum
B035-2447-220K
//COBUCL PROC SYSOUT=’*’ 
//*   PROC FOR COBOL 
//COB    EXEC  PGM=IKFCBL00 
//STEPLIB  DD  DSN=SYS1.VSCOBLIB,DISP=SHR 
//SYSPRINT DD  SYSOUT=&SYSOUT 
//SYSUT1   DD  UNIT=VIO,SPACE=(CYL,(1,1)) 
//SYSUT2   DD  UNIT=VIO,SPACE=(CYL,(1,1)) 
//SYSUT3   DD  UNIT=VIO,SPACE=(CYL,(1,1)) 
//SYSUT4   DD  UNIT=VIO,SPACE=(CYL,(1,1)) 
//SYSLIN   DD  DSN=&&LOADSET,UNIT=VIO,DISP=(MOD,PASS), 
//             SPACE=(TRK,(3,3)),DCB=BLKSIZE=800 
//LKED   EXEC  PGM=IEWL,PARM=’LIST,MAP’,COND=(5,LT,COB) 
//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE) 
//         DD  DDNAME=SYSIN 
//SYSLMOD  DD  DSN=&&GOSET,DISP=(,PASS),UNIT=SYSDA, 
//             SPACE=(CYL,(1,1,1)) 
//SYSLIB   DD  DSN=SYS1.VSCLLIB,DISP=SHR 
//SYSUT1   DD  UNIT=VIO,SPACE=(CYL,(1,1)) 
//SYSPRINT DD  SYSOUT=&SYSOUT
PLIXCL:  PL/I  Compile and Link
//PLIXCL   PROC LKLBDSN=’PLI.PLIBASE’ 
//PLI      EXEC PGM=IEL0AA,PARM=’OBJECT,NODECK’,REGION=100K 
//STEPLIB  DD  DSN=PLI.PLICOMP,DISP=SHR 
//SYSPRINT DD  SYSOUT=* 
//SYSLIN   DD  DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=VIO, 
//             SPACE=(80,(250,100)) 
//SYSUT1   DD  DSN=&&SYSUT1,UNIT=VIO, 
//         SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024 
//LKED     EXEC PGM=IEWL,PARM=’XREF,LIST’,COND=(9,LT,PLI),
//         REGION=100K 
//SYSLIB   DD  DSN=&LKLBDSN,DISP=SHR 
//         DD  DSN=PLI.PLIBASE,DISP=SHR 
//SYSLMOD  DD  DSN=&&GOSET(GO),DISP=(MOD,PASS),UNIT=SYSDA, 
//             SPACE=(1024,(50,20,1)) 
//SYSUT1   DD  DSN=&&SYSUT1,UNIT=VIO, 
//         SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024 
//SYSPRINT DD  SYSOUT=* 
//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE) 
//         DD  DDNAME=SYSIN 
//SYSIN    DD  DUMMY