Re: Cobol compiler date
"ScottC" <[email protected]>
| Newsgroups | gmane.comp.emulators.turnkey-mvs |
|---|---|
| Message-ID | <[email protected]> |
> --- In [email protected], "halfmeg" <opplr@> wrote: > > You might try: > > NAME IKFCBL01 IKFCBL01 > VER 0668 F1F9 > REP 0668 F2F0 > > and see if that is what you are looking for. That worked! Thanks Phil. If anyone needs JCL, here it is: ZAP JCL: //ZAPPLI JOB (SYS),'ZAP PL/I',CLASS=A,MSGCLASS=A //ZAP EXEC PGM=AMASPZAP //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=SYS2.LINKLIB,DISP=SHR //SYSIN DD * NAME IKFCBL01 IKFCBL01 VER 0668 F1F9 REP 0668 F2F0 // Sample Cobol Compile, Link and Go (courtesy of Jay Moseley's Site. Notice that I made ",CPARM1='LIST,LOAD,NODECK'" into a comment as this parm causes a JCL error in the vanilla TK3 implementation): //COBUCLG JOB (001),'COB HELLO WORLD', // CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) //HELOWRLD EXEC COBUCLG ,CPARM1='LIST,LOAD,NODECK' //COB.SYSIN DD * 001 IDENTIFICATION DIVISION. 002 PROGRAM-ID. 'HELLO'. 003 ENVIRONMENT DIVISION. 004 CONFIGURATION SECTION. 005 SOURCE-COMPUTER. IBM-360. 006 OBJECT-COMPUTER. IBM-360. 0065 SPECIAL-NAMES. 0066 CONSOLE IS CNSL. 007 DATA DIVISION. 008 WORKING-STORAGE SECTION. 009 77 HELLO-CONST PIC X(12) VALUE 'HELLO, WORLD'. 075 PROCEDURE DIVISION. 090 000-DISPLAY. 100 DISPLAY HELLO-CONST UPON CNSL. 110 STOP RUN. //LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR // DD DSNAME=SYS1.LINKLIB,DISP=SHR //GO.SYSPRINT DD SYSOUT=A //