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