CA Datacom/DB SQL Preprocessors › Sample JCL › Sample Assembler JCL › z/OS Assembler Sample JCL

z/OS Assembler Sample JCL

Note: Use the following as a guide to prepare your JCL. The JCL statements are for example only. Lowercase letters in a statement indicate a value you must supply. Code all statements to your site and installation standards.

 //jobname    See the note above and Listing Libraries for CA Datacom Products.
 //*-------------------------------------------------------
 //*  the following job stream illustrates this sequence:
 //*  preprocess, assemble, link, & execute
 //*-------------------------------------------------------
 //*
 //*-------------------------------------------------------
 //*  preprocess program
 //*-------------------------------------------------------
 //*
 //PREC EXEC PGM=DBPLIPR
 //STEPLIB    See the note above and Listing Libraries for CA Datacom Products.
 //SYSUDUMP DD SYSOUT=*
 //SYSPRINT DD SYSOUT=*
 //SYSOUT   DD SYSOUT=*
 //OPTIONS  DD *,DCB=BLKSIZE=80
 LANGUAGE=ASM
 ... place additional preprocessor options here ....
 /*
 //SOURCE DD DATA,DCB=BLKSIZE=80,DLM=##
 ... place source here ...
 ##
 //SRCOUT   DD DSN=&.&SRCPRE.,DISP=(MOD,PASS),UNIT=SYSDA,
 //           DCB=(LRECL=80,BLKSIZE=4000,RECFM=FB),
 //           SPACE=(80,(250,100))
 //REPORT   DD SYSOUT=*
 //INCLUDE  DD DSN=ca.user.include.library,DISP=SHR
 //*
 //*-------------------------------------------------------
 //*  assemble program
 //*-------------------------------------------------------

 //*
 //ASMURT  EXEC PGM=ASMA90,PARM='DECK,NOOBJECT,TERM'
 //SYSLIB    DD DSN=ca.user.system.library,DISP=SHR
 //SYSUT1    DD DSN=&.&SYSUT1.,UNIT=VIO,SPACE=(1700,(600,100))
 //SYSUT2    DD DSN=&.&SYSUT2.,UNIT=VIO,SPACE=(1700,(300,50))
 //SYSUT3    DD DSN=&.&SYSUT3.,UNIT=VIO,SPACE=(1700,(300,50))
 //SYSTERM   DD SYSOUT=*,DCB=BLKSIZE=1089
 //SYSPUNCH  DD DSN=&.&ASMPUNCH.,DISP=(NEW,PASS,DELETE),
 //             UNIT=VIO,SPACE=(3200,(15,15)),
 //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
 //SYSIN     DD DSN=&.&SRCPRE.,DISP=(OLD,PASS),UNIT=SYSDA,
 //           DCB=(LRECL=80,BLKSIZE=4000,RECFM=FB)
 //SYSPRINT  DD SYSOUT=*
 //*
 //*-------------------------------------------------------
 //*  assemble urt
 //*-------------------------------------------------------
 //*
 //ASMURT  EXEC PGM=ASMA90,PARM='DECK,NOOBJECT,TERM'
 //SYSLIB    DD DSN=ca.user.system.library,DISP=SHR
 //          DD DSN=ca.user.system.library,DISP=SHR
 //*         DD DSN=ca.user.system.library,DISP=SHR
 //SYSUT1    DD DSN=&.&SYSUT1.,UNIT=VIO,SPACE=(1700,(600,100))
 //SYSUT2    DD DSN=&.&SYSUT2.,UNIT=VIO,SPACE=(1700,(300,50))
 //SYSUT3    DD DSN=&.&SYSUT3.,UNIT=VIO,SPACE=(1700,(300,50))
 //SYSTERM   DD SYSOUT=*,DCB=BLKSIZE=1089
 //SYSPUNCH  DD DSN=&.&URTPUNCH.,DISP=(NEW,PASS,DELETE),
 //             UNIT=VIO,SPACE=(3200,(15,15)),
 //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
 //SYSIN DD *
 ... place urt source here ....
 ... urt is opened by CA-DATACOM/DB ...
 /*
 //SYSPRINT  DD SYSOUT=*
 //*
 //*-------------------------------------------------------
 //*  link program
 //*-------------------------------------------------------
 //*
 //LINK   EXEC  PGM=IEWL,REGION=512K,
 //       COND=(8,LT),PARM='XREF,LIST,MAP,NCAL,LET'
 //SYSPRINT DD SYSOUT=*
 //SYSLIN   DD DSN=&.&ASMPUNCH.,DISP=(OLD,DELETE)
 //         DD DSN=&.&URTPUNCH.,DISP=(OLD,DELETE)
 //         DD DDNAME=SYSIN
 //SYSLMOD  DD DSN=ca.user.loadlib,DISP=SHR
 //SYSUT1   DD UNIT=VIO,SPACE=(1024,(400,40))
 //LINK.SYSIN DD *
  ENTRY BEGIN
  NAME TESTASM(R)
 /*
 //*
 //*-------------------------------------------------------
 //*  exec program
 //*-------------------------------------------------------
 //*
 //ASMEXEC EXEC PGM=TESTASM,REGION=512K
 //STEPLIB    See note at start of this example and Listing Libraries for CA Datacom Products.
 //SYSUDUMP DD SYSOUT=*
 //SYSPRINT DD SYSOUT=*
 //SYSOUT   DD SYSOUT=*
 //SNAP     DD SYSOUT=*