Transporting Applications in Source Form › Sample JCL

Sample JCL

The following sample JCL for z/OS and VSE are described here.

z/OS

The following sample JCL for z/OS requires control statements described previously. All libraries must be defined in the IDSYSFT.

//jobcard
//PROCLIB DD DSN=site.proclib,DISP=SHR
//step1name EXEC idlproc,PROG=IDUTSTRN
//SRCLIST DD SYSOUT=*          ... or DSN=...
//SYSPUNCH DD SYSOUT=*          ... or DSN=...
//SYSIN DD *
PERSON userid PASSWORD password
control statements

For IMPORT jobs, EXTSRC DD should be DISP=SHR. For EXPORT jobs, EXTSRC DD should be DISP=SHR (if it already exists), or DISP=(NEW,CATLG),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=80,BLKSIZE=...),SPACE=(...).

VSE

The following sample JCL for VSE requires control statements described previously.

All source and panel libraries must be defined in the IDLPROC JCL procedure and in the IDSYSFT. IDUTSTRN uses IDSYSFT entries IDISK1, ISLTAPE1, INLTAPE1, and SYSPUNCH.

* $$ JOB JNM=IDUTSTRN,CLASS=x
* $$ LST CLASS=x
// JOB      IDUTSTRN
// OPTION   LOG
// EXEC     PROC=libproc
// EXEC     PROC=IDLPROC
// ASSGN    SYS007,DISK,VOL=vvvvvv,SHR
// DLBL     EXTSRC,'dataset.name',n,SD
// EXTENT   SYS007,vvvvvv,1,0,begtrk,ntrks
// EXEC     IDUTSTRN,SIZE=150K
SIGNON PERSON $IDEAL
SET SOURCE DEVICE DISK
control statements
/*
/&
* $$ EOJ

EXTSRC is the external source file.

Return Codes

The Source Transport Utility returns the following return codes to the operating system to indicate the status of the job.

• No error or warning messages.
• Warning messages, but no error messages.
• Error messages, some entities not processed. You can use the source file for import, but some entities will be missing.

Serious error-messages; source file not completely processed.