*% GOTO SPP002; /*BYPASS BAL EXPAN @ZA45504*/ 00060037 MACRO 00077602 IHASPP &DSECT=YES,&MDSECT=YES @G38ESMH 00100037 .* /* START OF SPECIFICATIONS **** 00101002 .* 00102002 .*01 MODULE-NAME = IHASPP 00103002 .* 00104002 .*01 COPYRIGHT = NONE 00105002 .* 00106002 .*01 STATUS = VS2 RELEASE 3.8 LEVEL 0 @G38ESMH 00107037 .* 00108002 .*01 DESCRIPTIVE-NAME = SETPRT PARAMETER LIST 00109002 .* 00110002 .*01 FUNCTION = USED TO DESCRIBE THE SETPRT PARAMETER LIST. 00111002 .* 00112002 .*01 MODULE-TYPE = MACRO 00113002 .* 00114002 .*02 MACRO-SIZE = NA FOR MAPPING MACRO 00115002 .* 00116002 .*02 PARAMETER-RECEIVED = NONE 00117002 .* 00118002 .*01 TABLES = NONE 00123002 .* 00124002 .*01 INNER-MACROS = NONE 00125002 .* 00126002 .*01 SYSTEM-MACROS = NONE 00127002 .* 00128002 .*01 CHANGE-ACTIVITY = SEE BELOW 00129002 .* VS2 REL 2 00130002 .* MACRO CREATED 00131002 .* VS2 REL 3.8 00132037 .* FEATURE FDM-1133 @G38ESMH 00132537 .* SYSOUT SERIALIZATION @ZA45504 00132637 .* 00132737 .* 00133002 .**** END OF SPECIFICATIONS ***/ 00134002 */* */ 00200002 */*THIS DSECT DESCRIBES THE FIELDS OF THE SETPRT (SVC 81) Y02072*/ 00250002 */*PARAMETER LIST. Y02072*/ 00350002 */* */ 00360002 */*DESCRIPTIVE LAYOUT */ 00361002 */* */ 00362002 */* +0 (00) ___________________________________________________ */ 00363002 */* | * | SPPDCBB | */ 00365002 */* +4 (04) |____________|____________________________________| */ 00366002 */* | SPPUCS | */ 00367002 */* +8 (08) |_________________________________________________| */ 00367202 */* | SPPLDMOD | SPPVERFY | SPPFDUNF | SPPFCB...| */ 00368002 */* +12 (0C) |____________|____________|____________|__________| */ 00368202 */* | ...SPPFCB | SPPVERAL | */ 00369002 */* +16 (10) |______________________________________|__________| */ 00370037 */* | SPPFLAG1 | SPPFLAG2 | SPPCPYNR | SPPSTCNR | */ 00370437 */* +20 (14) |____________|____________|____________|__________| */ 00370837 */* | SPPLEN @G38ESMH| SPPFRMNR | SPPTRC | */ 00375637 */* +24 (18) |_________________________|____________|__________| */ 00380837 */* | SPPMODPT | */ 00382837 */* +28 (1C) |_________________________________________________| */ 00384837 */* | SPPIMAGE | */ 00385237 */* +32 (20) |_________________________________________________| */ 00385337 */* | SPPXLAT1 | */ 00385437 */* +36 (24) |_________________________________________________| */ 00385537 */* | SPPXLAT2 | */ 00396237 */* +40 (28) |_________________________________________________| */ 00406237 */* | SPPXLAT3 | */ 00406637 */* +44 (2C) |_________________________________________________| */ 00407037 */* | SPPXLAT4 | */ 00407137 */* |_________________________________________________| */ 00410737 */* +48 (30) | SPPEMSGA @G38ESMH| */ 00411437 */* |_________________________________________________| */ 00412137 */* +52 (34) | SPPLIDCB @G38ESMH| */ 00412837 */* |_________________________________________________| */ 00413537 */* */ 00414337 */* */ 00417937 EJECT @G38ESMH 00419837 GBLB &IHA38E FEATURE FDM1133 VERSION @G38ESMH 00421737 &IHA38E SETB 1 SET FLAG TO INDICATE @G38ESMH 00423637 .* NEW VERSION OF IHASPP @G38ESMH 00425537 AIF ('&DSECT' EQ 'NO').SPPNODS NO DSECT? @Y40MSBB 00427937 SPPARM DSECT 00428637 AGO .SPPDSCT @Y40MSBB 00438637 .SPPNODS ANOP @Y40MSBB 00439037 SPPARM DS 0F @Y40MSBB 00439137 .SPPDSCT ANOP @Y40MSBB 00439237 SPPDCBA DS 0A SAME AS SPPDCBB BELOW 00439337 DS X FILLER 00450002 SPPDCBB DS AL3 ADDRESS OF USERS DCB 00500002 SPPUCS DS CL4 UCS IMAGE ID 00550002 SPPLDMOD DS X LOAD MODE 00600002 SPPVERFY DS X VERIFY UCS IMAGE 00650002 SPPFDUNF DS X OPTCD - FOLD OR UNFOLD 00700002 SPPFBLK EQU X'80' BLOCK DATA CHECKS 00750037 SPPFUBLK EQU X'40' UNBLOCK DATA CHECKS 00776637 SPPSCHED EQU X'20' SCHEDULE FOR IMMED PRT @G38ESMH 00803237 SPPNOSCD EQU X'10' DO NOT SCHED IMMED PRT @G38ESMH 00829837 SPPUNFLD EQU X'08' UNFOLD OPTION ASKED 00856437 SPPFOLD EQU X'04' FOLD OPTION ASKED 00883037 SPPEXTL EQU X'01' EXTENDED SETPRINT LIST 00910037 SPPFCB DS 0CL4 FCB IMAGE ID 00950037 SPPFCBAD DS 0AL4 FCB IMAGE ADDRESS 00960037 DS AL1 * 00970037 SPPFCBB DS AL3 * 00980037 SPPVERAL DS X VERIFY/ALIGN FCB 01000002 SPPVERIF EQU X'80' VERIFY IMAGE 01010002 * 01012037 SPPFLAG1 DS X FIRST BYTE OF FLAGS @Y40MSBB 01020037 SPPBURST EQU X'80' BURST OPTION ASKED @Y40MSBB 01030037 SPPREX EQU X'40' RETRANSMIT ASKED @Y40MSBB 01040037 SPPINIT EQU X'20' INIT REQUESTED @Y40MSBB 01042037 SPPNOMSG EQU X'10' SUPPRESS MESSAGE PRINT @G38ESMH 01042237 * 01042437 SPPBFREQ EQU X'08' BYPASS WTOR FOR FORMS OVERLAY 01042837 SPPBTREQ EQU X'04' BYPASS WTOR FOR BURST-THREAD 01043237 * @Y40MSBB 01044037 SPPBOMSG EQU X'02' BYPASS WCGM OVF. MSG. @G38ESMH 01044637 SPPFORC EQU X'01' JES FORCE LOAD @ZA35789 01045237 SPPFLAG2 DS X SECOND BYTE OF FLAGS @Y40MSBB 01046037 SPPMODI EQU X'80' COPY MOD @Y40MSBB 01048037 * ADDRESS SUPPLIED @Z40MSAP 01048137 SPPXLT10 EQU X'40' TRANSLATE TABLE 1 @Y40MSBB 01048437 * ADDRESS SUPPLIED @Z40MSAP 01048537 SPPXLT20 EQU X'20' TRANSLATE TABLE 2 @Y40SMBB 01048837 * ADDRESS SUPPLIED @Z40MSAP 01048937 SPPXLT30 EQU X'10' TRANSLATE TABLE 3 @Y40MSBB 01049237 * ADDRESS SUPPLIED @Z40MSAP 01049337 SPPXLT40 EQU X'08' THANSLATE TABLE 4 @Y40MABB 01049637 * ADDRESS SUPPLIED @Z40MSAP 01052437 SPPADFCB EQU X'04' FCB @Z40MSAP 01055437 * ADDRESS SUPPLIED @Z40MSAP 01057437 * @Y40MSBB 01058237 SPPCPYNR DS X NO OF COPIES @Z40MSAP 01061037 * TO BE PRINTED @Z40MSAP 01063037 SPPSTCNR DS X STARTING COPY NUMBER @Y40MSBB 01063837 SPPLEN DS XL2 PARMLIST LENGTH @G38ESMH 01066637 SPPFRMNR DS X NUMBER OF FORM OVERLAY @Z40MSAP 01076637 * FRAME FLASHED COPIES @Z40MSAP 01077037 SPPTRC DS X TABLE REF CHAR @Y40MSBB 01078637 * @Y40MSBB 01080637 SPPMODPT DS 0A COPY MODIFY @Y40MSBB 01081037 SPPMDPTA DS 0A COPY MOD NAME OR ADDR @Y40MSBB 01082637 DS X FILLER @Y40MSBB 01083037 SPPMDPTB DS AL3 COPY MODIFY ADDRESS @Y40MSBB 01083137 * @Y40MSBB 01083237 SPPIMAGE DS 0A FORMS OVERLAY @Y40MSBB 01085237 SPPIMAGA DS 0A IMAGE NAME OR ADDRESS @Y40MSBB 01085337 DS X FILLER @Y40MSBB 01087337 SPPIMAGB DS AL3 IMAGE ADDRESS @Y40MSBB 01087737 * @Y40MSBB 01088137 SPPXLAT1 DS 0A TRANSLATE TABLE 1 @Y40MSBB 01088537 SPPXLT1A DS 0A TRANS TABLE 1 NAME @Y40MSBB 01088837 DS X FILLER @Y40MSBB 01090837 SPPXLT1B DS AL3 TRANS TABLE 1 ADDRESS @Y40MSBB 01092837 * @Y40MSBB 01093237 SPPXLAT2 DS 0A TRANSLATE TABLE 2 @Y40MSBB 01093337 SPPXLT2A DS 0A TRANS TABLE 2 NAME @Y40MSBB 01093637 DS X FILLER @Y40MSBB 01094037 SPPXLT2B DS AL3 TRANS TABLE 2 ADDRESS @Y40MSBB 01094137 * @Y40MSBB 01094237 SPPXLAT3 DS 0A TRANSLATE TABLE 3 @Y40MSBB 01094337 SPPXLT3A DS 0A TRANS TABLE 3 NAME @Y40MSBB 01094437 DS X FILLER @Y40MSBB 01097037 SPPXLT3B DS AL3 TRANS TABLE 3 ADDRESS @Y40MSBB 01099037 * @Y40MSBB 01101037 SPPXLAT4 DS 0A TRANSLATE TABLE 4 @Y40MSBB 01101137 SPPXLT4A DS 0A TRANS TABLE 4 NAME @Y40MSBB 01101337 DS X FILLER @Y40MSBB 01101437 SPPXLT4B DS AL3 TRANS TABLE 4 ADDRESS @Y40MSBB 01101537 SPPEMSGA DS A USER MESSAGE AREA PTR. @G38ESMH 01101637 SPPLIDCB DS A USER LIB DCB ADDRESS @G38ESMH 01101737 SPPEND EQU * END OF SETPRT PARMLIST @G38ESMH 01101837 AIF ('&MDSECT' EQ 'NO').NOMSG NO MSG DSECT ? @G383SMH 01101937 EJECT @G38ESMH 01102037 ************************************************************** @G38ESMH 01102137 * MAP OF SETPRT MESSAGE COMMUNICATION AREA * @G38ESMH 01102237 ************************************************************** @G38ESMH 01102337 SPACE 1 @G38ESMH 01102437 SPPMCOMA DSECT @G38ESMH 01102537 SPPMCLEN DS XL2 LENGTH OF AREA @G38ESMH 01102637 SPPRSV02 DS XL2 RESERVED @G38ESMH 01102737 SPPRSV04 DS XL2 RESERVED @G38ESMH 01102837 SPPTXTL DS XL2 LENGTH OF RETURN TEXT @G38ESMH 01102937 SPPRSV08 DS XL2 RESERVED @G38ESMH 01103037 SPPTXT DS C RETURNED TEXT @G38ESMH 01103137 .NOMSG ANOP @G38ESMH 01103237 EJECT @G38ESMH 01103337 ***************************************************************@G38ESMH 01103437 * @G38ESMH 01103537 * SET PRINT ERROR RETURN CODES. THESE CODES WILL BE @G38ESMH 01103637 * PLACED IN THE PROPER LOCATION IN REGISTER 15, TO @G38ESMH 01103737 * INDICATE THE ERROR CONDITION THAT HAS OCCURED. @G38ESMH 01103837 * @G38ESMH 01103937 ***************************************************************@G38ESMH 01104037 * @G38ESMH 01104137 SPPSUCCP EQU X'00' SUCCESSFUL COMPLETION @G38ESMH 01104237 SPPIMNO EQU X'04' IMAGE NOT FOUND @G38ESMH 01104337 SPPBLDLP EQU X'08' BLDL PERMANENT @G38ESMH 01104437 * I/O ERROR @G38ESMH 01104537 SPPLOADP EQU X'0C' LOAD PERMANENT @G38ESMH 01104637 * I/O ERROR @G38ESMH 01104737 SPPREADP EQU X'10' READ PERMANENT @G38ESMH 01104837 * I/O ERROR @G38ESMH 01104937 SPPFCBV EQU X'14' WRONG FCB IMAGE @G38ESMH 01105037 SPPNOOP EQU X'18' NO OPERATION PERFORMED @G38ESMH 01105137 SPPUCERR EQU X'1C' NOP, PREVIOUS @G38ESMH 01105237 * UNCORRECTIABLE ERROR @G38ESMH 01105337 SPPSPACE EQU X'20' INSUFFICIENT SPACE @G38ESMH 01105437 SPPIMLIB EQU X'24' IMAGE LIBRARY CAN @G38ESMH 01105537 * NOT BE OPENED @G38ESMH 01105637 SPPFOVLF EQU X'28' CAN NOT LOAD FORMS @G38ESMH 01105737 * OVERLAY FRAME @G38ESMH 01105837 SPPCANCL EQU X'2C' OPERATOR CANCELED @G38ESMH 01105937 SPPMCGM EQU X'30' TOO MANY CGMS @G38ESMH 01106037 * REQUESTED @G38ESMH 01106137 SPPTRCIN EQU X'34' COPY MOD TRC @G38ESMH 01106237 * FIELD INVALID @G38ESMH 01106337 SPPEODSR EQU X'38' ERROR WHILE @G38ESMH 01106437 * ISSUING EODS @G38ESMH 01106537 SPPNOBR EQU X'3C' NO BURSTER/SHEET @G38ESMH 01106637 * STACKERFEATURE @G38ESMH 01106737 * INSTALLED @G38ESMH 01106837 SPPPIOER EQU X'40' A PERMENT I/O ERROR @G38ESMH 01106937 * HAS OCCURED @G38ESMH 01107037 SPPNOCGM EQU X'44' CGM NOT SPECIFIED IN @G38ESMH 01107137 * CHARACTER ARRANGEMENT @G38ESMH 01107237 * TABLE TRAILER @G38ESMH 01107337 SPPLDATA EQU X'48' LOST DATA DUE TO CANCEL@G38ESMH 01107437 * KEY OR SYSTEM RESTART @G38ESMH 01107537 SPPLDCHK EQU X'4C' I/O ERROR LOAD CHECK @G38ESMH 01107637 SPPSPOOL EQU X'50' ERROR ON SETPRT-SYSOUT @G38ESMH 01107737 EJECT @G38ESMH 01107837 *********************************************************************** 01107937 * * 01108037 * SET PRINT 3800 REASON CODES. THESE CODES WILL APPEAR IN * 01108137 * REGISTER 0, WHEN AN ERROR CONDITION IS RETURNED. * 01108237 * * 01108337 *********************************************************************** 01108437 * @G38ESMH 01108537 SPPTRTBL EQU X'04' TRANSLATE TABLE @G38ESMH 01108637 SPPPJAM EQU X'04' PRINTER SYSTEM RESTART @G38ESMH 01108737 SPPISTOR EQU X'04' IN STORAGE ADDRESS @G38ESMH 01108837 * SPECIFIED FOR SYSOUT @G38ESMH 01108937 SPPCPMOD EQU X'08' COPY MODIFY RECORD @G38ESMH 01109037 SPPCNCLK EQU X'08' CANCEL KEY @G38ESMH 01109137 SPPJFCB EQU X'08' ERROR REDING JFCB OR @G38ESMH 01109237 * JFCBE FOR SYSOUT DATA @G38ESMH 01109337 SPPCPNR EQU X'0C' COPY NUMBER @G38ESMH 01109437 SPPCLOSE EQU X'0C' CLOSE SSI ERROR @G38ESMH 01109537 SPPGCMR EQU X'10' GRAPHIC CHARACTER @G38ESMH 01109637 * MODULE RECORD @G38ESMH 01109737 SPPOPEN EQU X'10' OPEN SSI ERROR @G38ESMH 01109837 SPPFOSEQ EQU X'14' FORMS OVERLAY @G38ESMH 01109937 * SEQUENCE CONTROL @G38ESMH 01110037 * RECORD @G38ESMH 01110137 SPPSFA EQU X'14' SPOOL FILE ALLOCATION @G38ESMH 01110237 * ERROR FOR SYSOUT DATA @G38ESMH 01110337 SPPLCS EQU X'18' LIBRARY CHARACTER SET @G38ESMH 01110437 SPPENQ EQU X'18' SYSOUT TIOT ENQ ERROR @ZA45504 01110537 SPPCGMR EQU X'1C' CHARACTER GENERATION @G38ESMH 01110637 * MODULE @G38ESMH 01110737 SPPOPCT EQU X'1C' MULTIPLE SYSOUT DCBS @ZA45504 01110837 SPPFCBRC EQU X'20' FORMS CONTROL BUFFER @G38ESMH 01110937 AIF ('&DSECT' EQ 'NO' OR '&MDSECT' EQ 'NO').SKIPD @G38ESMH 01111037 SPACE 2 @G38ESMH 01111137 SPPARM DSECT RESUME PARMLIST DSECT @G38ESMH 01111237 .SKIPD ANOP @G38ESMH 01111337 SPACE 1 @G38ESMH 01111437 MEND 01111537 *%SPP002:; /* Y02072*/ 01111637 */* */ 01111737 */*THIS STRUCTURE DESCRIBES THE FIELDS OF THE SETPRT (SVC 81) */ 01111837 */*PARAMETER LIST. */ 01112237 */* */ 01114937 */*DESCRIPTIVE LAYOUT */ 01117637 */* */ 01120337 */* +0 (00) ___________________________________________________ */ 01123037 */* | * | SPPDCBB | */ 01125737 */* +4 (04) |____________|____________________________________| */ 01128437 */* | SPPUCS | */ 01131137 */* +8 (08) |_________________________________________________| */ 01133837 */* | SPPLDMOD | SPPVERFY | SPPFDUNF | SPPFCB...| */ 01136537 */* +12 (0C) |____________|____________|____________|__________| */ 01139237 */* | ...SPPFCB | SPPVERAL | */ 01141937 */* +16 (10) |______________________________________|__________| */ 01144637 */* | SPPFLAG1 | SPPFLAG2 | SPPCPYNR | SPPSTCNR | */ 01146637 */* +20 (14) |____________|____________|____________|__________| */ 01147037 */* | SPPLEN @G38ESMH| SPPFRMNR | SPPTRC | */ 01147137 */* +24 (18) |_________________________|____________|__________| */ 01147237 */* | SPPMODPT | */ 01160437 */* +28 (1C) |_________________________________________________| */ 01170437 */* | SPPIMAGE | */ 01172437 */* +32 (20) |_________________________________________________| */ 01172837 */* | SPPXLAT1 | */ 01173237 */* +36 (24) |_________________________________________________| */ 01173337 */* | SPPXLAT2 | */ 01173437 */* +40 (28) |_________________________________________________| */ 01173537 */* | SPPXLAT3 | */ 01177937 */* +44 (2C) |_________________________________________________| */ 01182337 */* | SPPXLAT4 | */ 01186737 */* |_________________________________________________| */ 01188737 */* +48 (30) | SPPEMSGA @G38ESMH| */ 01189137 */* |_________________________________________________| */ 01189537 */* +52 (34) | SPPLIDCB @G38ESMH| */ 01189937 */* |_________________________________________________| */ 01190337 */* */ 01191237 *DCL 1 SPPARM BASED, /* Y02072*/ 01195637 * 2 SPPDCBA PTR (31), /*SAME AS SPPDCBB Y02072*/ 01200002 * 3 * CHAR(1), /*NOT USED Y02072*/ 01250002 * 3 SPPDCBB PTR(24), /*DCB ADDRESS Y02072*/ 01300002 * 2 SPPUCS CHAR(4), /*UCS IMAGE ID Y02072*/ 01350002 * 2 SPPLDMOD CHAR(1), /*LOAD MODE Y02072*/ 01400002 * 2 SPPVERFY CHAR(1), /*VER UCS IMAGE Y02072*/ 01450002 * 2 SPPFDUNF BIT(8), /*OPTCD-FOLD/UNFOLD Y02072*/ 01500002 * 3 SPPFBLK BIT(1), /*BLOCK DATA CHK Y02072*/ 01550002 * 3 SPPFUBLK BIT(1), /*UNBLOCK DATA CHK Y02072*/ 01600002 * 3 SPPSCHED BIT(1), /*SCHED FOR IMMED PRT@G38ESMH*/ 01650037 * 3 SPPNOSCD BIT(1), /*DO NOT PRINT IMMED @G38ESMH*/ 01675037 * 3 SPPUNFLD BIT(1), /*UNFOLD OPT ADKED Y02072*/ 01700002 * 3 SPPFOLD BIT(1), /*FOLD OPT ADKED Y02072*/ 01750002 * 3 * BIT(1), /*NOT USED Y02072*/ 01800037 * 3 SPPEXTL BIT(1), /*LONG LIST */ 01810037 * 2 SPPFCBAD PTR(31)BDY(WORD,4),/*FCB IMAGE ADDRESS @Z40MSTT*/ 01850037 * 3 SPPFCB CHAR(4) /*FCB IMAGE ID */ 01860037 * BDY(WORD,4), /* @G38ESMH*/ 01865037 * 4 * CHAR(1), /* */ 01870037 * 4 SPPFCBB PTR(24)BDY(WORD),/* @Z40MSTT*/ 01880037 * 2 SPPVERAL CHAR(1), /*VER/ALIGN FCB Y02072*/ 01900002 * 3 SPPVERIF BIT(1), /*VERIFY IMAGE Y02072*/ 01910037 * 2 SPPFLAG1 BIT(8), /*FIRST BYTE OF FLAGS@Y40MSBB*/ 01920037 * 3 SPPBURST BIT(1), /*BURST OPTION ASKED @Y40MSBB*/ 01930037 * 3 SPPREX BIT(1), /*RETRANSMIT ASKED @Y40MSBB*/ 01940037 * 3 SPPINIT BIT(1), /* INIT REQUESTED @Z40MSAP*/ 01942037 * 3 SPPNOMSG BIT(1), /*SUPPRESS MSG PRT. @G38ESMH*/ 01944037 * 3 SPPBFREQ BIT(1), /*BYPASS FORMS OVERLAY WTOR */ 01944237 * 3 SPPBTREQ BIT(1), /*BYPASS BURST-THREAD WTOR */ 01944437 * 3 SPPBOMSG BIT(1), /*BYPASS WCGM OVF MSG@G38ESMH*/ 01944637 * 3 SPPFORC BIT(1), /*JES FORCE LOAD @ZA35789*/ 01944937 * 2 SPPFLAG2 BIT(8), /*SECOND BYTE FLAGS @Y40MSBB*/ 01946037 * 3 SPPMODI BIT(1), /*COPY MOD @Z40MSAP*/ 01948037 * /* ADDRESS SUPPLIED @Z40MSAP*/ 01948137 * 3 SPPXLT10 BIT(1), /* TRANSLATE TABLE 1 @Z40MSAP*/ 01948437 * /* ADDRESS SUPPLIED @Z40MSAP*/ 01948537 * 3 SPPXLT20 BIT(1), /* TRANSLATE TABLE 2 @Z40MSAP*/ 01948837 * /* ADDRESS SUPPLIED @Z40MSAP*/ 01948937 * 3 SPPXLT30 BIT(1), /* TRANSLATE TABLE 3 @Z40MSAP*/ 01949237 * /* ADDRESS SUPPLIED @Z40MSAP*/ 01949337 * 3 SPPXLT40 BIT(1), /* TRANSLATE TABLE 4 @Z40MSAP*/ 01949637 * /* ADDRESS SUPPLIED @Z40MSAP*/ 01952937 * 3 SPPADFCB BIT(1), /* FCB IMAGE @Z40MSAP*/ 01956837 * /* ADDRESS SUPPLIED @Z40MSAP*/ 01961137 * 3 * BIT(2), /*NOT USED @Y40MSBB*/ 01963337 * 2 SPPCPYNR PTR(8), /* NUMBER OF COPIES @Z40MSAP*/ 01963437 * /* TO BE PRINTED @Z40MSAP*/ 01968137 * 2 SPPSTCNR PTR(8), /*STARTING COPY NR @Y40MSBB*/ 01971437 * 2 SPPLEN FIXED(15), /*LENGTH OF PARMLIST @G38ESMH*/ 01972937 * 2 SPPFRMNR PTR(8), /* NUMBER OF FORM @Z40MSAP*/ 01974437 * /* OVERLAY FRAME @Z40MSAP*/ 01976437 * /* FLASHED COPIES @Z40MSAP*/ 01976537 * 2 SPPTRC CHAR(1), /*TABLE REF CHAR @Y40MSBB*/ 01976637 * 2 SPPMODPT PTR(31), /*COPY MODIFY @Y40MSBB*/ 01977437 * 3 SPPMDPTA CHAR(4) /*COPY MOD NAME @Y40MSBB*/ 01978937 * BDY(WORD), /* @G38ESMH*/ 01979737 * 4 * CHAR(1), /*NOT USED @Y40MSBB*/ 01980637 * 4 SPPMDPTB PTR(24), /*COPY MOD ADDRESS @Y40MSBB*/ 01982637 * 2 SPPIMAGE CHAR(4), /*FORMS OVERLAY @Y40MSBB*/ 01983437 * /*FRAME NAME @Y40MSBB*/ 01984937 * 2 SPPXLAT1 PTR(31), /*TRANSLATE TABLE 1 @Y40MSBB*/ 01986437 * 3 SPPXLT1A CHAR(4) /*TRANS TABLE 1 NAME @Y40MSBB*/ 01988837 * BDY(WORD), /* @G38ESMH*/ 02038837 * 4 * CHAR(1), /*NOT USED @Y40MSBB*/ 02088837 * 4 SPPXLT1B PTR(24), /*TRANS TABLE 1 ADDR @Y40MSBB*/ 02138837 * 2 SPPXLAT2 PTR(31), /*TRANSLATE TABLE 2 @Y40MSBB*/ 02188837 * 3 SPPXLT2A CHAR(4) /*TRANS TABLE 2 NAME @Y40MSBB*/ 02238837 * BDY(WORD), /* @G38ESMH*/ 02288837 * 4 * CHAR(1), /*NOT USED @Y40MSBB*/ 02338837 * 4 SPPXLT2B PTR(24), /*TRANS TABLE 2 ADDR @Y40MSBB*/ 02388837 * 2 SPPXLAT3 PTR(31), /*TRANSLATE TABLE 3 @Y40MSBB*/ 02438837 * 3 SPPXLT3A CHAR(4) /*TRANS TABLE 3 NAME @Y40MSBB*/ 02488837 * BDY(WORD), /* @G38ESMH*/ 02538837 * 4 * CHAR(1), /*NOT USED @Y40MSBB*/ 02588837 * 4 SPPXLT3B PTR(24), /*TRANS TABLE 3 ADDR @Y40MSBB*/ 02638837 * 2 SPPXLAT4 PTR(31), /*TRANSLATE TABLE 4 @Y40MSBB*/ 02688837 * 3 SPPXLT4A CHAR(4) /*TRANS TABLE 4 NAME @Y40MSBB*/ 02738837 * BDY(WORD), /* @G38ESMH*/ 02788837 * 4 * CHAR(1), /*NOT USED @Y40MSBB*/ 02838837 * 4 SPPXLT4B PTR(24), /*TRANS TABLE 4 ADDR @Y40MSBB*/ 02888837 * 2 SPPEMSGA PTR(31), /*MSG. AREA POINTER @G38ESMH*/ 02938837 * 2 SPPLIDCB PTR(31); /*LIB DCB POINTER @G38ESMH*/ 02988837 *DCL SPPXLAT(4) PTR(31) BASED(ADDR(SPPXLAT1)); /*ARRAY @Y40MSBB*/ 03038837 */********************************************************************* 03088837 ** ** 03138837 ** THE FOLLOWING STRUCTURE MAPS THE ERROR MESSAGE AREA ** 03188837 ** ** 03238837 **********************************************************************/ 03288837 * DECLARE 03338837 * 1 SPPMCOMA BASED(SPPEMSGA), /* MESSAGE @G38ESMH*/ 03388837 * /* COMMUNICATION AREA @G38ESMH*/ 03438837 * 2 SPPMCLEN FIXED(15) BDY(BYTE), /* TOTAL LENGTH OF @G38ESMH*/ 03488837 * /* AREA @G38ESMH*/ 03538837 * 2 SPPRSV02 FIXED(15) BDY(BYTE), /* RESERVED @G38ESMH*/ 03588837 * 2 SPPRSV04 FIXED(15) BDY(BYTE), /* RESERVED @G38ESMH*/ 03638837 * 2 SPPTXTL FIXED(15) BDY(BYTE), /* LENGTH OF TEXT @G38ESMH*/ 03688837 * 2 SPPRSV08 FIXED(15) BDY(BYTE), /* RESERVED @G38ESMH*/ 03738837 * 2 SPPTXT CHAR(*); /* FORMATTED TEXT @G38ESMH*/ 03788837 * 03838837 */***********************************************************@G38ESMH** 03888837 ** @G38ESMH** 03938837 ** SET PRINT ERROR RETURN CODES. THESE CODES WILL BE @G38ESMH** 03988837 ** PLACED IN THE PROPER LOCATION IN REGISTER 15, TO @G38ESMH** 04038837 ** INDICATE THE ERROR CONDITION THAT HAS OCCURED. @G38ESMH** 04088837 ** @G38ESMH** 04138837 *************************************************************@G38ESMH*/ 04188837 * /* @G38ESMH*/ 04238837 * DECLARE /* @G38ESMH*/ 04288837 * SPPSUCCP BIT(8) /* SUCCESSFUL @G38ESMH*/ 04338837 * CONSTANT('00'X), /* COMPLETION @G38ESMH*/ 04388837 * SPPIMNO BIT(8) /* IMAGE NOT FOUND @G38ESMH*/ 04438837 * CONSTANT('04'X), /* @G38ESMH*/ 04488837 * SPPBLDLP BIT(8) /* BLDL PERMANENT @G38ESMH*/ 04538837 * CONSTANT('08'X), /* I/O ERROR @G38ESMH*/ 04588837 * SPPLOADP BIT(8) /* LOAD PERMANENT @G38ESMH*/ 04638837 * CONSTANT('0C'X), /* I/O ERROR @G38ESMH*/ 04688837 * SPPREADP BIT(8) /* READ PERMANENT @G38ESMH*/ 04738837 * CONSTANT('10'X), /* I/O ERROR @G38ESMH*/ 04788837 * SPPFCBV BIT(8) /* WRONG FCB IMAGE @G38ESMH*/ 04838837 * CONSTANT('14'X), /* @G38ESMH*/ 04888837 * SPPNOOP BIT(8) /* NO OPERATION @G38ESMH*/ 04938837 * CONSTANT('18'X), /* PERFORMED @G38ESMH*/ 04988837 * SPPUCERR BIT(8) /* NOP, PREVIOUS @G38ESMH*/ 05038837 * CONSTANT('1C'X), /* UNCORRECTIABLE @G38ESMH*/ 05088837 * /* ERROR @G38ESMH*/ 05138837 * SPPSPACE BIT(8) /* INSUFFICIENT @G38ESMH*/ 05188837 * CONSTANT('20'X), /* SPACE @G38ESMH*/ 05238837 * SPPIMLIB BIT(8) /* IMAGE LIBRARY CAN @G38ESMH*/ 05288837 * CONSTANT('24'X), /* NOT BE OPENED @G38ESMH*/ 05338837 * SPPFOVLF BIT(8) /* CAN NOT LOAD @G38ESMH*/ 05388837 * CONSTANT('28'X), /* FORMS OVERLAY @G38ESMH*/ 05438837 * /* FRAME @G38ESMH*/ 05488837 * SPPCANCL BIT(8) /* OPERATOR @G38ESMH*/ 05538837 * CONSTANT('2C'X), /* CANCELED @G38ESMH*/ 05588837 * SPPMCGM BIT(8) /* TOO MANY CGMS @G38ESMH*/ 05638837 * CONSTANT('30'X), /* REQUESTED @G38ESMH*/ 05688837 * SPPTRCIN BIT(8) /* COPY MOD TRC @G38ESMH*/ 05738837 * CONSTANT('34'X), /* FIELD INVALID @G38ESMH*/ 05788837 * SPPEODSR BIT(8) /* ERROR WHILE @G38ESMH*/ 05838837 * CONSTANT('38'X), /* ISSUING INIT. PRT @G38ESMH*/ 05888837 * SPPNOBR BIT(8) /* NO BURSTER TRIMMER@G38ESMH*/ 05938837 * CONSTANT('3C'X), /* STACKER FEATURE @G38ESMH*/ 05988837 * /* INSTALLED @G38ESMH*/ 06038837 * SPPPIOER BIT(8) /* A PERMANENT I/O @G38ESMH*/ 06088837 * CONSTANT('40'X), /* ERROR HAS OCCURED @G38ESMH*/ 06138837 * SPPNOCGM BIT(8) /* CGM NOT SPECIFIED @G38ESMH*/ 06188837 * CONSTANT('44'X), /* IN CHARACTER @G38ESMH*/ 06238837 * /* ARRANGEMENT TABLE @G38ESMH*/ 06288837 * SPPLDATA BIT(8) /* LOST DATA DUE TO @G38ESMH*/ 06338837 * CONSTANT('48'X), /* SYSTEM RESTART OR @G38ESMH*/ 06388837 * /* CANCEL KEY @G38ESMH*/ 06438837 * SPPLDCHK BIT(8) /* I/O ERROR @G38ESMH*/ 06488837 * CONSTANT('4C'X), /* LOAD CHECK @G38ESMH*/ 06538837 * SPPSPOOL BIT(8) /* ERROR ON SETPRT @G38ESMH*/ 06588837 * CONSTANT('50'X); /* TO SYSOUT DATASET @G38ESMH*/ 06638837 */***********************************************************@G38ESMH** 06688837 ** @G38ESMH** 06738837 ** SET PRINT 3800 REASON CODES. THESE CODES WILL APPEAR@G38ESMH** 06788837 ** IN REGISTER 0, WHEN AN ERROR CONDITION IS RETURNED. @G38ESMH** 06838837 ** @G38ESMH** 06888837 *************************************************************@G38ESMH*/ 06938837 * /* @G38ESMH*/ 06988837 * DECLARE /* @G38ESMH*/ 07038837 * SPPTRTBL BIT(8) /* TRANSLATE TABLE @G38ESMH*/ 07088837 * CONSTANT('04'X), /* @G38ESMH*/ 07138837 * SPPPJAM BIT(8) /* SYSTEM RESTART @G38ESMH*/ 07188837 * CONSTANT('04'X), /* PAPER JAM @G38ESMH*/ 07238837 * SPPCLOSE BIT(8) /* SETPRT TO SYSOUT @G38ESMH*/ 07288837 * CONSTANT('04'X), /* CLOSE SSI ERROR @G38ESMH*/ 07338837 * SPPCPMOD BIT(8) /* COPY MODIFY @G38ESMH*/ 07388837 * CONSTANT('08'X), /* RECORD @G38ESMH*/ 07438837 * SPPCNCLK BIT(8) /* CANCEL KEY @G38ESMH*/ 07488837 * CONSTANT('08'X), /* @G38ESMH*/ 07538837 * SPPUNAL BIT(8) /* SETPRT TO SYSOUT @G38ESMH*/ 07588837 * CONSTANT('08'X), /* UNALLOCATE SSI ERR@G38ESMH*/ 07638837 * SPPCPNR BIT(8) /* COPY NUMBER @G38ESMH*/ 07688837 * CONSTANT('0C'X), /* @G38ESMH*/ 07738837 * SPPALLOC BIT(8) /* SETPRT TO SYSOUT @G38ESMH*/ 07788837 * CONSTANT('0C'X), /* ALLOCATE SSI ERROR@G38ESMH*/ 07838837 * SPPGCMR BIT(8) /* GRAPHIC CHARACTER @G38ESMH*/ 07888837 * CONSTANT('10'X), /* MODULE RECORD @G38ESMH*/ 07938837 * SPPOPEN BIT(8) /* SETPRT TO SYSOUT @G38ESMH*/ 07988837 * CONSTANT('10'X), /* OPEN SSI ERROR @G38ESMH*/ 08038837 * SPPFOSEQ BIT(8) /* FORMS OVERLAY @G38ESMH*/ 08088837 * CONSTANT('14'X), /* SEQUENCE CONTROL @G38ESMH*/ 08138837 * /* RECORD @G38ESMH*/ 08188837 * SPPSFA BIT(8) /* SPOOL FILE @ZA45504*/ 08201237 * CONSTANT('14'X), /* ALLOCATION ERROR @ZA45504*/ 08251237 * /* FOR SYSOUT DATA @ZA45504*/ 08301237 * SPPLCS BIT(8) /* LIBRARY CHARACTER @G38ESMH*/ 08351237 * CONSTANT('18'X), /* SET @G38ESMH*/ 08401237 * SPPENQ BIT(8) /* SYSOUT TIOT ENQ @ZA45504*/ 08451237 * CONSTANT('18'X), /* FAILED @ZA45504*/ 08501237 * SPPCGMR BIT(8) /* CHARACTER @G38ESMH*/ 08551237 * CONSTANT('1C'X), /* GENERATION MODULE @G38ESMH*/ 08601237 * SPPOPCT BIT(8) /* MULTIPLE DCBS @ZA45504*/ 08651237 * CONSTANT('1C'X), /* OPEN FOR SYSOUT @ZA45504*/ 08701237 * SPPFCBRC BIT(8) /* FORMS CONTROL @G38ESMH*/ 08751237 * CONSTANT('20'X); /* BUFFER @G38ESMH*/ 08801200