* 01050002 * %GO TO SYNL1; /* BILINGUAL MAPPING */ 01060002 MACRO 01110002 IGGSYN &DSECT=YES 01120002 .* 01130002 .*01 MODULE-NAME = IGGSYN 01140002 .* 01150002 .*01 COPYRIGHT = NONE 01160002 .* 01170002 .*01 STATUS = VS2 RELEASE 2 LEVEL 0 01180002 .* 01190002 .*01 CHANGE-ACTIVITY = 000 01200002 .* 01210002 .*01 DESCRIPTIVE-NAME = SYNADAF GENERAL REGISTERS SAVEAREA, 01220002 .* SYNADAF/SYNADRLS MESSAGE BUFFER AND SVRB EXTENDED SAVE AREAS 01230002 .* 01240002 .*01 FUNCTION = TO FORMAT THE MESSAGE TEXT 01250002 .* 01260002 .*01 MODULE-TYPE = MACRO 01270002 .* 01280002 .*02 PARAMETER-RECEIVED = DSECT 01290002 .* 01300002 .*03 TYPE = CHARACTER STRING 01310002 .* 01320002 .*04 VALUE = YES OR NO 01330002 .* 01340002 .*01 TABLES = NONE 01350002 .* 01360002 .*01 INNER-MACROS = NONE 01370002 .* 01380002 .*01 SYSTEM-MACROS = NONE 01390002 .* 01400002 .*01 NOTE = THERE ARE TWO MAPPING DSECTS IN THIS MACRO THE FIRST 01410002 .* ONE IS THE GENERAL REGISTERS SAVEAREA AND THE MESSAGE BUFFER 01420002 .* AREA AND THE SECOND ONE IS USING THE SVRB EXTENDED SAVEAREA 01430002 .* AS A WORK AREA FOR THE SYNADAF/SYNADRLS SVC. 01440002 * %SYNL1: ; 01450002 * /* MACCOMP Y-2 SC1D0/SJD48 */ 01460002 * /* MACSTAT Y-2 73138/021160 */ 01470002 */********************************************************************/ 02000002 */* */ 02050002 */* SYNADAF GENERAL REGISTERS SAVEAREA AND MESSAGE BUFFER AREA */ 02100002 */* */ 02200002 */* METHODS OF ACCESS */ 02350002 */* BAL -A DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED */ 02360002 */* USING ON SYN GIVES ADDRESSABILITY FOR ALL SYMBOLS */ 02400002 */* USING ON SYNWKA GIVES ADDRESSABILITY FOR MESSAGE */ 02450002 */* BUFFER AREA */ 02500002 */* PL/S-RESPECIFY ON SYN GIVES ADDRESSABILITY FOR ALL SYMBOLS */ 02550002 */* RESPECIFY ON SYNWKA GIVES ADDRESSABILITY FOR MESSAGE */ 02600002 */* BUFFER AREA */ 02650002 */* NOTE = IN A PLS INCLUDE, SYNBASE MAY BE DECLARED AS DEF(LABEL) */ 02660002 */* TO CAUSE IT TO BE USED IN A STRUCTURE. IF SYNBASE IS */ 02670002 */* OMITTED THE STRUCTURE IS DECLARED AS BASED. */ 02680002 */* */ 02700002 */********************************************************************/ 02750002 * 02800002 * %GO TO SYNL2; 02850002 AIF ('&DSECT' EQ 'NO').SYNNOD 02860002 SYN DSECT BUFFER DEF-USER 13 POINTS HERE 02870002 AGO .SYNCONT 02880002 .SYNNOD ANOP 02890002 DS 0D 02900002 SYN EQU * 02910002 .SYNCONT ANOP 02920002 * 02930002 * SYNADAF GENERAL REGISTERS SAVEAREA 02940002 * 02950002 SYNSAVE DS 0CL72 SAVE AREA 05000002 SYNPL1 DS F USED BY PL/1 LANGUAGE PROGRAM 05500002 SYNPREV DS F ADDRESS OF PREVIOUS SAVE AREA 06000002 SYNNEXT DS F ADDRESS OF NEXT SAVE AREA 06500002 SYNGRS DS 15F GENERAL REGISTER SAVE AREA 07000002 * 07010002 * MESSAGE BUFFER AREA 07020002 * 07030002 SYNWKA EQU * 07500002 SYNVLFLD DS 1D LENGTH FIELD FOR V.L. RECORDS 08000002 SYNMSG DS 0C DATA AREA 08500002 SYNREAD DS 0CL6 DATA AREA FOR READ 09000002 SYNRDERR DS 1F RETURN INFO IF READ ERROR 09500002 SYNBYTRD DS 1H NUMBER OF BYTES READ 10000002 SYNWAREA DS 0CL35 WORK AREA 10500002 SYNPURG DS 0C ERROR TYPE INDICATOR 11000002 SYNACMTH DS XL1 ACCESS METHOD INPUT CODE 11500002 DS CL1 UNUSED 12000002 SYNWRKA DS 0D WORK AREA 12500002 SYNWKA1 DS 1F WK1 13000002 SYNWKA2 DS 1F WK2 13500002 DS 1F UNUSED 14000002 SYNWORK DS CL20 WORK AREA 14500002 SYNSTART DS CL1 BLANK 15000002 SYNCMMA1 DS CL1 COMMA 15500002 SYNJOBNM DS CL8 JOBNAME 16000002 SYNCMMA2 DS CL1 COMMA 16500002 SYNSTPNM DS CL8 STEP NAME 17000002 SYNCMMA3 DS CL1 COMMA 17500002 SYNUNTID DS CL3 UNIT ADDRESS 18000002 SYNCMMA4 DS CL1 COMMA 18500002 SYNDVTYP DS CL2 DEVICE TYPE 19000002 SYNCMMA5 DS CL1 COMMA 19500002 SYNDDNM DS CL8 DD NAME 20000002 SYNCMMA6 DS CL1 COMMA 20500002 SYNOPRTN DS CL6 OPERATION ATTEMPTED 21000002 SYNCMMA7 DS CL1 COMMA 21500002 SYNERROR DS CL15 ERROR DESCRIPTION 22000002 SYNCMMA8 DS CL1 COMMA 22500002 SYNPOS DS 0CL14 AREA TO UNPACK ICB SEEK ADDRESS 23000002 SYNPOSM1 DS CL7 UNUSED-MAGNETIC TAPE 23500002 SYNPOSM2 DS 0CL7 AREA TO UNPACK BLOCK COUNT 24000002 * FOR MAGNETIC TAPE 24500002 SYNPOSMV DS CL6 UNPACK VALUE 25000002 SYNPOSMS DS CL1 SIGN BYTE IN UNPACK FORMAT 25500002 SYNCMMA9 DS CL1 COMMA 26000002 SYNACCSS DS CL5 ACCESS METHOD TYPE 26500002 SYNBLNK2 DS CL1 BLANK 27000002 SYNMSGLN EQU *-SYNMSG MESSAGE LENGTH 27500002 SYNPRMR1 DS F PARAMETER REGISTER SAVE AREA 28000002 SYNPRMR2 DS F PARAMETER REGISTER SAVE AREA 28500002 SYNEND DS 0F END OF IGGSYN 29000002 SYNLGTH EQU SYNEND-SYN LENGTH FOR GETMAIN 29010002 AGO .SYNSVRB 29020002 * 29030002 * %SYNL2: ; 29040002 * % IF SYNBASE = '' 29042002 * % THEN 29044002 * % SYNBASE = 'BASED'; 29046002 * 29050002 * DCL 1 SYN SYNBASE , /* BUFF DEF-USER 13 PTS HERE */ 29080002 * 2 SYNSAVE , /* SAVE AREA */ 29090002 * 3 SYNPL1 PTR(31) , /* USED BY PL/1 LANGUAGE PGM */ 29100002 * 3 SYNPREV PTR(31) , /* ADDR OF PREVIOUS SAVEAREA */ 29110002 * 3 SYNNEXT PTR(31) , /* ADDR OF NEXT SAVE AREA */ 29120002 * 3 SYNGRS CHAR(60) , /* GENERAL REGS SAVE AREA */ 29130002 * 2 SYNWKA , /* WORK AREA */ 29140002 * 3 SYNVLFLD CHAR(8) BDY(DWORD), /* LGTH FIELD */ 29150002 * 3 SYNMSG , /* DATA AREA */ 29160002 * 4 SYNREAD CHAR(6) BDY(WORD) , /*DATA AREA FOR READ*/ 29170002 * 5 SYNRDERR PTR(31) , /* RETURN INFO IF READ ERROR */ 29180002 * 5 SYNBYTRD FIXED(15), /* NUMBERS OF BYTES READ */ 29190002 * 4 SYNWAREA CHAR(35) , /* WORK AREA */ 29200002 * 5 SYNPURG CHAR(0) , /* ERROR TYPE INDICATOR */ 29210002 * 5 SYNACMTH PTR(8) , /* ACCESS METHOD INPUT CODE */ 29220002 * 5 * CHAR(1) , /* UNUSED */ 29230002 * 5 SYNWRKA CHAR(8) , /* WORK AREA */ 29240002 * 5 * CHAR(4) , /* UNUSED */ 29250002 * 5 SYNWORK CHAR(20) , /* WORK AREA */ 29260002 * 5 SYNSTART CHAR(1) , /* BLANK */ 29270002 * 4 SYNCMMA1 CHAR(1) , /* COMMA */ 29280002 * 4 SYNJOBNM CHAR(8) , /* JOBNAME */ 29290002 * 4 SYNCMMA2 CHAR(1) , /* COMMA */ 29300002 * 4 SYNSTPNM CHAR(8) , /* STEPNAME */ 29310002 * 4 SYNCMMA3 CHAR(1) , /* COMMA */ 29320002 * 4 SYNUNTID CHAR(3) , /* UNIT ADDRESS */ 29330002 * 4 SYNCMMA4 CHAR(1) , /* COMMA */ 29340002 * 4 SYNDVTYP CHAR(2) , /* DEVICE TYPE */ 29350002 * 4 SYNCMMA5 CHAR(1) , /* COMMA */ 29360002 * 4 SYNDDNM CHAR(8) , /* DD NAME */ 29370002 * 4 SYNCMMA6 CHAR(1) , /* COMMA */ 29380002 * 4 SYNOPRTN CHAR(6) , /* OPERATION ATTEMPTED */ 29390002 * 4 SYNCMMA7 CHAR(1) , /* COMMA */ 29400002 * 4 SYNERROR CHAR(15) , /* ERROR DESCRIPTION */ 29410002 * 4 SYNCMMA8 CHAR(1) , /* COMMA */ 29420002 * 4 SYNPOS CHAR(14) , /* AREA TO UNPACK ICB ADDR */ 29430002 * 5 SYNPOSM1 CHAR(7) , /* UNUSED-MAGNETIC TAPE */ 29440002 * 5 SYNPOSM2 CHAR(7) , /* AREA TO UNPACK BLOCK */ 29450002 * /* COUNT FOR MAGNETIC TAPE */ 29460002 * 6 SYNPOSMV CHAR(6) , /* UNPACK VALUE */ 29470002 * 6 SYNPOSMS CHAR(1) , /* SIGN BYTE IN UNPACK FORMAT*/ 29480002 * 4 SYNCMMA9 CHAR(1) , /* COMMA */ 29490002 * 4 SYNACCSS CHAR(5) , /* ACCESS METHOD TYPE */ 29500002 * 4 SYNBLNK2 CHAR(1) , /* BLANK */ 29510002 * 3 SYNPRMR1 PTR(31) , /* PARAMETER REG SAVEAREA */ 29520002 * 3 SYNPRMR2 PTR(31) ; /* PARAMETER REG SAVEAREA */ 29530002 * 29540002 * %SYNMSGLN = 'LENGTH(SYNMSG)'; /* MESSAGE LENGTH */ 29550002 * %SYNLGTH = 'LENGTH(SYN)'; /* LENGTH FOR GETMAIN */ 29560002 * 29570002 * %GO TO SYNL3; 29572002 .SYNSVRB ANOP 29580002 * %SYNL3: ; 29590002 */********************************************************************/ 33510002 */* */ 33512002 */* SYNADAF AND SYNADRLS SVRB EXTENDED SAVE AREA */ 33514002 */* */ 33514402 */* METHODS OF ACCESS */ 33514802 */* BAL -USING ON RBSECT GIVES ADDRESSABILITY FOR ALL SYMBOLS */ 33516802 */* PL/S-RESPECIFY ON RBSECPTR GIVES ADDRESSABILITY FOR ALL */ 33518802 */* SYMBOLS */ 33520802 */* NOTE */ 33524002 */* THIS DSECT MUST BE CODED AFTER THE RB MAPPING MACRO */ 33528002 */* */ 33530002 */********************************************************************/ 33532002 * 33542002 * %GO TO SYNL4; 33544002 RBPRFX DSECT SVRB PREFIX 33550002 ORG RBEXSAVE SVRB EXTENDED SAVE AREA 33600002 SYNRETA DS A RETURN ADDRESS 33650002 SYNXCTPL DS 0XL16 XCTL PARAMETER LIST 33700002 SYNXCTEP DS A ADDRESS OF THE ENTRY PT NAME 33750002 SYNXCTLT DS 0XL12 LIST OF PARAMETERS 33800002 SYNXCTDB DS A ADDRESS OF THE DCB 33850002 SYNXCTNM DS CL8 ENTRY POINT NAME 33900002 ORG SYNXCTNM+4 33950002 SYNXCTID DS CL1 LOAD MODULE ID 34000002 ORG SYNXCTNM+8 34010002 SYNESTPL ESTAE MF=L PARAMETER LIST FOR ESTAE RTN 34020002 SYNESFLG DS XL2 ESTAE ROUTINE FLAG BYTES 34050002 SYNGTM EQU X'80' RETURN FROM GETMAIN W/O ERROR 34060002 SYNCSA EQU X'40' SUCCESSFULLY CHAINED SAVE AREAS 34070002 SYNLMC EQU X'20' MESSAGE CSECT HAS BEEN LOADED 34080002 SYNRCS EQU X'10' CALLERS SAVE AREA HAS BEEN 34090002 * RESTORED SUCCESSFULLY 34092002 SYNESTAE EQU X'08' ESTAE ROUTINE HAD BEEN ENTERED 34094002 SYNURKEY DS XL1 USER KEY 34102002 SYNUNPKA DS CL9 WORK AREA FOR UNPACK 34104002 SYNRBXLN EQU *-RBEXSAVE AMOUNT OF EXSAVE AREA IN USE 34110002 MEND 34150002 * %SYNL4: ; 34200002 * 37500002 * DCL 1 * DEF(RBEXSAVE) , /* SVRB PREFIX */ 37600002 * 2 SYNRETA PTR(31) , /* RETURN ADDRESS */ 37650002 * 2 SYNXCTPL CHAR(16) BDY(WORD) , /* XCTL PARAM LIST */ 37700002 * 3 SYNXCTEP PTR(31) , /* ADDR OF ENTRY POINT NAME */ 37750002 * 3 SYNXCTLT CHAR(12) BDY(WORD) , /* LIST OF PARAM */ 37800002 * 4 SYNXCTDB PTR(31) , /* ADDRESS OF DCB */ 37850002 * 4 SYNXCTNM CHAR(8) , /* ENTRY POINT NAME */ 37900002 * 5 * CHAR(4) , /* PADDING */ 37950002 * 5 SYNXCTID CHAR(1) , /* LOAD MODULE ID */ 38000002 * 5 * CHAR(3) , /* PADDING */ 38050002 * 2 SYNESTPL CHAR(16) , /* PARAM LIST FOR ESTAE RTN */ 38060002 * 2 SYNESFLG CHAR(2) , /* ESTAE ROUTINE FLAG BYTES */ 38100002 * 4 SYNGTM BIT(1) , /* RET FR GETMAIN W/O ERROR */ 38200002 * 4 SYNCSA BIT(1) , /* SUCCESSFULLY CHAINED SA */ 38250002 * 4 SYNLMC BIT(1) , /* MSG CSECT HAS BEEN LOADED */ 38300002 * 4 SYNRCS BIT(1) , /* CALLERS SAVE AREA HAS BEEN */ 38350002 * /* RESTORED SUCCESSFULLY */ 38360002 * 4 SYNESTAE BIT(1) , /* ESTAE RTN HAS BEEN ENTERED */ 38400002 * 4 * BIT(11) , /* RESERVED */ 38450002 * 2 SYNURKEY CHAR(1) , /* USER KEY */ 38510002 * 2 SYNUNPKA CHAR(9) ; /* WORK AREA FOR UNPACK */ 38520002 * 38550002 * %SYNRBXLN = 'LENGTH(RBPRFX)'; /* AMT OF EXSAVE AREA IN USE */ 38600002