Discussion:
ISPF LINE COMMAND
Add Reply
John Dawes
2017-08-10 13:55:49 UTC
Reply
Permalink
Raw Message
  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 ***@listserv.ua.edu with the message: INFO IBM-MAIN
John McKown
2017-08-10 14:04:16 UTC
Reply
Permalink
Raw Message
On Thu, Aug 10, 2017 at 8:55 AM, John Dawes <
Post by John Dawes
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
​Yes,

Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep)
and a single "A" (After) on line 12.​
--
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lizette Koehler
2017-08-10 14:08:47 UTC
Reply
Permalink
Raw Message
@John,

I thought I knew all the line commands. Now I need to run over to z/OS and try this out.

Thanks for the info

Lizette
-----Original Message-----
Behalf Of John McKown
Sent: Thursday, August 10, 2017 7:05 AM
Subject: Re: ISPF LINE COMMAND
On Thu, Aug 10, 2017 at 8:55 AM, John Dawes < 000000ff0e22811f-dmarc-
Post by John Dawes
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
​Yes,
Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep) and
a single "A" (After) on line 12.​
--
If you look around the poker table & don't see an obvious sucker, it's you.
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Feller, Paul
2017-08-10 14:11:23 UTC
Reply
Permalink
Raw Message
John is correct..

This is how I've used it.

Command ===>
****** **************************
c00001 Line to copy
ak0002 Other lines
ak0003 Other lines
ak0004 Other lines
a00005 Other lines
000006 Other lines
****** **************************


****** ************************
000001 Line to copy
000002 Other lines
000003 Line to copy
000004 Other lines
000005 Line to copy
000006 Other lines
000007 Line to copy
000008 Other lines
000009 Line to copy
000010 Other lines
****** ************************

Thanks..

Paul Feller
AGT Mainframe Technical Support

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler
Sent: Thursday, August 10, 2017 09:10
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: ISPF LINE COMMAND

@John,

I thought I knew all the line commands. Now I need to run over to z/OS and try this out.

Thanks for the info

Lizette
-----Original Message-----
Behalf Of John McKown
Sent: Thursday, August 10, 2017 7:05 AM
Subject: Re: ISPF LINE COMMAND
On Thu, Aug 10, 2017 at 8:55 AM, John Dawes < 000000ff0e22811f-dmarc-
Post by John Dawes
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
​Yes,
Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep) and
a single "A" (After) on line 12.​
--
If you look around the poker table & don't see an obvious sucker, it's you.
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
John McKown
2017-08-10 14:17:23 UTC
Reply
Permalink
Raw Message
Post by Feller, Paul
John is correct..
This is how I've used it.
Command ===>
****** **************************
c00001 Line to copy
ak0002 Other lines
ak0003 Other lines
ak0004 Other lines
a00005 Other lines
000006 Other lines
****** **************************
****** ************************
000001 Line to copy
000002 Other lines
000003 Line to copy
000004 Other lines
000005 Line to copy
000006 Other lines
000007 Line to copy
000008 Other lines
000009 Line to copy
000010 Other lines
****** ************************
Thanks..
Paul Feller
AGT Mainframe Technical Support
​Just for completeness, the "AK" / "A" can also be ​be used with the
"CC".."CC" like:

CC0001 LINE 1 to copy
000002 LINE 2 to copy
CC0003 LINE 3 to copy
AK0004 LINE after which to copy
​A00005 Another LINE after which to copy​

000001 LINE 1 to copy
000002 LINE 2 to copy
000003 LINE 3 to copy
000004 Line after which to copy
000005 LINE 1 to copy
000006 LINE 2 to copy
000007 LINE 3 to copy
000008 Another LINE after which to copy
000009 LINE 1 to copy
000010 LINE 2 to copy
000011 LINE 3 to copy
--
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Vernooij, Kees - KLM , ITOPT1
2017-08-10 14:30:20 UTC
Reply
Permalink
Raw Message
For more completeness, there is also BK and OK.
See Help - Line commands - Move/Copy commands.

Kees.
-----Original Message-----
Behalf Of John McKown
Sent: 10 August, 2017 16:18
Subject: Re: ISPF LINE COMMAND
On Thu, Aug 10, 2017 at 9:12 AM, Feller, Paul
Post by Feller, Paul
John is correct..
This is how I've used it.
Command ===>
****** **************************
c00001 Line to copy
ak0002 Other lines
ak0003 Other lines
ak0004 Other lines
a00005 Other lines
000006 Other lines
****** **************************
****** ************************
000001 Line to copy
000002 Other lines
000003 Line to copy
000004 Other lines
000005 Line to copy
000006 Other lines
000007 Line to copy
000008 Other lines
000009 Line to copy
000010 Other lines
****** ************************
Thanks..
Paul Feller
AGT Mainframe Technical Support
​Just for completeness, the "AK" / "A" can also be ​be used with the
CC0001 LINE 1 to copy
000002 LINE 2 to copy
CC0003 LINE 3 to copy
AK0004 LINE after which to copy
​A00005 Another LINE after which to copy​
000001 LINE 1 to copy
000002 LINE 2 to copy
000003 LINE 3 to copy
000004 Line after which to copy
000005 LINE 1 to copy
000006 LINE 2 to copy
000007 LINE 3 to copy
000008 Another LINE after which to copy
000009 LINE 1 to copy
000010 LINE 2 to copy
000011 LINE 3 to copy
--
If you look around the poker table & don't see an obvious sucker, it's you.
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
********************************************************
For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message.

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286
********************************************************


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
John Dawes
2017-08-10 14:10:46 UTC
Reply
Permalink
Raw Message
John,I tried it out and it did what I asked for.  A massive thanks.

From: John McKown <***@GMAIL.COM>
To: IBM-***@LISTSERV.UA.EDU
Sent: Thursday, 10 August 2017, 10:05
Subject: Re: ISPF LINE COMMAND

On Thu, Aug 10, 2017 at 8:55 AM, John Dawes <
Post by John Dawes
  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
​Yes,

Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep)
and a single "A" (After) on line 12.​
--
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN



----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lizette Koehler
2017-08-10 14:05:54 UTC
Reply
Permalink
Raw Message
I am not aware of such a feature. However, you could write a REXX/ISPF Function that will generate the control cards with an ISPF SKEL.

I have done that many times when I needed to create IDCAM DEFINE statements that spanned more than one line.

Also, if you have not done so, there is an ISPF List that might also be helpful

To join, go to this URL

ISPF https://listserv.nd.edu/cgi-bin/wa?A0=ispf-l

Lizette
-----Original Message-----
Behalf Of John Dawes
Sent: Thursday, August 10, 2017 6:55 AM
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 ***@listserv.ua.edu with the message: INFO IBM-MAIN
Burrell, Todd
2017-08-10 14:19:04 UTC
Reply
Permalink
Raw Message
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-***@LISTSERV.UA.EDU] On Behalf Of John Dawes
Sent: Thursday, August 10, 2017 9:55 AM
To: IBM-***@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 ***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN
Paul Gilmartin
2017-08-10 16:46:47 UTC
Reply
Permalink
Raw Message
Post by John McKown
Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep)
and a single "A" (After) on line 12.​
Can this be used in connection with the eXXclude command to copy before/after
(all) selected lines?

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Loading...