Previous Topic: SQL Precompiler Example (z/OS)Next Topic: CICS Trace Table Entries


SQL Precompiler Example (z/VSE)

* $$ JOB JNM=SQL,CLASS=x
* $$ LST CLASS=c
// JOB SQL
// EXEC      PROC=procname
// LIBDEF    *,CATALOG=lib.sublib
* DBXMMPR
// OPTION    DECK,NOXREF,DUMP,LOG
// DLBL      PUNCH,'SYSIN.FILE',1,SD
// EXTENT    SYS101,vvvvvv,1,0,s,n
 ASSGN     SYSPCH,DISK,VOL=vvvvvv,SHR
// EXEC DBXMMPR,SIZE=768K
*          insert source here
/*
 CLOSE       SYSPCH,PUNCH
* DFHECP1$
// DLBL      IJSYSPH,'SYSPCH.FILE',1,SD
// EXTENT    SYSPCH,vvvvvv,1,0,s,n
 ASSGN     SYSPCH,DISK,VOL=vvvvvv,SHR
// DLBL      IJSYSIN,'SYSIN.FILE'
// EXTENT    SYSIPT,vvvvvv
 ASSGN     SYSIPT,DISK,VOL=vvvvvv,SHR
// EXEC DFHECP1$,SIZE=512K
/*
 CLOSE       SYSIPT,READER
 CLOSE       SYSPCH,PUNCH
/*
* COMPILE
// DLBL      IJSYSIN,'SYSPCH.FILE'
// EXTENT    SYSIPT,vvvvvv
 ASSGN     SYSIPT,DISK,VOL=vvvvvv,SHR
// OPTION    NODECK,CATAL
   PHASE   ppppppp,S
   INCLUDE DFHxxx
   INCLUDE DBCSVPR
   INCLUDE DBXHVPR
// EXEC IGYCRCTL,SIZE=IGYCRCTL
/*
 CLOSE       SYSIPT,READER
/*
* LINK-EDIT
/*
// EXEC LNKEDT
/*
/&
* $$ EOJ