*/* 00030002 ********************************************************************** 00032002 * 00034002 * MODULE NAME= IEFVHM 00036002 * 00038002 * DESCRIPTIVE NAME= COMMAND VERB VALIDATION 00038402 * 00038802 * COPYRIGHT= N/A 00039202 * 00039602 * STATUS= OS/VS2 - SERVICE DATA IMPROVEMENTS @G17SPTJ 00039841 * 00044640 * FUNCTION= IEFVHM VALIDITY CHECKS A COMMAND VERB. 00045640 * OPERATION= WHEN IEFVHM RECEIVES CONTROL REGISTER 5 POINTS TO A 00046602 * VERB WHICH IS THEN COMPARED AGAINST A TABLE 00047002 * TO VALIDATE IT AS A COMMAND. IF A COMMAND 00047402 * IS FOUND, A MESSAGE IS SENT TO THE OPERATOR. 00047802 * IF REPLY IS YES ISSUE SVC34. IF NO BYPASS SVC. 00047902 * CONTROL THEN IS PASSED TO IEFVHA. IF THE 00048202 * COMAND IS NOT VALID THE JOB IS FAILED, AN ERROR 00048402 * MESSAGE IS ISSUED, IS PASSED TO IEFVHA. 00048502 * 00048602 * NOTES 00050602 * CHARACTER CODE DEPENDENCIES= EBCDIC 00052602 * DEPENDENCIES= SVC 34 00053002 * RESTRICTIONS= NONE 00053202 * PATCH-LABEL= PATCH 00059902 * REGISTER CONVENTIONS= R0 THROUGH RF 00061902 * 00062302 * MODULE TYPE= PROCEEDURE 00063902 * PROCESSOR= ASSEMBLER 00065902 * MODULE SIZE= X'4B8' @G17SPTJ 00066141 * ATTRIBUTES= NCAL,LET,LIST,XREF,RENT,REFR 00066402 * 00066502 * ENTRY POINT= IEFVHM 00073202 * PURPOSE= VALIDATE VERB AS A COMMAND 00075202 * LINKAGE= LOAD VCON, BRANCH REGISTER 00077202 * INPUT DATA= REGISTER 5 POINTS TO THE VERB 00079302 * REGISTER 9 POINTS TO THE STATEMENT 00079402 * REGISTER 10 POINTS TO THE STATEMENT PARAMETER LIST 00079502 * REGISTER 13 POINTS TO THE SAVEAREA 00079602 * REGISTERS SAVED= NONE 00079702 * REGISTER CONTENTS DURING PROCESSING= 00079802 * REGISTERS RESTORED= NONE 00079902 * 00080002 * EXIT - NORMAL= LOAD IEFVHA VCON, BRANCH REGISTER 00086502 * CONDITIONS= VERB IS A VALID COMMAND 00088502 * OUTPUT DATA= NONE 00090502 * RETURN CODES= NONE 00092502 * 00092902 * EXIT - ERROR= LOAD IEFVHA VCON, BRANCH REGISTER 00093302 * CONDITIONS= VERB NOT A VALID COMMAND 00093402 * OUTPUT DATA= REGISTER 2 POINTS TO A MESSAGE 00093502 * RETURN CODES= NONE 00095602 * 00097602 * EXTERNAL REFERENCES= 00099602 * ROUTINES= IEFVHEB TO LIST THE COMMAND 00099702 * DATA AREAS= IWA,JCT 00099802 * CONTROL BLOCKS= NONE 00099902 * TABLE= COMMAND COMPARE TABLE 00105602 * MACROS= GETMAIN,FREEMAIN,WTO,WTOR,WAIT,GMCR 00107602 * ENQUEUE RESOURCES= NONE 00109602 * 00110402 * MESSAGES= (UNIDENTIFIED OPERATION FIELD) 00110802 * THIS MESSAGE IS PASSED TO IEFVHEB 00110902 * 00111040 * CHANGE LEVEL = Z40WPSM, Z40BPSV, G17SPTJ @G17SPTJ 00131041 * 00730040 ********************************************************************** 00780040 **/ 00830040 EJECT 00880000 IEFCOMWA Y02668 00900002 IEFCVRWA Y02668 00910002 EJECT 00925002 IEFVMCWA 00930002 EJECT 00935002 IEFTXTFT Y02668 00940002 NEL DSECT YM00386 00950002 IEFNEL SUBCOM=C 00960002 EJECT 00980000 * XMCS 00981018 WTOBUF DSECT XMCS 00982018 USING WTOBUF,R2 XMCS 00983018 DS 0D 00984018 WTOLENG DS H MSG LENGTH IMCS 00985018 MCSFLG DS H MCS FLAGS IMCS 00986018 MSGIDBF DS 2F MSG ID IMCS 00987018 MSGTEXT DS 16F MSG CONTENT. Y02668 00988002 DESCRTC DS F DESCRIPTOR AND ROUTING CODES IMCS 00989018 ECBBUF DS F WAIT ECB IMCS 00990018 REPLYBUF DS C REPLY LOCATION IMCS 00991018 DUMM DS CL3 UNUSED IMCS 00992018 CMDLENG DS F REPLY LENGTH IMCS 00993018 * XMCS 00994018 * XMCS 00995018 ORG WTOBUF BUFFER USED FOR SVC 34 IMCS 00996018 MSGLEN DS F MSG LENGTH, MCS FLAGS IMCS 00997018 COMDTXT DS 20F COMMAND IMAGE IMCS 00998018 * XMCS 00999018 IEFVHM CSECT 01000018 EBLANK EQU C' ' 01000902 ECHARN EQU C'N' 01001802 ECHARY EQU C'Y' 01002702 EHEX01 EQU X'01' 01003602 EHEX40 EQU X'40' 01004502 IGNOREC EQU X'F3' YM00386 01004602 EXONLY EQU X'F0' YM00386 01004702 ASKOPER EQU X'F2' YM00386 01004802 EBCDICF EQU X'C6' YM00386 01004902 AUTHLEN EQU 4 YM00386 01005002 E0 EQU 0 01005402 E1 EQU 1 01006302 E2 EQU 2 01007202 E4 EQU 4 01008102 E8 EQU 8 01009002 E12 EQU 12 01009902 E16 EQU 16 01010802 E61 EQU 61 01011702 E76 EQU 76 01012602 E79 EQU 79 01013502 E80 EQU 80 01014402 E88 EQU 88 01015302 E91 EQU 91 01016202 * THE ABOVE EQUATES (EBLANK THRU E91) WERE MOVED TO ELIMINATE YM01559 01017102 * THE EXISTENCE OF A PRIVATE CSECT FOR THIS MODULE. YM01559 01018002 BALR RB,0 01100000 USING *,RB 01120000 *****************************************************************Y02668 01142002 * MODULE TRACE CODE - FOR TESTING. Y02668 01144002 L RF,TRACEV LOAD TRACE RTNE ADDR. Y02668 01146002 BALR RE,RF ENTER MOD ID IN TRACE RECORD. Y02668 01148002 TRACEV DC V(TRACE) TRACE RTNE ADDR. Y02668 01150002 DC C'VHM ' MOD ID USED BY TRACE. Y02668 01152002 * TRACE RETURNS HERE. Y02668 01154002 *****************************************************************Y02668 01156002 B F6 01160000 MODID BR=NO Y01886 01210001 DC C'SU 17' FUNCTION ID AND @G17SPTJ 01220041 DC C'01' LEV #(SLIP COMMAND) @G17SPTJ 01233041 F6 DS 0H 01240000 CLI 2(R9),X'40' 20107 01386017 BNE F64 20107 01392017 LR R6,R5 VERB 01400000 LA R2,1 INCREMENT 01420000 LA R3,8 01440000 AR R3,R6 LIMIT 01460000 F63 DS 0H 01480000 BXH R6,R2,F64 SCAN FOR A BLANK 01500000 CLI 0(R6),C' ' 01520000 BNE F63 01540000 SR R6,R5 FOUND, CALC VERB LENGTH 01560000 LA R1,TBL COMD LIST 01580000 LA R2,9 INCREMENT 01600000 LA R3,ENDTBL 01620000 F635 DS 0H SCAN COMMAND LIST 01640000 EX R6,COMPARE 01660000 BE F66 FOUND COMD 01680000 BXLE R1,R2,F635 01700000 * NOW SCAN ABBREVIATED COMMAND LIST 01720000 LA R3,ENDTBL2 END OF COMMAND TABLE COMPARAND 01740000 LA R2,2 INCREMENT 01760000 LA R1,TBL2 TABLE START 01780000 F636 DS 0H 01800000 EX R6,COMPARE 01820000 BE F66 FOUND 01840000 BXLE R1,R2,F636 LOOP UNTIL TABLE IS DONE 01860000 F64 DS 0H 01880000 TM SWA,JTOP **Q. JOB TO PROCESS 01886014 BZ F65 ** BRANCH - NO 01892014 LA R8,WAJOBPFX ADDR OF PSEUDO JOB PFX. Y02668 01900002 USING TEXT,R8 PREFIX ADDRESSABILITY. Y02668 01901002 OI STRJINDC,JTXJOBFL SET JOB FAILED BIT Y02668 01902002 DROP R8 Y02668 01903002 L RE,CTRLWAP GET LOCAL WORK AREA PTR Y02668 01904002 USING CWA,RE SET BASE Y02668 01908002 XC MSGKEY,MSGKEY ZERO SECONDARY MSG. KEY Y02668 01912002 DROP RE Y02668 01916002 LA R2,MSG5 MSG-NO VERB 01920000 OI AOSW1,AOILGLOP SET ILLEGAL OP SWITCH Y02668 01940002 * INDICATING A MESSAGE TO Y02668 01950002 * BE PRINTED Y02668 01960002 F65 DS 0H 01980000 OI AOSW1,AOPRTSW INDICATE PRINT OP TO VHEB Y02668 02000002 L RE,IEFVHAV SET UP EXIT Y02668 02010002 L RF,IEFVHEBV PRINT STMT AND MESSAGE IN Y02668 02020002 BR RF VHEB BEFORE GOING TO VHA Y02668 02030002 F66 DS 0H SET UP STMT FOR SVC 34 02040000 GETMAIN R,LV=92 MSG BUFFER MAX LENGTH FOR WTO XMCS 02045018 * AND WTOR - ECB REPLY CORE IF WTOR GMCS 02050018 LR R2,R1 GMCS 02055018 MVC MSGTEXT(E80),E0(R9) Y02668 02060002 LA R4,MSGTEXT+E79 Y02668 02065002 LA R3,E80 IMCS 02070018 F67 EQU * 02075018 CLI E0(R4),EBLANK IMCS 02080018 BNE F68 FOUND IT GMCS 02085018 BCTR R4,R0 DECREASE PTR GMCS 02090018 BCT R3,F67 DECREASE LENGTH GMCS 02095018 F68 EQU * GMCS 02100018 L R1,WANELPTR GET PTR TO NEL YM00386 02105002 USING NEL,R1 ADDRESS NEL YM00386 02107002 CLI NELCOMDS,IGNOREC SHOULD COMMAND BE IGNORED YM00386 02109002 BE F65 YES, DO NOT EXEC COMMAND YM00386 02111002 CLI NELCOMDS,EXONLY SHOULD COM BE DISPLAYED YM00386 02113002 BE F68G NO, ONLY EXECUTE IT YM00386 02115002 DROP R1 YM00386 02117002 MSGWTOMV EQU * GMCS 02120018 MVC MSGIDBF(E8),MSGID MOVE MSG ID TO WTO BUFFER IMCS 02125018 ST R3,CMDLENG STORE COMMAD LENGTH FOR SVC USE XMCS 02130018 C R3,NUM64 IS LENGTH OF COMMAND GREATER GMCS 02135018 * THAN 64 GMCS 02140018 LA R1,WTO1 .. XMCS 02145018 MVC MCSFLG(E2),E2(R1) MCS FLAGS TO WTO BUFFER IMCS 02150018 BNH F68A SINGLE WTO XMCS 02155018 B F68B MULTIPLE WTO'S TO BE SENT XMCS 02160018 F68A EQU * GMCS 02165018 A R3,HEX08 ADD 8 FOR MSG ID LENGTH GMCS 02170018 STH R3,WTOLENG MESSAGE LENGTH XMCS 02175018 MVC E1(E4,R4),E8(R1) DESC AND ROUTCDE PARAMETERS IMCS 02180018 ISSUE EQU * GMCS 02185018 LA R3,ECBBUF ECB PTR FOR WTOR XMCS 02190018 LA R4,REPLYBUF REPLY BUFFER PTR FOR WTOR XMCS 02195018 WTO MF=(E,(2)) ISSUE MESSAGE GMCS 02200018 B F68C TEST IF WTOR REQUIRED XMCS 02205018 F68B EQU * MULTIPLE WTO GMCS 02210018 MVC DESCRTC(E4),E8(R1) DESC AND ROUTCODE PARAMETERS IMCS 02215018 LA R4,E76 IMCS 02220018 STH R4,WTOLENG MSG LENGTH XMCS 02225018 WTO MF=(E,(2)) ISSUE FIRST PART OF MSG GMCS 02230018 S R3,NUM64 LENGTH OF COMMAND LEFT GMCS 02235018 LR R7,R9 GMCS 02240018 A R7,NUM64 XMCS 02245018 LR R4,R3 GMCS 02250018 BCTR R4,E0 SUBTRACT 1 IMCS 02255018 EX R4,MVIT MOVE REST OF MESSAGE IMCS 02260018 LA R4,E12(R2) IMCS 02265018 AR R4,R3 PT TO LAST CHAR IN MSG IMCS 02270018 BCTR R4,E0 SUBTRACT 1 IMCS 02275018 LA R1,WTO1 RE-SET PTR TO WTO TEXT M3178 02277019 B F68A GO ISSUE 2ND PART OF MSG IMCS 02280018 MVIT DS 0H Y02668 02285002 MVC MSGTEXT(E0),E0(R7) MOVE CMD TO DISPLAY TO OPER. Y02668 02287002 MVIT1 MVC COMDTXT(E0),E0(R9) MOVE CMD IMAGE FOR SVC 34 IMCS 02290018 F68C DS 0F GMCS 02295018 * MUST BE WTOR OR WTO AND MGCR 02340000 L R1,WANELPTR GET PTR TO NEL YM00386 02360002 USING NEL,R1 ADDRESS NEL YM00386 02363002 CLI NELCOMDS,ASKOPER MUST OPERATOR BE ASKED TO YM00386 02366002 * PROVIDE COMMAND DISP YM00386 02369002 BNE F68F1 NO, JUST EXEC COMMAND YM00386 02372002 DROP R1 YM00386 02375002 F68D EQU * XMCS 02380018 MVC E0(E61,R2),WTOREP IMCS 02390018 LR R1,R2 IMCS 02400018 ST R4,E0(R1) PTR TO REPLY IMCS 02410018 ST R3,E4(R1) PRT TO ECB IMCS 02420018 XC ECBBUF(E4),ECBBUF CLEAR OUT ECB IMCS 02430018 XC REPLYBUF(E1),REPLYBUF AND REPLY BUFFERS IMCS 02440018 MVI E0(R1),EHEX01 REPLY LENGTH IMCS 02450018 WTOR ,0(R4),1,0(R3),MF=(E,(1)) XMCS 02460018 WAIT 1,ECB=(R3) GMCS 02470018 CLI E0(R4),ECHARY IMCS 02480018 BE F68F1 YES, GO ISSUE COMMAND IMCS 02490018 CLI E0(R4),ECHARN IS IT A 'NO' ANSWER IMCS 02500018 BNE F68D NO, OPERATOR ERROR, TRY AGAIN XMCS 02510018 LA R4,F65 YES, PRESET FINAL BRANCH AND XMCS 02520018 * OMIT COMMAND XMCS 02530018 F68E EQU * XMCS 02540018 LR R1,R2 GMCS 02550018 FREEMAIN R,LV=92,A=(1) XMCS 02560018 BR R4 RETURN IMCS 02570018 F68G EQU * XMCS 02580018 LR R1,R3 XMCS 02590018 B F68F2 GO TO SET UP FOR SVC 34 XMCS 02600018 F68F1 EQU * XMCS 02610018 L R1,E88(R2) COMMAND LENGTH 02620018 F68F2 EQU * 02630018 BCTR R1,E0 SUBTRACT 1 IMCS 02640018 MVI MSGLEN,EHEX40 IMCS 02650018 MVC MSGLEN+E1(E91),MSGLEN IMCS 02660018 EX R1,MVIT1 MOVE CMD IMAGE FOR SVC 34 XMCS 02670018 A R1,HEX04 XMCS 02680018 SLL R1,E16 02690018 ST R1,MSGLEN COMMAND LENGTH XMCS 02700018 F686 DS 0H 02780000 ****************************************************************YM00386 02780502 * *YM00386 02780702 * CONVERT COMMAND AUTHORITY WHICH IS IN PRINTABLE HEX *YM00386 02780902 * TO BINARY TO PASS TO SVC 34 *YM00386 02781102 * *YM00386 02781302 ****************************************************************YM00386 02781502 SPACE 2 YM00386 02781702 L R3,CDAUTHWA LOAD WORK AREA CONTENTS. YM02718 02781902 LTR R3,R3 HAS AUTH BEEN CONVERTED YM00386 02782302 BNZ VHMSVC34 YES, BYPASS CONVERT YM00386 02782502 L R3,WANELPTR GET PTR TO NEL YM00386 02782702 USING NEL,R3 ADDRESS NEL YM00386 02782902 LA R4,NELAUTH GET PTR TO COMMAND AUTH YM00386 02783102 LA R7,CDAUTHWA ADDRESS OF WORK AREA. YM02718 02783302 LA R5,AUTHLEN LENGTH OF AUTH FIELD YM00386 02783502 * AN UNPACKED FORMAT OF FA-FF. YM00386 02783702 VHMCONVT DS 0H YM00386 02783902 CLI 0(R4),EBCDICF IS CHAR ALPHA(A THRU F) YM00386 02784102 BH VHMNUM NO, ASSUME IT IS NUMERIC YM00386 02784302 SR R6,R6 CLEAR R6 FOR INSERT YM00386 02784502 IC R6,0(R4) PUT CHAR IN R6 YM00386 02784702 LA R6,57(R6) ADD 57 TO CHAR VALUE YM00386 02784902 * BY ADDING 57, CHAR VALUES YM00386 02785102 * A-F(C1-C6) ARE CHANGED TO YM00386 02785302 * WHEN THESE VALUES(FA-FF) ARE YM00386 02785502 * PACKED THE LOW ORDER YM00386 02785702 * BITS(A-F) ARE RETAINED. YM00386 02785902 STC R6,0(R7) SAVE CONVRTED VALUE IN W.AREAYM00386 02786102 LA R7,1(R7) INCRE TO NEXT FIED IN W.AREA YM00386 02786302 LA R4,1(R4) INCRE TO NEXT COMAUTH CHAR YM00386 02786502 BCT R5,VHMCONVT GO BACK IF MORE CHARS YM00386 02786702 B VHMPACK IF FINISHED GO TO PACK YM00386 02786902 VHMNUM DS 0H YM00386 02787102 MVC E0(E1,R7),E0(R4) MOVE F0-F9 DIRECTLY FOR PACK YM01877 02787302 LA R7,1(R7) INCRE TO NEXT FIELD IN AREA YM00386 02787502 LA R4,1(R4) INCRE TO NEXT COMAUTH CHAR YM00386 02787702 BCT R5,VHMCONVT GO BACK IF MORE CHARS YM00386 02787902 VHMPACK DS 0H YM00386 02788102 PACK CDAUTHWA(4),CDAUTHWA PACK CONVERTED CHARS. YM02718 02788302 VHMSVC34 DS 0H 02788502 L R0,CDAUTHWA LOAD INTO REG FOR SVC 34. YM02718 02788702 SRL R0,4 SHIFT OUT SIGN BITS YM00386 02788902 O R0,NEGMASK INDIC(TO SVC34) THAT YM00386 02789102 * COMMAND IS FROM INPUT STREAM YM00386 02789302 MVI 4(R2),C'/' PUT / IN PLACE OF X 19687 02792017 MVI 5(R2),C'/' PUT / IN PLACE OF X 19687 02796017 * IN CASE COMD WAS IN A PROC. YM00386 02798002 MGCR (2) SCHEDULE COMMAND'S EXECUTION 02800000 LA R4,F65 XMCS 02830018 B F68E FREE BUF AND READ NEXT CARD XMCS 02860018 COMPARE CLC 0(1,R1),0(R5) 02900000 TBL EQU * COMMAND LIST 02920000 DC CL9'DISPLAY' 02940000 DC CL9'START' 02960000 DC CL9'STOP' 02980000 DC CL9'MOUNT' 03000000 DC CL9'UNLOAD' 03020000 DC CL9'HOLD' 03040000 DC CL9'LOG' 03060000 DC CL9'MODIFY' 03080000 DC CL9'RELEASE' 03100000 DC CL9'REPLY' 03120000 DC CL9'WRITELOG' 03140000 DC CL9'RESET' 03160000 DC CL9'CANCEL' 03180000 DC CL9'SET' 03200000 DC CL9'VARY' 03220000 DC CL9'CHNGDUMP' Y02668 03222002 DC CL9'MONITOR' M0381 03225020 DC CL9'SEND' M0381 03230020 DC CL9'SE' SEND ABBREVIATION M4557 03232020 DC CL9'MN' MONITOR M0381 03235020 DC CL9'CD' CHNGDUMP ABBREVIATION Y02668 03237002 DC CL9'SHIFT' 03240000 DC CL9'MSG' 03260000 DC CL9'CENOUT' 03280000 DC CL9'BRDCST' 03300000 DC CL9'STOPMN' Y02668 03306002 DC CL9'PM' STOPMN ABBREVIATION Y02668 03312002 DC CL9'USERID' 03320000 DC CL9'PAGEADD' @Z40WPSM 03326040 DC CL9'PA' PAGE ADD ABBREVIATION @Z40WPSM 03332040 DC CL9'SETDMN' @Z40BPSV 03333040 DC CL9'SD' SETDMN ABBREVIATION @Z40BPSV 03334040 DC CL9'SLIP' @G17SPTJ 03336041 DC CL9'SL' SLIP ABBREVIATION @G17SPTJ 03338041 ENDTBL DC CL9'SHOW' 03340000 * ACCEPTABLE ABBREVIATIONS FOR COMMANDS 03360000 * 03380000 TBL2 EQU * 03400000 DC CL2'D' DISPLAY 03420000 DC CL2'S' START 03440000 DC CL2'P' STOP 03460000 DC CL2'M' MOUNT 03480000 DC CL2'U' UNLOAD 03500000 DC CL2'H' HOLD 03520000 DC CL2'L' LOG 03540000 DC CL2'F' MODIFY 03560000 DC CL2'A' RELEASE 03580000 DC CL2'R' REPLY 03600000 DC CL2'W' WRITELOG 03620000 DC CL2'E' RESET 03640000 DC CL2'C' CANCEL 03660000 DC CL2'T' SET 03680000 ENDTBL2 DC CL2'V' VARY 03700000 MSG5 EQU 5 NO VERB 03720000 DS 0F XMCS 03725018 CLEAR0F DC X'0000FFFF' MASKS TO SPECIFY COMMAND FROM IMCS 03730018 NEGMASK DC X'80000000' INPUT STREAM 03735018 IEFVHAV DC V(IEFVHA) GET 03740000 IEFVHEBV DC V(IEFVHEB) Y02668 03760002 DS 0F GMCS 03761018 MSGID DC CL8'IEF165I ' MSG ID IMCS 03762018 REPLYDMY DS C AREA FOR WTOR REPLY IMCS 03763018 ECBDMY DS F WAIT ECB ADDR IMCS 03764018 DS 0F 03765018 HEX04 DC F'5' SIZE OF ROUT-DESC AREA PLUS 1 IMCS 03766018 HEX08 DC F'12' MSG ID LENGTH IMCS 03767018 NUM64 DC X'00000040' MAX LENGTH OF WTO IMCS 03768018 HEX02 EQU X'02' 03769018 DS 0F GMCS 03770018 WTO1 WTO ' ',MF=L,MCSFLAG=(RESP),DESC=(5),ROUTCDE=(1) 03771018 * GMCS 03772018 WTOREP WTOR 'IEF166D REPLY Y/N TO EXECUTE/SUPPRESS COMMAND',REPLYDMY*03773018 ,1,ECBDMY,MF=L,MCSFLAG=(RESP),DESC=(2),ROUTCDE=(1) 03774018 * GMCS 03775018 PATCH DC 25F'0' **********PATCH SPACE*********Y02668 03777002 END 03780000