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
//
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.