On Tue, 9 Jan 2024 22:41:50 +0000, Steely.Mark <steely.m...@ace.aaa.com> wrote:
> ISPSTART CMD(%EDITREXX XXXXXX.TSS.CTM.DATA(PADM3) EMPTREXX) > ISPSTART CMD(%EDITREXX XXXXXX.TSS.CTM.DATA(PPCT3) EMPTREXX) You don't want to start and stop ISPF for each member (ISPSTART). There are far better methods to process specific members or all members >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 don't have access to a system and I'm doing this from memory, so this might not be quite right ADDRESS ISREDIT "MACRO (PARM1,PARM2,...)" "(LINES) = LINENUM .ZLAST" if lines = 0 then do "LINE_AFTER .ZFIRST = 'NONE'" "SAVE" end "END" >I would like to do this in batch using this format: There are many ways to skin this cat. Your job would work but you might not have considered some alternatives. such as LMMLIST to get member list Interactive ISPF 3.4 using E /(*) MACRO(EMPTREXX) Interactive ISPF 3.4 using M for member list. First use E line command MACRO(EMPTREXX). Subsequent members use = to repeat. If ISPF stats exist, then you can sort on lines and issue command for those with 0 lines. Forget ISPF and use REXX. Certainly better than stopping and starting ISPF for each member. SYSOUTTRAP LISTDS MEMBERS to get the member list. For each desired member, ALLOC, EXECIO DISKR, EXECIO DISKW. FREE. I'm sure there are more. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
