You can use the following program to automate a tedious and repetitive task involving the members of a PDS. This program selects each member, processes the changes, and stops when it has reached the end of the list.
SEARCH 'PRIMARY OPTION MENU' START ACL FROM ISPF
BRANCH NE,DONE1 NOT IN ISPF, STOP
KEY '2' SELECT EDIT
ENTER
HOME PUT CURSOR IN 1ST INPUT FIELD
TABF 8 TAB TO DATA SET NAME
KEY 'data set name' KEY NAME OF PDS
ENTER
SET A1,&CURSOR SET HOME CURSOR LOCATION
LOOP TABF 1 TAB TO PDS MEMBER NAME
COMPARE A1,&CURSOR CURSOR AT COMMAND LINE?
BRANCH EQ,DONE2 YES, FINISHED THE LIST
KEY 'S' NO, SELECT THE MEMBER
ENTER
C '''???''' '''&&&''' ALL MAKE CHANGES TO MEMBER
PF 3
BRANCH ANY,LOOP GO TO NEXT MEMBER
DONE1 HOME
KEY 'NOT IN ISPF PRIMARY' MUST START ACL IN ISPF
DONE2 STOP
|
Copyright © 2013 CA.
All rights reserved.
|
|