MVS Jan 2005.p65 - CBT Tape

More documents

Recommendations

Info

Here is sample output for the EVEN parameter: JOBNAME ------- PDSSPLIT started 23 Sep 2ØØ4 22:54:38 on SYØ1 ------- JOBNAME 43 members copied to YOURID.@ØØ1#Ø43.YOURID.JCL RC=Ø 43 members copied to YOURID.@ØØ2#Ø43.YOURID.JCL RC=Ø 43 members copied to YOURID.@ØØ3#Ø43.YOURID.JCL RC=Ø 43 members copied to YOURID.@ØØ4#Ø43.YOURID.JCL RC=Ø 43 members copied to YOURID.@ØØ5#Ø43.YOURID.JCL RC=Ø 43 members copied to YOURID.@ØØ6#Ø43.YOURID.JCL RC=Ø 43 members copied to YOURID.@ØØ7#Ø43.YOURID.JCL RC=Ø 43 members copied to YOURID.@ØØ8#Ø43.YOURID.JCL RC=Ø 43 members copied to YOURID.@ØØ9#Ø43.YOURID.JCL RC=Ø 42 members copied to YOURID.@Ø1Ø#Ø42.YOURID.JCL RC=Ø 429 members copied 1Ø datasets created JOBNAME --- PDSSPLIT ended 23 Sep 2ØØ4 22:54:42 3.8 on SYØ1 RC=Ø ---- JOBNAME Here is sample output for the nn parameter: JOBNAME ------- PDSSPLIT started 23 Sep 2ØØ4 22:54:44 on SYØ1 ------- JOBNAME 1ØØ members copied to YOURID.@ØØ1#1ØØ.YOURID.JCL RC=Ø 1ØØ members copied to YOURID.@ØØ2#1ØØ.YOURID.JCL RC=Ø 1ØØ members copied to YOURID.@ØØ3#1ØØ.YOURID.JCL RC=Ø 1ØØ members copied to YOURID.@ØØ4#1ØØ.YOURID.JCL RC=Ø 29 members copied to YOURID.@ØØ5#Ø29.YOURID.JCL RC=Ø 429 members copied 5 datasets created JOBNAME --- PDSSPLIT ended 23 Sep 2ØØ4 22:54:47 2.5 on SYØ1 RC=Ø ---- JOBNAME CODE /*********************************************************************/ /* REXX */ /*********************************************************************/ /* Purpose: Copy a PDS to multiple output PDSs based on criteria */ /*-------------------------------------------------------------------*/ /* Syntax: pdssplit criteria */ /*-------------------------------------------------------------------*/ /* Parms: approach - number or ALPHA or EVEN */ 50 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.
* */ /* Use a number to create multiple PDSs with that number of members */ /* Use ALPHA to create a PDS for each letter of the alphabet */ /* Use EVEN nn to create nn PDSs with an even portion of members */ /* */ /* Known issue: a single member copy does not work (creates PS DSN?) */ /*********************************************************************/ /* Change Log */ /* */ /* Author Date Reason */ /* -------- --------- ----------------------------------------- */ /* */ /*********** @REFRESH BEGIN START 2ØØ4/Ø3/Ø6 13:16:32 *************/ /* Standard housekeeping activities */ /*********************************************************************/ call time 'r' parse arg parms signal on syntax name trap signal on failure name trap signal on novalue name trap probe = 'NONE' modtrace = 'NO' modspace = '' call stdentry 'DIAGMSGS' module = 'MAINLINE' push trace() time('L') module 'From:' Ø 'Parms:' parms if wordpos(module,probe) Ø then trace 'r'; else trace 'n' call modtrace 'START' Ø /*********************************************************************/ /* Set local estoeric names */ /*********************************************************************/ @vio = 'VIO' @sysda = 'SYSDA' /*********** @REFRESH END START 2ØØ4/Ø3/Ø6 13:16:32 *************/ /* Accept and validate parms */ /*********************************************************************/ arg parm evencount . if parm = '' then parm = 'ALPHA' select when datatype(parm,'W') = 1 then parm = parm when parm = 'ALPHA' then parm = 'ALPHA' when parm = 'EVEN' then do parm = 'EVEN' if evencount = '' then evencount = 1Ø end otherwise call rcexit 2Ø 'Invalid parm:' parm', whole number, "ALPHA"', 'or "EVEN"' © 2005. Reproduction prohibited. Please inform Xephon of any infringement. 51
Page 1 and 2: 220 January 2005 In this issue 3 TR
Page 3 and 4: TRAP2 and RP illustration This prog
Page 5 and 6: CNOP Ø,4 *========================
Page 7 and 8: R15 EQU 15 IHAPSA IHASTCB IKJTCB EN
Page 9 and 10: This dataset can then be used as in
Page 11 and 12: Java execution environment. This ar
Page 13 and 14: Tightly-integrated and highly-secur
Page 15 and 16: With IFAHonorPriority = No, Java wo
Page 17 and 18: the requirement to ship elements fr
Page 19 and 20: end if sysvar("SYSISPF") = "NOT ACT
Page 21 and 22: XMSEØØ3Ø DS ØH SAC Ø Go back i
Page 23 and 24: XC HEX1,HEX1 CLEAR FIELD PR Pop sta
Page 25 and 26: $XM2SE1Ø EQU $XM2TYPE+4,1 $XM2XMSE
Page 27 and 28: Multi-tasking with IBM C/C++ progra
Page 29 and 30: indicates whether the child process
Page 31 and 32: A tinit() function call is used to
Page 33 and 34: Address of the TCB area address. Ad
Page 35 and 36: * R9 : work register * * R1Ø - R11
Page 37 and 38: MVC Ø(4,R1),Ø(R9) Copy parm addre
Page 39 and 40: ***********************************
Page 41 and 42: L R1,DETASTAE Get STAE option indic
Page 43 and 44: #pragma linkage (DETACH, OS) #endif
Page 45 and 46: * program as follows: * * - address
Page 47 and 48: RETURNØØ DS ØH MVC RETCODE(4),=F
Page 49: SYSTSPRT DD SYSOUT=* //SYSTSIN DD D
Page 53 and 54: do sets = sets + 1 if i 7 then do
Page 55 and 56: "LIKE("qdsn(olddsn)") DIR("dirblks"
Page 57 and 58: call saydd msgdd 1 stacktitle end e
Page 59 and 60: signal off failure "ISPQRY" ISPRC =
Page 61 and 62: interpret 'trace' tracelvl return /
Page 63 and 64: * If this is foreground and ISPF is
Page 65 and 66: dsnnum = Ø ddname = '$DDNAME$' /**
Page 67 and 68: do trapmsg = center(' TSO Command E
Page 69 and 70: msgm = msgm + 1 if length(message)
Page 71 and 72: * ARG(1) - Storage Address */ /****
Page 73: MVS news TPS Systems has announced

MVS Jan 2005.p65 - CBT Tape

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?