I believe there is a way to do this with AK, but it requires commands on each
line. Not painful for a few lines, but ugly for say 500 lines. Here's a REXX
exec I have that will read dataset names from an input file and create output
cards. You can alter the cards to be whatever you want.
/* REXX EXEC TO READ INPUT DATASET LIST AND CREATE OUTPUT */
DATASETS. = ''
LINES. = ''
"ALLOCATE FILE(INPUTFIL) DA('ZPN6.VEMER00.DATASETS') SHR"
'EXECIO * DISKR INPUTFIL (FINIS STEM DATASETS.'
'FREE FILE(INPUTFIL)'
"ALLOCATE FILE(OUTFIL) DA('ZPN6.TSO.JCL(OS390210)') SHR"
J = 1
DO I = 1 TO DATASETS.0
DSN = STRIP(SUBSTR(DATASETS.I,1,44))
LINES.J = ' DEFINE NVSAM(NAME('DSN') -'
J = J + 1
LINES.J = ' VOL(******) DEVT(0000)) '
J = J + 1
END
'EXECIO * DISKW OUTFIL (FINIS STEM LINES.'
'FREE FILE(OUTFIL)'
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of John Dawes
Sent: Thursday, August 10, 2017 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF LINE COMMAND
G'Day,
Is there a line command equivalent to ROSCOE line command using CR? Let me
explain.
000001 HSEND FIXCDS D TESTJOB.D286.T2041375.TTQM0003 DELETE -
000002 PATCH(X'06' BITS(0.....1.)) ODS(SYSTEST.FIXCDS)
000003 HSEND FIXCDS D TESTJOB.D286.T2101225.TTQM0003 DELETE -
000004 HSEND FIXCDS D TESTJOB.D286.T2120595.TTQM0003 DELETE -
000005 HSEND FIXCDS D TESTJOB.D286.T2141244.TTQM0003 DELETE -
000006 HSEND FIXCDS D TESTJOB.D286.T2203302.TTNRON70 DELETE -
000007 HSEND FIXCDS D TESTJOB.D286.T2221294.TTQM0003 DELETE -
000008 HSEND FIXCDS D TESTJOB.D288.T1345356.TMDMDE21 DELETE -
000009 HSEND FIXCDS D TESTJOB.D295.T1345250.TMDMDE21 DELETE -
000010 HSEND FIXCDS D TESTJOB.D298.T1045337.TPDMDE21 DELETE -
000011 HSEND FIXCDS D TESTJOB.D299.T1345302.TMDMDE21 DELETE -
000012 HSEND FIXCDS D TESTJOB.D300.T1045286.TPDMDE21 DELETE - In
the above member I would like to copy line 000002 PATCH(X'06'
BITS(0.....1.)) ODS(SYSTEST.FIXCDS) after each HSEND command.
In ROSCOE (miss it dearly) all I had to do is type CR in 000002 and an A in
000003 up to 000012. Does ISPF have something similar?
Thanks in advance
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
This email transmission and any accompanying attachments may contain CSX
privileged and confidential information intended only for the use of the
intended addressee. Any dissemination, distribution, copying or action taken in
reliance on the contents of this email by anyone other than the intended
recipient is strictly prohibited. If you have received this email in error
please immediately delete it and notify sender at the above CSX email address.
Sender and CSX accept no liability for any damage caused directly or indirectly
by receipt of this email.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
