Mainframe Utility: MAKEREFL

Return to Mainframe Utilities Page

Module


/* REXX ***************************************************************/
/* UTILITY: MAKEREFL                                                  */
/* AUTHOR: DAVID LEIGH                                                */
/* FUNCTION: THIS REXX PROGRAM EXTRACTS THE UNIPAC EXTENDED EDIT AND  */
/*           EXTENDED BROWSE PANEL DEFINITIONS FROM THE USER'S PROFILE*/
/*           POOL.  IT THEN CREATES TWO REFLISTS, RL1 AND RL2 WHICH   */
/*           CORRESPOND TO THE EXTENDED EDIT AND EXTENDED BROWSE      */
/*           PROFILE VARIABLES RESPECTIVELY.                          */
/**********************************************************************/
ADDRESS ISPEXEC
'CONTROL ERRORS RETURN'
"VGET (QERN1  QERN2  QERN3  QERN4  QERN5 ) PROFILE"
"VGET (QERN6  QERN7  QERN8  QERN9  QERN10) PROFILE"
"VGET (QERN11 QERN12 QERN13 QERN14 QERN15) PROFILE"
"VGET (QERN16 QERN17 QERN18 QERN19 QERN20) PROFILE"
"VGET (QERN21 QERN22 QERN23 QERN24 QERN25) PROFILE"
"VGET (QERN26 QERN27 QERN28 QERN29 QERN30) PROFILE"
"VGET (QERN31 QERN32 QERN33 QERN34 QERN35) PROFILE"
"VGET (QERN36 QERN37 QERN38 QERN39) PROFILE"
"VGET (QBRN1  QBRN2  QBRN3  QBRN4  QBRN5 ) PROFILE"
"VGET (QBRN6  QBRN7  QBRN8  QBRN9  QBRN10) PROFILE"
"VGET (QBRN11 QBRN12 QBRN13 QBRN14 QBRN15) PROFILE"
"VGET (QBRN16 QBRN17 QBRN18 QBRN19 QBRN20) PROFILE"
"VGET (QBRN21 QBRN22 QBRN23 QBRN24 QBRN25) PROFILE"
"VGET (QBRN26 QBRN27 QBRN28 QBRN29 QBRN30) PROFILE"
"VGET (QBRN31 QBRN32 QBRN33 QBRN34 QBRN35) PROFILE"
"VGET (QBRN36 QBRN37 QBRN38 QBRN39) PROFILE"

SET ZEDLMSG = 'CREATING REFLIST RL1 FROM THE EXTENDED EDIT DATASETS'
"CONTROL DISPLAY LOCK"
"DISPLAY MSG(UTLZ000W)"
DO I = 39 TO 1 BY -1
  DSN = VALUE(QERN¦¦I)
  "LMINIT DATAID(TEMPDID) DATASET('"DSN"')"
  IF RC = 0 THEN
    DO
      "LMOPEN DATAID("TEMPDID")"
      "LMCLOSE DATAID("TEMPDID")"
      "LMFREE DATAID("TEMPDID")"
      "SELECT PGM(ISRRSLST) PARM(PLA RL1)"
    END
END

SET ZEDLMSG = 'CREATING REFLIST RL2 FROM THE EXTENDED BROWSE DATASETS'
"CONTROL DISPLAY LOCK"
"DISPLAY MSG(UTLZ000W)"
DO I = 39 TO 1 BY -1
  DSN = VALUE(QBRN¦¦I)
  "LMINIT DATAID(TEMPDID) DATASET('"DSN"')"
  IF RC = 0 THEN
    DO
      "LMOPEN DATAID("TEMPDID")"
      "LMCLOSE DATAID("TEMPDID")"
      "LMFREE DATAID("TEMPDID")"
      "SELECT PGM(ISRRSLST) PARM(PLA RL2)"
    END
END
"SELECT PGM(ISRDSLST) PARM(PL1 RL1) SUSPEND"
EXIT
            


Documentation


 This utility extracts the UNIPAC extended edit and extended browse
 panel panel definitions from the user's profile pool.  It then creates
 two ISPF reflists named "RL1" and "RL2" which correspond to the
 extended extended edit and extended browse profile variables
 respectively.

 To invoke it you should be on the ISPF primary option panel and not be
 in split screen.  This will ensure MAKEREFL accesses the correct
 profile pool for its dataset lists.  Then type:

 OPTION ===> makerefl

 To check your results, issue the ISPF command REFACTD RL1 and press
 .  You should have a list of datasets that matched your extended
 edit panel.
            


Leave a Reply

Your email address will not be published. Required fields are marked *