ibm:vm370-lib:macro:ikqrpl.macro_src
Table of Contents
IKQRPL Source
References
- Fixes Applied : 0
- This Source Date : Monday, November 7, 1977
- Last Fix ID : [Unmodified]
Source Listing
- IKQRPL.MACRO.txt
- MACRO 00001000
- IKQRPL &DSECT=YES 00002000
- PUSH PRINT 00002100
- AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
- PRINT OFF,NOGEN 00002300
- .ACC01 ANOP 00002400
- * VSAM - IKQRPL - 5745-SC-VSM - REL. 31.0 INTERNAL VERSION 2.26 00003000
- AIF ('&DSECT' EQ 'NO').RPLNODS 00004000
- IKQRPL DSECT REQUEST PARAMETER LIST 00005000
- AGO .RPLDSCT 00006000
- .RPLNODS ANOP 00007000
- IKQRPL DS 0D 00008000
- .RPLDSCT ANOP 00009000
- RPLST EQU * START RPL 30.04.74 00010000
- RPLID DS XL1 RPL IDENTIFIER='00' 00011000
- RPLIDD EQU X'00' RPL EQUATE 00012000
- RPLSTYP DS XL1 SUBTYPE FIELD 00013000
- RPLLEN DS XL2 LEN OF THIS BLOCK 00014000
- RPLRBA DS 0CL4 RBA RETURN LOCATION 00015000
- RPLDDDD DS CL4 DD FIELD 00016000
- RPLARG DS A PTR. SEARCH ARGUMENT 00017000
- RPLRCD DS 0CL8 RECORD DESCRIPTION 00018000
- RPLAREA DS A PTR. AREA 00019000
- RPLRLEN DS A LENGTH OF RECORD 00020000
- RPLBUFL DS A USER BUFF SIZE 00021000
- RPLACB DS A PTR. TO ACB 00022000
- RPLDACB EQU RPLACB CATALOG COMPATABILITY 00023000
- RPLSTRID DS CL1 STRING IDENTIFIER 00024000
- RPLREQ DS XL1 REQUEST TYPE 00025000
- * 00026000
- * ACTION MACRO RPLTYPE * 00027000
- RPLPOINT EQU X'00' POINT REQUEST 00028000
- RPLGET EQU X'04' GET REQUEST 00029000
- RPLERASE EQU X'08' ERASE REQUEST 00030000
- RPLPUT EQU X'0C' PUT REQUEST 00031000
- RPLUPDTE EQU X'0C' UPDATE REQUEST 00032000
- RPLINSRT EQU X'10' INSERT REQUEST 00033000
- RPLCHECK EQU X'14' CHECK 00034000
- RPLRCLSE EQU X'18' RCLOSE 00035000
- RPLENDRQ EQU X'1C' ENDREQ 00036000
- RPLFRCIO EQU X'1C' FORCIO 00037000
- RPLVERFY EQU X'20' VERIFY 00038000
- RPLPUTL EQU X'24' PUT LOCATE 00039000
- * * 00040000
- RPLKEYL DS H KEY LENGTH (PROC=GEN) 00041000
- RPLOPTCD DS 0H OPTION CODES 00042000
- RPLOPT1 DS CL1 FIRST BYTE OF OPTIONS 00043000
- * 00044000
- * FIRST OPTION BYTE EQUATES * 00045000
- RPLKEY EQU X'80' KEYED ACCESS 00046000
- RPLADR EQU X'40' ADDRESSED ACCESS 00047000
- RPLSEQ EQU X'20' SEQUENTIAL 00048000
- RPLDIR EQU X'10' DIRECT PROCESSING 00049000
- RPLASY EQU X'08' ASYNCHRONOUS 00050000
- RPLSKP EQU X'04' SKIP SEQ ACCESS 00051000
- RPLCNV EQU X'02' CINV ACCESS (BY RBA) 00052000
- RPLUPD EQU X'01' UPDATE 00053000
- * * 00054000
- RPLOPT2 DS CL1 SECOND BYTE OF OPTIONS 00055000
- * 00056000
- * SECOND OPTION BYTE EQUATES * 00057000
- RPLKGE EQU X'80' SEARCH KEY GT/EQ 00058000
- RPLGEN EQU X'40' GENERIC KEY REQUEST 00059000
- RPLNSP EQU X'20' NOTE STRING POSITION 00060000
- RPLNUP EQU X'10' NO UPDATE 00061000
- RPLLOC EQU X'08' LOCATE MODE 00062000
- RPLUBF EQU X'04' USER BUFFERS 00063000
- RPLBWD EQU X'02' 0=FORWARDS 1=BACKWARDS 00064000
- RPLLRD EQU X'01' 0=ANY REC. 1=LAST REC. 00065000
- * * 00066000
- RPLHLD2 DS CL1 SECOND TEST AND SET BYTE 00067000
- RPLHLD DS CL1 TEST AND SET BYTE 00068000
- RPLFLAG DS CL1 FLAGBYTE 00069000
- * 00070000
- * FLAGBYTE EQUATES * 00071000
- RPLECBPR EQU X'80' CMS ECB INDICATOR 00072000
- * EQU X'40' RESERVED 00073000
- * EQU X'20' RESERVED 00074000
- * EQU X'10' RESERVED 00075000
- * EQU X'08' RESERVED 00076000
- * EQU X'04' RESERVED 00077000
- * EQU X'02' RESERVED 00078000
- * EQU X'01' RESERVED 00079000
- * * 00080000
- RPLFDBK DS 0CL3 ERROR FEEDBACK AREA 00081000
- RPLFDB1 DS 0CL1 ERROR CLASS CODE 00082000
- RPLRTNCD DS CL1 ERROR CLASS CODE 00083000
- RPLFDB2 DS CL1 FUNCTION TYPE CODE 00084000
- RPLFDB3 DS 0CL1 ERROR TYPE CODE 00085000
- RPLERRCD DS 0CL1 ERROR TYPE CODE 00086000
- RPLFDBKC DS XL1 ERROR TYPE CODE 00087000
- * 00088000
- * FUNCTION-TYPE-CODE EQUATES 00089000
- RPLFINC EQU X'01' INCOR.UPGRADE SET COND. 00090000
- RPLFAIX EQU X'02' AIX PROCESSING COND. 00091000
- RPLFUPG EQU X'04' UPG PROCESSING COND. 00092000
- * 00093000
- * * 00094000
- * THE FOLLOWING EQUATES ARE FOR THE VARIOUS FEEDBACK RETURNS * 00095000
- * THAT MAY BE SET. THEY FALL INTO THE FIVE CATEGORIES SHOWN. * 00096000
- * * 00097000
- * REGISTER 15 SETTING FOR ERROR FEEDBACK CODE * 00098000
- RPLNOERR EQU X'00' NO ERROR DETECTED 00099000
- RPLNORPL EQU X'04' CONCURENT REQUEST ON SAME RPL 00100000
- RPLLOGER EQU X'08' LOGICAL ERROR 00101000
- RPLPHYER EQU X'0C' PHYSICAL ERROR 00102000
- RPLVABND EQU X'3C' ABEND ENCOUNT. (VTAM) 00103000
- * TPIO PROHIBITED 00104000
- * 00105000
- * RETURNS THAT ARE NOT ERRORS (REGISTER 15 = 0) * 00106000
- RPLEOV EQU X'04' EOV CALLED DURING REQUEST 00107000
- RPLDPKEY EQU X'08' DUPLICATE KEY 00108000
- * 00109000
- * LOGICAL ERRORS (REGISTER 15 = 8) * 00110000
- RPLEOFDS EQU X'04' END OF DATA SET REACHED 00111000
- RPLEODER EQU X'04' END OF DATA SET REACHED 00112000
- RPLDUPRC EQU X'08' DUPLICATE RECORD 00113000
- RPLDUP EQU X'08' DUPLICATE RECORD 00114000
- RPLSEQCK EQU X'0C' SEQUENCE ERROR 00115000
- RPLNRFND EQU X'10' NO RECORD FOUND 00116000
- RPLNOREC EQU X'10' NO RECORD FOUND 00117000
- RPLEXCTL EQU X'14' DATA ALR IN EXCL CONTROL 00118000
- RPLNVOLM EQU X'18' VOLUME IS NOT MOUNTED 00119000
- RPLNRSPA EQU X'1C' DS CANNOT BE EXTENDED 00120000
- RPLNOEXT EQU X'1C' DS CANNOT BE EXTENDED 00121000
- RPLSPACE EQU X'1C' DS CANNOT BE EXTENDED 00122000
- RPLINRBA EQU X'20' INVALID RBA SPECIFIED 00123000
- RPLNKEYR EQU X'24' NO KEY RANGE SPEC FOR RECORD 00124000
- RPLNOVIR EQU X'28' INSUF VIRT STORAGE 00125000
- RPLWRKAS EQU X'2C' USER BUFFERS TOO SMALL 00126000
- RPLCDLOD EQU X'30' CDLOAD FAILURE 00127000
- RPLVLERR EQU X'34' INTERNAL VSAM LOGIC ERROR 00128000
- RPLNOPLH EQU X'40' PLH IN USE (NO STRING AVAIL) 00129000
- RPLNOPEN EQU X'44' ACCESS TYPE NOT REQ AT OPEN 00130000
- RPLKEYES EQU X'48' KEYED REQUEST FOR ESDS 00131000
- RPLADRKS EQU X'4C' ADDR OR CNV INSERT FOR KSDS 00132000
- RPLINERS EQU X'50' INVALID ERASE REQUEST 00133000
- RPLINLOC EQU X'54' INVALID SPEC OF LOCATE MODE 00134000
- RPLNOPOS EQU X'58' POSITIONING ERROR 00135000
- RPLNGUPD EQU X'5C' NO GET UPD ISSUED 00136000
- RPLUPDKC EQU X'60' KEY CHANGE FOR UPDATE 00137000
- RPLLENCN EQU X'64' LENGTH CHANGE FOR ADR UPDATE 00138000
- RPLCONOP EQU X'68' INVALID OR CONFL RPL OPT SPEC 00139000
- RPLIMRCL EQU X'6C' IMPROPER RECLEN SPECIFIED 00140000
- RPLIMGKL EQU X'70' IMP GENERIC KEYLEN SPECIFIED 00141000
- RPLINLD EQU X'74' INV REQ DURING DS LOADING 00142000
- RPLCATLG EQU X'80' INTERNAL CATALOG CALL FAILURE 00143000
- RPLSRLOC EQU X'84' ILLEGAL LOC MODE 00144000
- RPLSRADR EQU X'88' ILLEGAL REQ FOR SR 00145000
- RPLINCSR EQU X'8C' INCONSISTENT SPAN.REC. 00146000
- RPLNOBAS EQU X'90' NO BASE RECORD 00147000
- RPLMAXPT EQU X'94' MAX. PNT.S EXCEEDED 00148000
- RPLINVRR EQU X'C0' INVVALID REL.-REC. NO. 00149000
- RPLRRADR EQU X'C4' ILL. ADDR. REQ. RRDS 00150000
- RPLIPATH EQU X'C8' ILLEGAL PATH ACCESS 00151000
- RPLINBWD EQU X'CC' ILLEGAL BWD-MODE REQ. 00152000
- * 00153000
- * PHYSICAL ERROR (REGISTER 15 = 12) * 00154000
- RPLRDERD EQU X'04' READ ERROR IN DATA SET 00155000
- RPLRDERI EQU X'08' READ ERROR IN INDEX SET 00156000
- RPLRDERS EQU X'0C' READ ERROR IN SEQUENCE SET 00157000
- RPLWTERD EQU X'10' WRITE ERROR IN DATA SET 00158000
- RPLWTERI EQU X'14' WRITE ERROR IN INDEX SET 00159000
- RPLWTERS EQU X'18' WRITE ERROR IN SEQUENCE SET 00160000
- * * 00161000
- RPLCHAIN DS F POINTER TO NEXT RPL 00162000
- RPLAIXID DS CL1 AIX INFO BYTE 00163000
- * EQU X'80' RESERVED 00164000
- * EQU X'40' RESERVED 00165000
- * EQU X'20' RESERVED 00166000
- * EQU X'10' RESERVED 00167000
- * EQU X'08' RESERVED 00168000
- * EQU X'04' RESERVED 00169000
- * EQU X'02' RESERVED 00170000
- RPLAXPKP EQU X'01' PRIME KEY POINTERS 00171000
- DS CL1 PRIME POINTER LENGTH 00172000
- RPLAIXPC DS CL2 NO. OF POINTERS 00173000
- RPLMLOAD DS CL4 CBM MODULE LOAD ADDR. 00174000
- RPLEND DS 0F END RPL 00175000
- * END OF VSAM RPL * 00176000
- POP PRINT 00176100
- MEND 00177000
ibm/vm370-lib/macro/ikqrpl.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator