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
