/*REXX @STRAPQQ SAME AS @STRAPQ, EXCEPT VGET (QHELP) */ "ISREDIT MACRO (COMMAND) " /* TITLE: @STRAPQQ --TRAP CLIST SAY STATEMENTS AND IMBED AT */ /* END OF FILE IN EDIT */ /* USERS: TSO ISPF EDIT USERS */ /* ENTRY: USED AS AN EDIT CLIST WITHIN ISPF EDIT */ /* ===> STRAPQQ DDNAME ALL */ /* CONTRIBUTED: 1985/08/29 DAVID MCRITCHIE */ /* EXAMPLE: ===> @STRAPQQ DDNAME ALL */ "ISREDIT CAPS OFF " "ISREDIT BOUNDS " "ISREDIT AUTOSAVE ON " /*"ISPEXEC VGET (QHELP) SHARED " -- THIS LINE IS IN QHELP@ --*/ /* IF LENGTH(COMMAND) = 0 THEN COMMAND = QHELP -- IN QHELP@ */ IF LENGTH(COMMAND) = 0 THEN DO SAY ' PLEASE SUPPLY TSO COMMAND ENTRY FOR @STRAP MACRO CLIST' SAY ' USE SINGLE QUOTES OR PARENTHESIS IF ' SAY ' IF REPLY HAS SPACES OR COMMAS ' SAY ' TO CANCEL REQUEST HIT ENTER ' PULL COMMAND SAY "BY YOUR COMMAND ..." COMMAND END IF LENGTH(COMMAND) = 0 THEN DO SAY "REQUEST TERMINATED DUE TO NULL COMMAND ENTRY" EXIT 0 END "ISREDIT CAPS OFF" "ISREDIT LINE_AFTER .ZLAST = ' '" "ISREDIT LINE_AFTER .ZLAST = 'COMMAND INVOKING @STRAPQQ EXECUTE, MACRO ===> @STRAPQQ "||COMMAND||"'" "ISREDIT LINE_AFTER .ZLAST = ' ' " RESULT = OUTTRAP("SAVE.",'*') COMMAND N = SAVE.TRAPPED /* THE LAST LINE # TRAPPED*/ RESULT = OUTTRAP("OFF") /* SAY "N=" N "-2-" SAVE.0 "--3--" SAVE.CON "--4--" SAVE.TRAPPED */ /* SAY "===> @STRAPQ --" COMMAND */ DO I = 1 TO N BY 1;IF I > 400 THEN LEAVE I "ISREDIT LINE_AFTER .ZLAST = DATALINE '" SAVE.I "'" END EXIT 0