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

Author

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

jnjsle1@optonline.net

2007-01-28, 3:55 am

Hi DD,

I've used this:

In the 3.4 panel, after you've displayed the datasets or members you
want, enter on the cmd line:

SAVE any1to8chars e.g. SAVE MYMEMS

This creates a seq d/s named "yrTSOID.any1to8chars.MEMBERS" for a
members list or "yrTSOID.any1to8chars.DATASETS" for a dataset list.

On Jan 27, 11:08 am, docdw...@panix.com () wrote:
> In article <1169906735.918646.250...@j27g2000cwj.googlegroups.com>,
>
> Alistair <alist...@ld50macca.demon.co.uk> wrote:
>
>
>
>
> certainly is possible that he spent time in the North American state of
> Virginia, certainly.
>
> <http://www.mapquest.com/maps/map.ad...tohistory=&a...>
>
> (in order to repent for your provincial notions about dialect you might
> wish to consider how certain aspects of Elisabethan English were still to
> be found in areas of the Appalachian Mountains as recently as a
> half-century back (dialects, in general, are fading due to the onslaught
> of radio-/television-speak)... oh, I *cannot* resist...
>
> ... a bit of isolation made it difficult, it seems, for even diligent
> Americans to wash out that particular linguistic stain.... errrr, strain.
>
> DD

2007-01-28, 6:55 pm

In article <1169968977.093676.153200@s48g2000cws.googlegroups.com>,
<jnjsle1@optonline.net> wrote:
>Hi DD,
>
>I've used this:
>
>In the 3.4 panel, after you've displayed the datasets or members you
>want, enter on the cmd line:
>
>SAVE any1to8chars e.g. SAVE MYMEMS
>
>This creates a seq d/s named "yrTSOID.any1to8chars.MEMBERS" for a
>members list or "yrTSOID.any1to8chars.DATASETS" for a dataset list.

Hmmmm... the advantage to this is that one is not limited to the default
LIST dataset, the di

vantage seems to be the headers are lost... but if
we're using another job or CLIST to manipulate the file the headers aren't
important, the data's positioning remains the same... hmmmmm...

Thanks much!

DD

Charles Hottel

2007-01-30, 6:55 pm

<docdwarf@panix.com> wrote in message news:epiju0$ee0$1@reader2.panix.com...

<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@POBOX.COM> *
* *
****************************************
**************************
/
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=*

2007-01-30, 9:55 pm

In article <DoRvh.21066$X72.3900@newsread3.news.pas.earthlink.net>,
Charles Hottel <chottel@earthlink.net> wrote:
>
><docdwarf@panix.com> wrote in message news:epiju0$ee0$1@reader2.panix.com...
>
><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:

Ye gods and little fishes, man... a COBUCLG jobstream, or something
thereabouts... haven't seen one of those in... a goodly while, aye.
While it may not deal with my problem directly...

[unnecessarily long parenthetic digression]

(a private email directed me to consider program ISRDSLST... now if I can
only find the system library where they hide the load module I can cast my
baleful eye thereupon and see what kind of DDnames I'll need to make it
happy... maybe... reading load modules, who does *that* any more... who
talks about 'load modules', for that matter)

.... it was a joy to see the generosity with which you offered this... and
the stark, ancient angularity of the form reminded me of the work of
Michael Praetorius.

Thanks much!

DD

Sponsored Links