MVS Jan 2005.p65 - CBT Tape

More documents

Recommendations

Info

*********** @REFRESH END VIODD 2ØØ4/Ø6/Ø8 11:17:36 *************/ /*********** @REFRESH BEGIN MODTRACE 2ØØ3/12/31 21:56:54 *************/ /* MODTRACE - Module Trace */ /*-------------------------------------------------------------------*/ /* TRACETYP - Type of trace entry */ /* SIGLINE - The line number called from */ /*********************************************************************/ modtrace: if modtrace = 'NO' then return arg tracetyp sigline tracetyp = left(tracetyp,5) sigline = left(sigline,5) /*********************************************************************/ /* Adjust MODSPACE for START */ /*********************************************************************/ if tracetyp = 'START' then modspace = substr(modspace,1,length(modspace)+1) /*********************************************************************/ /* Set the trace entry */ /*********************************************************************/ traceline = modspace time('L') tracetyp module sigline sparms /*********************************************************************/ /* Adjust MODSPACE for STOP */ /*********************************************************************/ if tracetyp = 'STOP' then modspace = substr(modspace,1,length(modspace)-1) /*********************************************************************/ /* Determine where to write the traceline */ /*********************************************************************/ if ispfenv = 'YES' & tsoenv = 'FORE' then /*********************************************************************/ /* Write to the ISPF Log, do not use ISPWRAP here */ /*********************************************************************/ do zedlmsg = traceline address ISPEXEC "LOG MSG(ISRZØØØ)" end else say traceline /*********************************************************************/ /* SAY to SYSTSPRT */ /*********************************************************************/ return /*********** @REFRESH END MODTRACE 2ØØ3/12/31 21:56:54 *************/ Robert Zenuk Systems Programmer (USA) © Xephon 2005 72 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.
<strong>MVS</strong> news TPS Systems has announced TPS/JES Services, which is aimed at companies looking to consolidate older communications infrastructure to take advantage of newer multiprotocol communication technologies. TPS/JES Services comprises two components – TPS/JES Services Server and TPS/RJS (Remote JES Services) Client. The Server operates as a z/OS component executing in the background to make JES2 and JES3 available to a TCP/IP-based client. TPS/RJS allows a multitude of simultaneous client connections, while maintaining only a single instance of the Server. The Server module interfaces with the JES system utilizing the z/OS SSI-based SAPI interface to become an external writer with the ability to act as a ‘hot writer’; automatically processing JES SYSOUT output as it becomes available. The TCP/IP client/server connection protocol used between the TPS/JES Services Server and the TPS/RJS Client include features that prevent unauthorized access, as well as compression and optional SSL encryption capability. For further information contact: TPS Systems, 14100 San Pedro Avenue, Suite 600, San Antonio, TX 78232-4399, USA. Tel: (210) 496 1984. URL: www.tps.com/jes_o.html. * * * Phoenix Software has announced Version 4.1.0 of (E)JES, its systems management tool that provides users with information to monitor, manage, and control their z/OS JESplex The new version provides a single look-and-feel to users of both JES2 and JES3. x With (E)JES, users can: control job processing (hold, release, cancel, and purge jobs); monitor jobs while they are running; browse jobs without printing, control JESplex parameters, JESmanaged initiators (JES2), job classes, and job class groups (JES3); control printers, punches, functional subsystems (JES3), and NJE resources; control JES spool configuration.; control WLM scheduling environments and resources; control WLM enclaves and O<strong>MVS</strong> processes running under z/OS Unix System Services; and issue system commands that affect jobs. For further information contact: Phoenix Software International, 5200 West Century Boulevard, Suite 800, Los Angeles, CA 90045, USA. Tel: (310) 338 0400. URL: www.phoenixsoftware.com/EJES/ ejes.html. * * * Mainstar Software has announced CATSCRUB, a new back-up and recovery manager suite selectable feature. CATSCRUB synchronizes one or more BCS catalogs with associated DASD volumes at a disaster recovery site, resulting in catalogs that correctly reflect the data on the physical volumes. With the SIMULATE feature, users can determine in advance exactly what this command will do. For further information contact: Mainstar Software, PO 4132, Bellevue, WA 98009-4132, USA. Tel: (425) 455 3589. URL: www.mainstar.com. xephon
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 and 50: SYSTSPRT DD SYSOUT=* //SYSTSIN DD D
Page 51 and 52: * */ /* Use a number to create mult
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: * ARG(1) - Storage Address */ /****
show all

MVS Jan 2005.p65 - CBT Tape

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

Delete template?

Save as template?