PL/I Program Calling a CLIST
Figure 1. MYCLIST called
by PL/I program, TSOCALL
/***********************************************************************/
/* THIS CLIST IS CALLED BY PL/I PROGRAM, TSOCALL. AFTER IT IS CALLED, */
/* IT ALLOCATES THE NECESSARY DATA SETS FOR FORTRAN PROGRAM, MYPGM, */
/* CALLS MYPGM, AND TRANSMITS THE RESULTS OF MYPGM TO ANOTHER USER, */
/* HISID AT HISNODE. NOTE: THE DATA SETS FOR FORTRAN PROGRAM, MYPGM, */
/* MUST ALREADY EXIST AND BE CATALOGED. */
/***********************************************************************/
PROC 0
ALLOC F(FT06FT01) DSN(*) REUSE
ALLOC F(SYSIN) DSN(YOUR.SYSIN) REUSE
ALLOC F(SYSPRINT) DSN(*) REUSE
ALLOC F(INDD) DSN(YOUR.INPDS) REUSE
ALLOC F(OUTDD) DSN(YOUR.OUTPDS) REUSE
CALL LOAD(MYPGM)
TRANSMIT HISNODE.HISID DA(YOUR.OUTPDS) /* SEND RESULTS */
EXIT CODE(0)