I would like to check each member of a PDS and if it is empty (0 Lines) - I would like to add a line with the text of *NONE*.
I would like to do this in batch using this format: //TSOBTCH1 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSLIST DD SYSOUT=* //ISPLOG DD DSN=&ISPLOG, // DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), // DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) //ISPPROF DD DSN=&ISPPROF, // DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), // DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) //ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR //ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR //ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR //ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR //ISPTABL DD DSN=XXXXXX.ISPF.ISPTLIB,DISP=SHR //SYSPROC DD DSN=XXXXXX.CLIST,DISP=SHR //SYSTSIN DD * PROFILE PREFIX(XXXXXX) ISPSTART CMD(%EDITREXX XXXXXX.TSS.CTM.DATA(PADM3) EMPTREXX) ISPSTART CMD(%EDITREXX XXXXXX.TSS.CTM.DATA(PPCT3) EMPTREXX) ISPSTART CMD(%EDITREXX XXXXXX.TSS.CTM.DATA(PCO13) EMPTREXX) Etc...... EMPTREXX - would be the ISREDIT Macro to perform the task. Any help would be appreciated. Thank You ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN