| < Day Day Up > |
|
Example A-3 is the CLIST used in the JCL to format the IXCMIAPU output and rebuild the input statement for a LOGR policy:
Example A-3: LOGRPOL REXX Clist
/* rexx */ if sysvar("SYSENV") = "FORE" then do address TSO "ALLOC DD(LOGRI) DS(LOGR.POLICY) OLD" address TSO "ALLOC DD(LOGRO) DS(LOGR.SYSIN) MOD LRECL(80) RECFM(F B)" end "EXECIO * DISKR LOGRI (stem logri. finis" done = 0 logro = 0 do I = 1 to logri.0 while ¬done j = 0 parse var logri.i 2 rest if rest = "LOGR Inventory Record Summary:" then done = 1 do until rest = "" j = j + 1 parse var rest word.j rest left_b = pos("(",word.j) right_b = pos(")",word.j) if (left_b+1) = right_b then word.j = "" if ¬good_word(word.j) then word.j = "" select when word.j = "LOGSTREAM" then call write_out "DEFINE" word.j when word.j = "STRUCTURE" then call write_out "DEFINE" word.j when word.j ¬= "" then call write_out " " word.j otherwise nop end end end "EXECIO" logro "DISKW LOGRO (FINIS" exit good_word: parse arg test_string if pos("(",test_string) = 0 then parse upper var test_string test_word else parse upper var test_string test_word "(" test_value ")" . select when test_word = "LOGSTREAM" then return 1 when test_word = "NAME" then return 1 when test_word = "STRUCTNAME" then return 1 when test_word = "LS_DATACLAS" then return 1 when test_word = "LS_MGMTCLAS" then return 1 when test_word = "LS_STORCLAS" then return 1 when test_word = "HLQ" then return 1 when test_word = "MODEL" then return 1 when test_word = "LS_SIZE" then return 1 when test_word = "STG_MGMTCLAS" then return 1 when test_word = "STG_STORCLAS" then return 1 when test_word = "STG_DATACLAS" then return 1 when test_word = "STG_SIZE" then return 1 when test_word = "LOWOFFLOAD" then return 1 when test_word = "HIGHOFFLOAD" then return 1 when test_word = "STG_DUPLEX" then return 1 when test_word = "DUPLEXMODE" then return 1 when test_word = "RMNAME" then return 1 when test_word = "DESCRIPTION" then return 1 when test_word = "RETPD" then return 1 when test_word = "AUTODELETE" then return 1 when test_word = "OFFLOADRECALL" then return 1 when test_word = "DASDONLY" then return 1 when test_word = "DIAG" then return 1 when test_word = "LOGGERDUPLEX" then return 1 when test_word = "EHLQ" then return 1 when test_word = "STRUCTURE" then return 1 when test_word = "LOGSNUM" then return 1 when test_word = "MAXBUFSIZE" then return 1 when test_word = "AVGBUFSIZE" then return 1 otherwise return 0 end write_out: procedure expose logro parse arg write_text logro = logro + 1 queue write_text return 0
| < Day Day Up > |
|