home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / bit / listserv / ibmmain / 2974 < prev    next >
Encoding:
Text File  |  1993-01-11  |  1.4 KB  |  32 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!UTMARTN.BITNET!##09
  3. Return-Path: <@VM1.CC.UAKRON.EDU:IBM-MAIN@UA1VM.BITNET>
  4. Message-ID: <11JAN93.12891296.0012.MUSIC@UTMARTN>
  5. Newsgroups: bit.listserv.ibm-main
  6. Date:         Mon, 11 Jan 1993 11:56:10 CST
  7. Sender:       IBM Mainframe Discussion list <IBM-MAIN@RICEVM1.BITNET>
  8. From:         Larry Holder <##09@UTMARTN.BITNET>
  9. Subject:      Routine to return jobname
  10. In-Reply-To:  In reply to your message of MON 11 JAN 1993 10:36:05 CST
  11. Lines: 19
  12.  
  13. >  Environment:
  14. >  MVS/ESA - JES2 4.2.0
  15. >  DFP 3.3.0
  16. >
  17. >  Question: Does anyone have an assembly routine callable from COBOL that
  18. >            will return the jobnumber,jobname, and stepname of the job
  19. >            while it is executing?  Is there an easier way to obtain this
  20. >            information? Thanks in advance!
  21.  
  22. I am no longer in an MVS shop, but while at Wal-Mart I recall an
  23. assembler program which used the EXTRACT macro to get the info you
  24. are looking for.  I'd suggest reading up on that macro.
  25.  
  26. Larry Holder,  Senior Programmer/Analyst         Bitnet: ##09@UTMARTN
  27. The University of Tennessee at Martin            Phone:  901-587-7890
  28. Martin, Tennessee  38238  U.S.A.                 Fax:           -7841
  29.  
  30. VM/ESA 1.0, VSE/ESA 1.1, CICS/VSE 2.1, COBOL-II, DL/I, SQL/DS, QMF
  31. PSW (Personal Status Words): "Saved By Grace" (Romans 1:16 & 8:38)
  32.