//MYPANV JOB (ACCT01,ACCT02),'COMMENT',
// MSGCLASS=X,NOTIFY=ME
/*ROUTE PRINT MyRMT
//********************************************************************
//STEP1 EXEC PGM=PAN#1,PARM='OPEN=INP'
//PANDD1 DD DSN=PAN.LIBRARY.NAME,DISP=SHR
//PANDD2 DD UNIT=SYSDA,DISP=(,PASS,DELETE),
// DSN=&&TEMP,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),
// SPACE=(TRK,(2,2),RLSE)
//SYSPUNCH DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
++WRITE WORK,MEMBNAME
Return To JCLLIB