>> Another simple way to do this is a simple Rexx exec using MVSVAR to get the
>> system symbol that you want . See
>> https://www.ibm.com/docs/en/zos/2.5.0?topic=tef-mvsvar to see examples of
>> how to do this.
Doug,
As I mentioned earlier you don't need REXX to get the MVS variables. DFSORT is
quite capable of reading the SYSTEM symbols. If your system has all the
symbols defined, then you can use the following DFSORT JCL
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SYMNAMES DD *
SYM01,S'&SYSAPPCLU'
SYM02,S'&SYSDFP'
SYM03,S'&SYSMVS'
SYM04,S'&SYSNAME'
SYM05,S'&SYSOPSYS'
SYM06,S'&SYSSECLAB'
SYM07,S'&SYSSMFID'
SYM08,S'&SYSSMS'
SYM09,S'&SYSCLONE'
SYM10,S'&SYSPLEX'
//SORTIN DD *
ABC
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL BUILD=(C'SYSAPPCLU IS : ',SYM01,/,
C'SYSDFP IS : ',SYM02,/,
C'SYSMVS IS : ',SYM03,/,
C'SYSNAME IS : ',SYM04,/,
C'SYSOPSYS IS : ',SYM05,/,
C'SYSSECLAB IS : ',SYM06,/,
C'SYSSMFID IS : ',SYM07,/,
C'SYSSMS IS : ',SYM08,/,
C'SYSCLONE IS : ',SYM09,/,
C'SYSPLEX IS : ',SYM10)
/*
https://www.ibm.com/docs/en/zos/3.1.0?topic=ss-symbol-statements
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
