Re: IBM Mainframe - Batch Job to Generate Data Set List?


<docdwarf@xxxxxxxxx> wrote in message news:epiju0$ee0$1@xxxxxxxxxxxxxxxxxxxx

<snip>

Doc,

IIRC your original question had to do with batch and ISPF. Anyway this is
not ISPF and I am no expert on TSO and ISPF so I am not sure if you can use
this to do what you want, but if there is a TSO command equivalent to what
you want to do then here is a sample batch COBOL program that may be able to
issue that TSO command:

//JOBNAME JOB (ACCT,'ROOM'),'HOTTEL COBTSO',MSGCLASS=S,CLASS=K
//PROCLIB JCLLIB ORDER=USERID.DVL.PROC
//OUTPUT INCLUDE MEMBER=DESTCH
//*-------------------------------------------------------------------*
//* COBOL II COMPILE *
//*-------------------------------------------------------------------*
//STEP01 EXEC COB3CLG,LIBRARY='DVL.SOURCE.LIBMAST',PROG=IEFBR14,
// OPT=DYNAM,LOPT='AMODE=31,RMODE=ANY'
//COMP.SYSIN DD *
IDENTIFICATION DIVISION.
PROGRAM-ID. COBTSO.
******************************************************************
* *
* MODULE NAME = COBTSO *
* *
* DESCRIPTIVE NAME = ISSUE TSO COMMANDS FROM A COBOL PROGRAM. *
* *
* FUNCTION = THIS SAMPLE PROGRAM DEMONSTRATES HOW TO INVOKE *
* TSO COMMANDS FROM A COBOL PROGRAM USING *
* STANDARD TSO SERVICES AS DOCUMENTED IN THE *
* TSO/E PROGRAMMING SERVICES MANUAL. *
* *
* MOST TSO COMMANDS, INCLUDING CLISTS AND REXX *
* EXECS CAN BE EXECUTED USING THIS TECHNIQUE. *
* TSO COMMANDS WHICH REQUIRE AUTHORIZATION *
* (SUCH AS OUTPUT, SEND, TRANSMIT AND RECEIVE) *
* WILL NOT WORK. *
* *
* AUTHOR = GILBERT SAINT-FLOUR <GSF@xxxxxxxxx> *
* *
******************************************************************
/
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FILLER.
05 WS-DUMMY PIC S9(8) COMP.
05 WS-RETURN-CODE PIC S9(8) COMP.
05 WS-REASON-CODE PIC S9(8) COMP.
05 WS-INFO-CODE PIC S9(8) COMP.
05 WS-CPPL-ADDRESS PIC S9(8) COMP.
05 WS-FLAGS PIC X(4) VALUE X'00010001'.
05 WS-BUFFER PIC X(256).
05 WS-LENGTH PIC S9(8) COMP VALUE 256.
/
PROCEDURE DIVISION.
*----------------------------------------------------------------*
* CALL IKJTSOEV TO CREATE THE TSO/E ENVIRONMENT *
*----------------------------------------------------------------*
CALL 'IKJTSOEV' USING WS-DUMMY
WS-RETURN-CODE
WS-REASON-CODE
WS-INFO-CODE
WS-CPPL-ADDRESS.
IF WS-RETURN-CODE > ZERO
DISPLAY 'IKJTSOEV FAILED, RETURN-CODE=' WS-RETURN-CODE
' REASON-CODE=' WS-REASON-CODE
'INFO-CODE=' WS-INFO-CODE
MOVE WS-RETURN-CODE TO RETURN-CODE
STOP RUN.
*----------------------------------------------------------------*
* BUILD THE TSO/E COMMAND IN WS-BUFFER *
*----------------------------------------------------------------*

MOVE 'ALLOCATE DD(SYSPUNCH) SYSOUT HOLD' TO WS-BUFFER.

*----------------------------------------------------------------*
* CALL THE TSO/E SERVICE ROUTINE TO EXECUTE THE TSO/E COMMAND *
*----------------------------------------------------------------*
CALL 'IKJEFTSR' USING WS-FLAGS
WS-BUFFER
WS-LENGTH
WS-RETURN-CODE
WS-REASON-CODE
WS-DUMMY.
IF WS-RETURN-CODE > ZERO
DISPLAY 'IKJEFTSR FAILED, RETURN-CODE=' WS-RETURN-CODE
' REASON-CODE=' WS-REASON-CODE
MOVE WS-RETURN-CODE TO RETURN-CODE
STOP RUN.

*----------------------------------------------------------------*
* CHECK THAT THE ALLOCATE COMMAND WORKED *
*----------------------------------------------------------------*
DISPLAY 'ALLOCATE WORKED ! ' UPON SYSPUNCH.

STOP RUN.
//LKED.SYSLIB DD
// DD
// DD DSN=HLQ.DVL.BATLOAD,DISP=SHR
//LKED.SYSLMOD DD DSN=&&LOADLIB(COBTSO),DISP=(OLD,PASS)
//LKED.SYSIN DD *
NAME COBTSO(R)
//GO.SYSUDUMP DD SYSOUT=*
//GO.SYSPRINT DD SYSOUT=*
//GO.SYSOUT DD SYSOUT=*
//GO.SYSDBOUT DD SYSOUT=*



.

Relevant Pages

  • Re: Multiple TSO logons
    ... As John McKown has indicated, there is a very simple way that the otelnetd server creates an environment which allows, in effect, line-mode TSO commands. ... If the proposed "z/OS System Explorer" is what I think it is - judging from the use of the Microsoft "Explorer" word - it approaches the file handling which may be compared to what the *TSO extension* ISPF does. ... job output management yada yada yada. ...
    (bit.listserv.ibm-main)
  • Re: Why isnt OMVS command integrated with ISPF?
    ... Don't confuse TSO with ISPF; the required facilities are there but ISPF ... open source; it could be recast to operate as an agent so an x3270 ... That hasn't been a limitation of TSO for decades. ...
    (bit.listserv.ibm-main)
  • Re: Friday musings on the future of 3270 applications
    ... TSO has always been able to run with line-mode terminals. ... Scripting for ISPF? ... a SMOP for ISPF to do so and to route the output to the WSA. ...
    (bit.listserv.ibm-main)
  • Re: IBM Help
    ... > I have student who has received a very attractive internship offer (i.e. ... > However, the internship includes work with TSO, IPSF, ReXX, etc. ... It's ISPF - a character-based full-screen editor and IDE. ... family of source-code editors (mostly derived from the unrelated but ...
    (comp.lang.cobol)
  • Re: IBM Help
    ... >> I have student who has received a very attractive internship offer (i.e. ... >> However, the internship includes work with TSO, IPSF, ReXX, etc. ... > It's been quite some time since I did anything significant with ISPF, ... > The only free editor of this type I know of is THE, ...
    (comp.lang.cobol)