Prev: Can't sort variable length records using mfsort
Next: Cobol convert program Job Request
From: Anonymous on 27 Jan 2007 11:08
In article <1169906735.918646.250460(a)j27g2000cwj.googlegroups.com>,
Alistair <alistair(a)ld50macca.demon.co.uk> wrote:
>
>
>On 27 Jan, 12:46, docdw...(a)panix.com () wrote:
>> In article <6287f$45babdc4$d066072d$5...(a)FUSE.NET>,
>>
>> [DIALECT HUMOR ALERT!! YOU HAVE BEEN WARNED!!]
>>
>> Reminds me of the Old Southern Joke, usually told by an Old Southern Man:
>> 'I was walkin' thru the town t'other day an' I saw a boy,
>
>So this ol' southern gen'l'man was from Yorkshire?

I don't recall his geography being specified, Mr Maclean, but it most
certainly is possible that he spent time in the North American state of
Virginia, certainly.

<http://www.mapquest.com/maps/map.adp?formtype=address&addtohistory=&address=&city=Yorkshire&state=VA&zipcode=&country=US&location=%2fLJzjMDqRU5wFmF3xCh6Ju8d3KnNVh9g8f6YBkUCudSvQ7VGljjkf8lkFJanxf8FeviTiwhTLiWw4BUjDKhVw%2fcPgsORbDtj7cOXHme1ZMvS4m74Z0MgVH%2bqEe8HN7I6&ambiguity=1>

(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
From: jnjsle1 on 28 Jan 2007 02:22
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...(a)panix.com () wrote:
> In article <1169906735.918646.250...(a)j27g2000cwj.googlegroups.com>,
>
> Alistair <alist...(a)ld50macca.demon.co.uk> wrote:
>
> >On 27 Jan, 12:46, docdw...(a)panix.com () wrote:
> >> In article <6287f$45babdc4$d066072d$5...(a)FUSE.NET>,
>
> >> [DIALECT HUMOR ALERT!! YOU HAVE BEEN WARNED!!]
>
> >> Reminds me of the Old Southern Joke, usually told by an Old Southern Man:
> >> 'I was walkin' thru the town t'other day an' I saw a boy,
>
> >So this ol' southern gen'l'man was from Yorkshire?I don't recall his geography being specified, Mr Maclean, but it most
> certainly is possible that he spent time in the North American state of
> Virginia, certainly.
>
> <http://www.mapquest.com/maps/map.adp?formtype=address&addtohistory=&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

From: Anonymous on 28 Jan 2007 11:44
In article <1169968977.093676.153200(a)s48g2000cws.googlegroups.com>,
<jnjsle1(a)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 disadvantage 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

From: Charles Hottel on 30 Jan 2007 19:28

<docdwarf(a)panix.com> wrote in message news:epiju0$ee0$1(a)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(a)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=*



From: Anonymous on 30 Jan 2007 20:13
In article <DoRvh.21066$X72.3900(a)newsread3.news.pas.earthlink.net>,
Charles Hottel <chottel(a)earthlink.net> wrote:
>
><docdwarf(a)panix.com> wrote in message news:epiju0$ee0$1(a)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
First  |  Prev  |  Next  |  Last
Pages: 1 2 3
Prev: Can't sort variable length records using mfsort
Next: Cobol convert program Job Request