Example JCL

Note: Users of z/OS can use either spaces or commas as parameter separators in the PARM= input parameter string in the JCL. In z/VSE environments, the SYSLST file must be assigned to a POWER-controlled print device, and parameter separators in the PARM= input parameter string must be spaces.

Following is an example PARM= input parameter string specification.

         PARM='PRTWIDTH=255,INPUTWIDTH=72,PAGELEN=56,TBLHDRRPT=56'

The PARM= input parameter string is limited by IBM to 100 bytes. Following is an example in which lines have been spanned. Be aware that the first line ends in column 71 and the second line starts in column 16.

         PARM='PRTWIDTH=255,INPUTWIDTH=72,ERRBORT=-56,OPTFILE=OP,ROWLI
               MIT=9'

Following is a z/OS JCL sample:

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.
 //             CLASS=K,MSGCLASS=X,REGION=1024K
 //SQLEXEC  EXEC PGM=DBSQLPR,...see Listing Libraries for CA Datacom Products
 //*
 //       PARM='prtWidth=999,inputWidth=80'
 //*
 //SYSUDUMP DD  SYSOUT=*
 //SYSPRINT DD  SYSOUT=*
 //STDERR   DD  SYSOUT=*
 //STDOUT   DD  SYSOUT=*
 //OPTIONS  DD  *
 AUTHID=SYSUSR
 /*
 //SYSIN    DD  *
 create table testTable (colChar char(18), colInt integer);
 insert into  testTable values ('colChar row 1', 1);
 insert into  testTable values ('colChar row 2', 2);
 -- Output appears as a table unless "PRTWIDTH=" is exceeded.
 select colChar, colInt from testTable;
 rollback work;
 /*

Following is sample z/VSE JCL.

* $$ JOB ...           See the note above..
* $$ LST CLASS=x
// JOB     jobname
*           CREATE OPTIONS FILE USING DITTO
// UPSI 1
// EXEC    PROC=yourproc
// ASSGN   SYSnnn,DISK,VOL=volser,SHR
// DLBL    OPTIONS,'dataset.name',0,SD
// EXTENT  SYSnnn,volser,1,0,reltrk,1
// EXEC DITTO
$$DITTO CSQ FILEOUT=OPTIONS,CISIZE=512,BLKFACTOR=1
AUTHID=SYSADM
/*
$$DITTO EOJ
/*
*           EXECUTE DBSQLPR
// EXEC DBSQLPR,SIZE=AUTO
   SELECT * FROM table;
/*
/&
* $$ EOJ