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)