I could do the same with the sub command exit > On May 9, 2023, at 11:10 AM, Michael Stein <[email protected]> wrote: > > On Tue, May 09, 2023 at 07:37:27AM -0400, Joseph Reichman wrote: >> I am just wondering when using IKJOPER (operand) and for clarity's sake I >> would like to use an example from TSO TEST so I would imagine the '=' of TSO >> TEST is an IKJOPER > > Well, it doesn't work like that... Test prescans the command and > blanks out the '=' character.. Code from MVT IKJEGMNL: > > SCAN EQU * > * TRANSLATE AND TEST COMMAND TO DETERMINE IF IT IS AN ASSIGNMENT > * COMMAND.IF NOT,LINK TO COMMAND SCAN SERVICE ROUTINE TO SCAN > * VERB OF COMMAND. > SPACE > L R4,INBUF R4=COMMAND ADDR. > LH R3,X0(,R4) NO,USE COMMAND ACTUAL LENGTH. > LA R1,X4 CONSTANT OF FOUR > CR R1,R3 IS THIS A NULL LINE > BE SCREQ1 YES --- BRANCH > LOOP0 EQU * > CLI X4(R4),BLANK CHECK FOR LEADING BLANK > BNE LOOP CONTINUE. > LA R4,X1(R4) BUMP ONE. > BCT R3,LOOP0 CHECK IF ANOTHER LEADING BLANK. > B SCREQ1 ALL BLANKS REQUEST NEW LINE. > LOOP EQU * > CLI X4(R4),BLANK BLANK AS A DELIMITER. > BE SCAN1 CAN'T BE PACH COMMAND. > CLI X4(R4),LEFTPARN LOOK FOR LEFT PAREN > LEFTPARN EQU C'(' LEFT PAREN > BE SCAN1 THIS IS NOT A PATCH > CLI X4(R4),EQUALS LOOK FOR EQUALS > EQUALS EQU C'=' EQUAL SIGN > BE SCPCH THIS IS A PATCH > LA R4,X1(R4) ADD ONE TO ADDRESS > BCT R3,LOOP FIND = OR ( > B SCAN1 NO FIND. CONTINUE > SCPCH EQU * PATCH > MVI X4(R4),BLANK BLANK OUT EQUAL SIGN FOR PARSE. > BLANK EQU C' ' BLANK. > L R6,PATCHSID OBTAIN ID FOR PATCH. > LH R6,X0(R6) * > B SCLINK LINK TO ASSIGNMENT COMMAND. > SCAN1 EQU * > * LINK TO COMMAND SCAN SERVICE ROUTINE TO SCAN VERB OF COMMAND. > SPACE > L R4,INBUF R4=COMMAND ADDRESS > L R1,WORKAREA R1=PARAMETER LIST ADDR. > LA R2,N24(,R1) R2=ADDR OF FLAG WORD. > LA R3,N28(,R1) R3=ADDR OF OUTPUT AREA. > MVI X0(R2),X80 INDICATE NO SYNTAX CHECK. > MVC X0(N12,R1),PARMLIST MOVE SERVICE ROUTINE PARMS > * TO LIST. > STM R2,R4,N12(R1) PLACE SCAN ROUTINE PARMS IN LIST. > *TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT > LINK EP=IKJSCAN LINK TO COMMAND SCAN SERVICE ROUTINE. > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
