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.