So the
> On May 9, 2023, at 11:14 AM, Joseph Reichman <reichman...@gmail.com> wrote:
>
> I could do the same with the sub command exit
>
>>> On May 9, 2023, at 11:10 AM, Michael Stein <m...@zlvfc.com> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
