/* REXX        - MAKEADD CREATE IEBUPDTE CARDS FROM PRINTED PANELS */
 
 /*******************************************************************/
 /* NAME        - MAKEADD                                           */
 /* TITLE       - CREATE IEBUPDTE CARDS FROM PRINTED PANELS         */
 /*                                                                 */
 /* DESCRIPTION -                                                   */
 /*   THE RESULTING PDS MEMBERS                                     */
 /*   CAN BE USED AS PATTERNS FOR TAILORING INDIVIDUAL PLR MANUALS  */
 /*                                                                 */
 /* CHANGE ACTIVITY -                                               */
 /*   DDMMMYY  XXX  - XXXXXXX XXXX.                                 */
 /*******************************************************************/
 ADDRESS "ISREDIT";"MACRO"
 USERID = STRIP(SYSVAR('SYSUID'))
 PREFIX = STRIP(SYSVAR(SYSPREF)); IF PREFIX='' THEN PREFIX=USERID
 "(FIRST) = LINENUM .ZFIRST"
 IF FIRST = 00000 THEN RETURN 0
 "X ALL" 
 "F ALL 2 'PANEL NAME = '"
 IF RC = 0 THEN DO
    "REFORMAT NX ENTIRE './ ADD NAME=' 15 25"
    "RESET"
    "X ALL 1 './ '"
    "REFORMAT NX  ENTIRE 21 100"
 END
 ELSE DO 
    "X ALL";"F 22 'PZZ' ALL";IF RC /= 0 THEN RETURN;
    "REPEATNX BEFORE"
    "REFORMAT ENTIRE NX './ ADD NAME=' 22 29"
    "RESET"
    "X ALL 1 './ '"
    "REFORMAT NX  ENTIRE 21 100"
 END
 "LABEL .ZFIRST = .TOP"
 "LINE_BEFORE .TOP = DATALINE "||,
     '"//SCREENS  EXEC UPDATE,PARM=NEW                            "'
 "LINE_BEFORE .TOP = DATALINE "||,
     '"//SYSUT2   DD  DSN='PREFIX'.PLR.PATTERNS,DISP=(,CATLG,DELETE), "'
 "LINE_BEFORE .TOP = DATALINE "||,
     '"//             SPACE=(TRK,(2,5,15)),UNIT=TESTDISK,         "'
 "LINE_BEFORE .TOP = DATALINE "||,
     '"//             DCB=SYS1.ISPF.ISPPLIB                       "'
 "LINE_BEFORE .TOP = DATALINE "||,
     '"//SYSIN    DD  *                                           "'