**** START OF SPECIFICATIONS ***************************************** 00010000 * * 00020000 *01* MODULE NAME = APSUX07V * 00030000 * * 00040000 * $MOD (APSUX07V) COMP(APS) PROD(PSF) : VERSION 3.2.0 * 00050000 * * 00060000 *01* DESCRIPTIVE NAME = RESOURCE EXIT - SAMPLE 4 * 00070000 * * 00080000 *01* STATUS = VERSION 3, RELEASE 2, LEVEL 0 * 00090000 * * 00100000 *01* FUNCTION = * 00110000 * THIS SAMPLE EXIT IS INTENDED TO DEMONSTRATE HOW TO INDICATE * 00120000 * TO PSF TO PERFORM MANY OF THE FUNCTIONS THAT CAN BE REQUESTED * 00130000 * ON THE INITIALIZATION (XTP7INIT) OR BEGIN DATA SET (XTP7BDS) * 00140000 * CALLS. ALL OF THE CODE IN THIS EXIT IS COMMENTED OUT. TO * 00150000 * ACTIVATE A FUNCTION(S), UNCOMMENT THE LINE(S) THAT ACTIVATE * 00160000 * THE FUNCTION * 00170000 * * 00180000 *02* OPERATION = * 00190000 * * 00200000 * * 00210000 *01* NOTES = * 00220000 *02* DEPENDENCIES = NONE * 00230000 *02* RESTRICTIONS = NONE * 00240000 *02* REGISTER CONVENTIONS = * 00250000 * R2-R12 = SEE ASSEMBLER EQUATES BELOW * 00260000 * * 00270000 *01* MODULE TYPE = PROCEDURE * 00280000 *02* PROCESSOR = ASSEMBLER * 00290000 *02* ATTRIBUTES = REENTRANT * 00300000 * AMODE 31 * 00310000 * RMODE ANY * 00320000 * * 00330000 *01* ENTRY POINT = APSUX07 * 00340000 *02* LINKAGE = * 00350000 * R15 = ENTRY POINT ADDRESS * 00360000 * R13 = SAVE AREA ADDRESS * 00370000 * R1 = ADDRESS OF A 4 BYTE FIELD WHICH CONTAINS THE ADDRESS * 00380000 * OF APSGEXTP * 00390000 * * 00400000 *01* INPUT = * 00410000 * APSGEXTP - PSF INSTALLATION EXIT PARAMETER AREA * 00420000 * * 00430000 *01* OUTPUT = * 00440000 * NONE * 00450000 * * 00460000 *01* EXIT NORMAL = RETURN TO CALLER * 00470000 * * 00480000 *01* EXIT ERROR = NONE * 00490000 * * 00500000 *01* EXTERNAL REFERENCES = * 00510000 *02* ROUTINES = NONE * 00520000 *02* DATA AREAS = * 00530000 * APSGEXTP - PSF INSTALLATION EXIT PARAMETER AREA * 00540000 * APSUECA - PSF EXIT COMMUNICATIONS AREA * 00550000 * APSURLST - PSF EXIT RESOURCE LIST AREA * 00560000 * IAZJSPA - JES SEPARATOR PAGE AREA * 00570000 *02* INCLUDES = NONE * 00580000 * * 00590000 *01* MACROS = NONE * 00600000 * * 00610000 *01* MESSAGES = NONE * 00620000 * * 00630000 * 01* CHANGE ACTIVITY = * 00640000 * $00=LAPS0006, HPRF220, 980318, BDKURLD: INITIAL VERSION * 00650000 * $DG=LAPS0007, HPRF310, 980427, BDKURLD: New sample exit 07 @DGA* 00660000 * $DU=LAPS0007,HPRF310,980604,BDKURLB: Version 3.1.0 @DUA* 00670000 * $01=0W38168, HPRF220, 990322, BDKURLD: Specify PRMODE via * 00680000 * exit 07 @01A* 00690000 * $02=0W38524, HPRF310, 990404, BDKUELJ: Close idle libraries @02A* 00700000 * $03=0W38556, HPRF220, 990402, BDKURLD: Allow default character * 00710000 * for single byte outline * 00720000 * font code page @03A* 00730000 * $04=0W38508, HPRF220, 990422, BDKURLD: Capture inline resources * 00740000 * when connected via DPF @04A* 00750000 * $05=0W40173, HPRF310, 990615, BDKURLD: DON'T RELDS ON REPOS @05A* 00760000 * $06=0W40737, HPRF310, 990707, BDKURLD: SUPPRESS COPY MARKS @06A* 00770000 * $07=0W41991, HPRF310, 991130, BDKULMM: Allow capture of inline * 00780000 * resources on WPM @07A* 00790000 * $DX=LAPS0008,HPRF320,991117,BUQ4RLB: Version 3.2.0 @DXA* 00800000 * $08=OW45477, HPRF320 000806, BLDCWJ: FORCE EJECT TO NEW SHEET * 00802000 * TO ENSURE CORRECT PAGE * 00804000 * IS JOGGED WHEN IN CSE * 00806000 * MODE. @08A* 00808000 * $09=OW47253, HPRF320, 001129, BDKURLD: Separate copymarks from * 00808600 * jogging @09A* 00809200 * $10=OW48649, HPRF320, 010319, BDKURLD: XTP738MO doesn't work for * 00812880 * data set call @10A* 00813980 * $11=OW52112, HPRF320, 011205, BDKURLD: Side sensitivity support * 00816960 * @11A* 00817950 * * 00818940 **** END OF SPECIFICATIONS ******************************************* 00820000 APSUX07 START 0 00830000 TITLE 'DSECT - GEXTP' 00840000 APSGEXTP LIST=YES 00850000 TITLE 'DSECT - UECA' 00860000 APSUECA LIST=YES 00870000 TITLE 'DSECT - RLST' 00880000 APSURLST LIST=YES 00890000 TITLE 'DSECT - JSPA' 00900000 IAZJSPA LIST=YES 00910000 TITLE 'APSUX07 - INSTALLATION EXIT 7 - RESOURCE EXIT' 00920000 APSUX07 CSECT 00930000 APSUX07 AMODE 31 00940000 APSUX07 RMODE ANY 00950000 USING APSUX07,R15 00960000 B START 00970000 DC CL8' APSUX07' NAME OF THIS ROUTINE 00980000 DC CL8'&SYSDATE' DATE OF THIS ASSEMBLY 00990000 ********************************************************************** 01000000 * STANDARD ENTRY LINKAGE * 01010000 ********************************************************************** 01020000 START STM R14,R12,12(R13) SAVE CALLERS REGISTERS 01030000 LR R12,R15 SAVE BASE REGISTER 01040000 DROP R15 DROP OLD BASE 01050000 USING APSUX07,R12 SET NEW ADDRESSABILITY 01060000 ********************************************************************** 01070000 * GET BASING FOR CONTROL BLOCKS * 01080000 ********************************************************************** 01090000 USING APSGEXTP,GEXTPTR SET ADDESSABILITY TO GEXTP 01100000 USING XTP7,XTP7PTR SET ADDESSABILITY TO XTP7 01110000 USING APSUECA,ECAPTR SET ADDESSABILITY TO APSUECA 01120000 USING APSURLST,RLSTPTR SET ADDRESSABILITY TO APSURLST 01130000 USING IAZJSPA,JSPAPTR SET ADDRESSABILITY TO IAZJSPA 01140000 L GEXTPTR,0(,R1) LOAD ADDRESS OF APSGEXTP 01150000 L XTP7PTR,XTPRECP LOAD ADDRESS OF XTP7 01160000 L ECAPTR,XTPECAP LOAD ADDRESS OF ASPUECA 01170000 L RLSTPTR,XTP7LSTP LOAD ADDRESS OF APSURLST 01180000 L JSPAPTR,XTPJSPAP LOAD ADDRESS OF IAZJSPA 01190000 LR R3,R13 SAVE CALLERS SAVEAREA ADDR 01200000 ST R3,ECARSCSV+4 IN OUR BACKWARD CHAIN. 01210000 LA R13,ECARSCSV SAVE OUR SAVEAREA ADDRESS 01220000 ST R13,8(R3) IN CALLER'S FORWARD CHAIN. 01230000 ********************************************************************** 01240000 * DETERMINE WHAT TYPE OF CALL IS BEING MADE TO THE EXIT * 01250000 ********************************************************************** 01260000 CALLTYPE EQU * 01270000 TM XTP7ETYP,INITCALL INITIALIZATION CALL? 01280000 BO INITRTN YES, GOTO INIT ROUTINE 01290000 TM XTP7ETYP,BDSCALL BEGINNING OF DATA SET CALL? 01300000 BO BDSRTN YES, GOTO BDS ROUTINE 01310000 B GETOUT NO MATCH FOUND - POSSIBLE ERROR 01320000 * 01330000 ********************************************************************** 01340000 * INITIALIZATION ROUTINE: * 01350000 * FUNCTION: * 01360000 * - REQUEST CONTROL AT BEGIN DATASET CALL TIME * 01370000 * - SET MISCELLANEOUS FLAGS AND FIELDS * 01380000 * - TO ACTIVATE ANY OF THE FUNCTIONS JUST UNCOMMENT THE * 01390000 * FUNCTION DESIRED * 01400000 * - A WTO IS PROVIDED WITH EACH FUNCTION THAT CAN ALSO BE * 01410000 * UNCOMMENTED TO DISPLAY ON THE OPERATOR CONSOLE THAT * 01420000 * THE FUNCTION HAS BEEN ACTIVATED. * 01430000 * - SET RRLVS FOR ALL RESOURCES * 01440000 * - TO SET AN RRLV VALUE JUST UNCOMMENT THE CODE FOR THE * 01450000 * RRLV YOU WISH TO CHANGE AND THEN CHANGE THE CONSTANT * 01460000 * FOR THAT RRLV FROM 0 TO THE DESIRED VALUE. * 01470000 ********************************************************************** 01480000 * 01490000 INITRTN EQU * 01500000 MVI XTP7MISC,XTP7EBDS Request control at beginning 01510000 * of data set 01520000 * OI XTP7RFLG,X'80' Set XTP7ETFF to eject to front 01530000 * facing between documents 01540000 * WTO '**XTP7ETFF SET ON**',ROUTCDE=2,DESC=6 01550000 * OI XTP7RFLG,X'20' Set XTP7EFFH to eject to front 01560000 * facing before the job header 01570000 * WTO '**XTP7EFFH SET ON**',ROUTCDE=2,DESC=6 01580000 * OI XTP7RFLG,X'10' Set XTP7HDF to select the 01590000 * hardware default font 01600000 * WTO '**XTP7HDF SET ON**',ROUTCDE=2,DESC=6 01610000 * OI XTP7RFLG,X'04' Set XTP7PRNS to set single 01620000 * byte font pruning 01630000 * WTO '**XTP7PRNS SET ON**',ROUTCDE=2,DESC=6 01640000 * OI XTP7RFLG,X'02' Set XTP7PRND to set double 01650000 * byte font pruning 01660000 * WTO '**XTP7PRND SET ON**',ROUTCDE=2,DESC=6 01670000 * OI XTP7RFLG,X'01' Set XTP7IPMF to set mark 01680000 * form request 01690000 * WTO '**XTP7IPMF SET ON**',ROUTCDE=2,DESC=6 01700000 * OI XTP7RFLG+1,X'80' Set XTP7IPOS to offset stack 01710000 * the interrupt message page 01720000 * WTO '**XTP7IPOS SET ON**',ROUTCDE=2,DESC=6 01730000 * OI XTP7RFLG+1,X'40' Set XTP7MTOF to map fonts to 01740000 * outline fonts 01750000 * WTO '**XTP7MTOF SET ON**',ROUTCDE=2,DESC=6 01760000 * OI XTP7RFLG+1,X'20' Set XTP7RFNF to activate a 01770000 * printer resident font 01780000 * WTO '**XTP7RFNF SET ON**',ROUTCDE=2,DESC=6 01790000 * OI XTP7RFLG+1,X'10' Set XTP7IPSU to suppress 01800000 * interrupt message pages 01810000 * WTO '**XTP7IPSU SET ON**',ROUTCDE=2,DESC=6 01820000 * OI XTP7RFLG+1,X'08' Set XTP738MO to set the 3900 01830000 * media origin to the 3800 01840000 * media origin for the user's 01850000 * data set 01860000 * WTO '**XTP738MO SET ON**',ROUTCDE=2,DESC=6 01870000 * OI XTP7RFLG+1,X'04' Set XTP7MDSD to send the 01880000 * message data set to a sysout 01890000 * data set 01900000 * WTO '**XTP7MDSD SET ON**',ROUTCDE=2,DESC=6 01910000 * OI XTP7RFLG+1,X'01' Set XTP7C2SI to convert a 01920000 * multiple celled IM1 image 01930000 * to a single IOCA image 01940000 * WTO '**XTP7C2SI SET ON**',ROUTCDE=2,DESC=6 01950000 * OI XTP7MFLG,XTP7JHMO Set XTP7JHMO to set the job 01960000 * header media origin to the 01970000 * top left corner 01980000 * WTO '**XTP7JHMO SET ON**',ROUTCDE=2,DESC=6 01990000 * OI XTP7MFLG,XTP7JTMO Set XTP7JTMO to set the job 02000000 * trailer media origin to the 02010000 * top left corner 02020000 * WTO '**XTP7JTMO SET ON**',ROUTCDE=2,DESC=6 02030000 * OI XTP7MFLG,XTP7DHMO Set XTP7DHMO to set the data 02040000 * set header media origin to the 02050000 * top left corner 02060000 * WTO '**XTP7DHMO SET ON**',ROUTCDE=2,DESC=6 02070000 * OI XTP7MFLG,XTP7MDMO Set XTP7MDMO to set the message 02080000 * data set media origin to the 02090000 * top left corner 02100000 * WTO '**XTP7MDMO SET ON**',ROUTCDE=2,DESC=6 02110000 * OI XTP7MFLG,XTP7WIDE Set XTP7WIDE to indicate wide 02120000 * paper is being used 02130000 * WTO '**XTP7WIDE SET ON**',ROUTCDE=2,DESC=6 02140000 * OI XTP7MFLG,XTP7IHIB Set XTP7IHIC to inhibit 02150000 * recovery 02160000 * WTO '**XTP7IHIB SET ON**',ROUTCDE=2,DESC=6 02170000 * OI XTP7MFLG,XTP7ENDC Set XTP7ENDC to end the SNA 02180000 * LU1 conversation 02190000 * WTO '**XTP7ENDC SET ON**',ROUTCDE=2,DESC=6 02200000 * OI XTP7MFG1,XTP7APSF Set XTP7APSF to set ACK per 02210000 * sheet 02220000 * WTO '**XTP7APSF SET ON**',ROUTCDE=2,DESC=6 02230000 * OI XTP7MFG1,XTP7NSF SET XTP7NSF TO FORCE A 02232000 * SHEET EJECT IF CSE MODE @08A 02234000 * WTO '**XTP7NSF SET ON**',ROUTCDE=2,DESC=6 @08A 02236000 * OI XTP7MFG1,XTP7CLOS Set XTP7CLOS to close idle 02240000 * resource libraries @02A 02250000 * WTO '**XTP7CLOS SET ON**',ROUTCDE=2,DESC=6 @02A 02260000 * OI XTP7MFG1,XTP7SDCH Set XTP7SDCH to set default 02270000 * character for single byte 02280000 * outline font code page @03A 02290000 * WTO '**XTP7SDCH SET ON**',ROUTCDE=2,DESC=6 @03A 02300000 * OI XTP7MFG1,XTP7RDSR SET XTP7RDSR TO RELEASE 02310000 * DATA SETS WHEN REPOSITIONING 02320000 * @05A 02330000 * WTO '**XTP7RDSR SET ON**',ROUTCDE=2,DESC=6 @05A 02340000 * OI XTP7MFG1,XTP7CINR Set XTP7CINR to capture 02350000 * inline resources when 02360000 * connected via DPF or WPM @07C 02370000 * WTO '**XTP7CINR SET ON**',ROUTCDE=2,DESC=6 @04A 02380000 * OI XTP7MFG1,XTP7SUCM SET XTP7SUCM TO SUPPRESS 02396990 * COPY MARKS @06A 02403980 * WTO '**XTP7SUCM SET ON**',ROUTCDE=2,DESC=6 @06A 02410970 * MVC XTP7PRMD(8),PRSOSI1 SET PRMODE TO SOSI1 @01A 02420000 * WTO '**PRMODE SET TO SOSI1**',ROUTCDE=2,DESC=6 @01A 02430000 * MVC XTP7PRMD(8),PRSOSI2 SET PRMODE TO SOSI2 @01A 02440000 * WTO '**PRMODE SET TO SOSI2**',ROUTCDE=2,DESC=6 @01A 02450000 * MVC XTP7PRMD(8),PRSOSI3 SET PRMODE TO SOSI3 @01A 02460000 * WTO '**PRMODE SET TO SOSI3**',ROUTCDE=2,DESC=6 @01A 02470000 * MVI XTP7ACSE,XTP7NCK SET CSE CHECKING TO DO NOT@DXA 02480000 * CHECK TO SEE IF PAGE FITS @DXA 02490000 * WTO '**XTP7ACSE SET TO XTP7NCK**',ROUTCDE=2,DESC=6 @DXA 02500000 * MVI XTP7ACSE,XTP7CK1P SET CSE CHECKING TO CHECK @DXA 02510000 * ONLY 1ST PAGE TO SEE IF @DXA 02520000 * IT FITS @DXA 02530000 * WTO '**XTP7ACSE SET TO XTP7CK1P**',ROUTCDE=2,DESC=6 @DXA 02540000 * MVI XTP7ACSE,XTP7CKAP SET CSE CHECKING TO CHECK @DXA 02550000 * ALL PAGES TO SEE IF THEY @DXA 02560000 * FIT @DXA 02570000 * WTO '**XTP7ACSE SET TO XTP7CKAP**',ROUTCDE=2,DESC=6 @DXA 02580000 * MVI XTP7JOG,XTP7NONE SET JOGGING TO NONE @09A 02581000 * WTO '**XTP7JOG SET TO NONE**',ROUTCDE=2,DESC=6 @09A 02582000 * MVI XTP7JOG,XTP7DSET SET JOGGING TO DATASET @09A 02583000 * WTO '**XTP7JOG SET TO DATASET**',ROUTCDE=2,DESC=6 @09A 02584000 * MVI XTP7JOG,XTP7JOB SET JOGGING TO JOB @09A 02585000 * WTO '**XTP7JOG SET TO JOB**',ROUTCDE=2,DESC=6 @09A 02586000 * OI XTP7MFG2,XTP7SENS SET XTP7SENS TO ACTIVATE 02590290 * SIDE SENSITIVITY @11A 02590580 * WTO '**XTP7SENS SET ON**',ROUTCDE=2,DESC=6 @11A 02590870 * MVI XTP7BINA,BINNUMA SET FIRST BIN @11A 02591160 * WTO '**XTP7BINA SET**',ROUTCDE=2,DESC=6 @11A 02591450 * MVI XTP7SIMA,BINSIMA SET FIRST SIMPLEX BIN @11A 02591740 * WTO '**XTP7SIMA SET**',ROUTCDE=2,DESC=6 @11A 02592030 * MVI XTP7DUPA,BINDUPA SET FIRST DUPLEX BIN @11A 02592320 * WTO '**XTP7DUPA SET**',ROUTCDE=2,DESC=6 @11A 02592610 * MVI XTP7BINB,BINNUMB SET SECOND BIN @11A 02592900 * WTO '**XTP7BINB SET**',ROUTCDE=2,DESC=6 @11A 02593190 * MVI XTP7SIMB,BINSIMB SET SECOND SIMPLEX BIN @11A 02593480 * WTO '**XTP7SIMB SET**',ROUTCDE=2,DESC=6 @11A 02593770 * MVI XTP7DUPB,BINDUPB SET SECOND DUPLEX BIN @11A 02594060 * WTO '**XTP7DUPB SET**',ROUTCDE=2,DESC=6 @11A 02594350 * MVI XTP7BINC,BINNUMC SET THIRD BIN @11A 02594640 * WTO '**XTP7BINC SET**',ROUTCDE=2,DESC=6 @11A 02594930 * MVI XTP7SIMC,BINSIMC SET THIRD SIMPLEX BIN @11A 02595220 * WTO '**XTP7SIMC SET**',ROUTCDE=2,DESC=6 @11A 02595510 * MVI XTP7DUPC,BINDUPC SET THIRD DUPLEX BIN @11A 02595800 * WTO '**XTP7DUPC SET**',ROUTCDE=2,DESC=6 @11A 02596090 * MVI XTP7BIND,BINNUMD SET FOURTH BIN @11A 02596380 * WTO '**XTP7BIND SET**',ROUTCDE=2,DESC=6 @11A 02596670 * MVI XTP7SIMD,BINSIMD SET FOURTH SIMPLEX BIN @11A 02596960 * WTO '**XTP7SIMD SET**',ROUTCDE=2,DESC=6 @11A 02597250 * MVI XTP7DUPD,BINDUPD SET FOURTH DUPLEX BIN @11A 02597540 * WTO '**XTP7DUPD SET**',ROUTCDE=2,DESC=6 @11A 02597830 02598120 ********************************************************************** 02600000 * RRLV SETTINGS * 02610000 ********************************************************************** 02620000 * 02630000 * MVC XTP7RPD,PDRRLV Set the page def RRLV 02640000 * WTO '**PAGE DEF RRLV CHANGED**',ROUTCDE=2,DESC=6 02650000 * MVC XTP7RFD,FDRRLV Set the form def RRLV 02660000 * WTO '**FORM DEF RRLV CHANGED**',ROUTCDE=2,DESC=6 02670000 * MVC XTP7RPS,PSRRLV Set the page segment RRLV 02680000 * WTO '**PAGE SEGMENT RRLV CHANGED**',ROUTCDE=2,DESC=6 02690000 * MVC XTP7RCF,CFRRLV Set the coded font RRLV 02700000 * WTO '**CODED FONT RRLV CHANGED**',ROUTCDE=2,DESC=6 02710000 B GETOUT EXIT APSUX07 02720000 * 02730000 ********************************************************************** 02740000 * BEGIN DATA SET ROUTINE: * 02750000 * FUNCTION: * 02760000 * - SET MISCELLANEOUS FLAGS AND FIELDS * 02770000 * - TO ACTIVATE ANY OF THE FUNCTIONS JUST UNCOMMENT THE * 02780000 * FUNCTION DESIRED * 02790000 * - A WTO IS PROVIDED WITH EACH FUNCTION THAT CAN ALSO BE * 02800000 * UNCOMMENTED TO VERIFY THAT THE CORRECT FUNCTION HAS * 02810000 * BEEN ACTIVATED. * 02820000 * - SET RRLVS FOR ALL RESOURCES * 02830000 * - TO SET AN RRLV VALUE JUST UNCOMMENT THE CODE FOR THE * 02840000 * RRLV YOU WISH TO CHANGE AND THEN CHANGE THE CONSTANT * 02850000 * FOR THAT RRLV FROM 0 TO THE DESIRED VALUE. * 02860000 ********************************************************************** 02870000 * 02880000 BDSRTN EQU * 02890000 * OI XTP7RFLG,X'80' Set XTP7ETFF to eject to front 02900000 * facing between documents 02910000 * WTO '**XTP7ETFF SET ON**',ROUTCDE=2,DESC=6 02920000 * OI XTP7RFLG,X'40' Set XTP7TDS to terminate 02930000 * the data set 02940000 * WTO '**XTP7TDS SET ON**',ROUTCDE=2,DESC=6 02950000 * OI XTP7RFLG,X'20' Set XTP7EFFH to eject to front 02960000 * facing before the job header 02970000 * WTO '**XTP7EFFH SET ON**',ROUTCDE=2,DESC=6 02980000 * OI XTP7RFLG,X'10' Set XTP7HDF to select the 02990000 * hardware default font 03000000 * WTO '**XTP7HDF SET ON**',ROUTCDE=2,DESC=6 03010000 * OI XTP7RFLG,X'08' Set XTP7HQUE to hold the data 03020000 * set 03030000 * WTO '**XTP7HQUE SET ON**',ROUTCDE=2,DESC=6 03040000 * OI XTP7RFLG,X'01' Set XTP7IPMF to set mark 03050000 * form request 03060000 * WTO '**XTP7IPMF SET ON**',ROUTCDE=2,DESC=6 03070000 * OI XTP7RFLG+1,X'80' Set XTP7IPOS to offset stack 03080000 * the interrupt message page 03090000 * WTO '**XTP7IPOS SET ON**',ROUTCDE=2,DESC=6 03100000 * OI XTP7RFLG+1,X'08' Set XTP738MO to set the 3900 03114990 * media origin to the 3800 03120000 * media origin for the user's 03130000 * data set 03140000 * WTO '**XTP738MO SET ON**',ROUTCDE=2,DESC=6 03150000 * OI XTP7RFLG+1,X'04' Set XTP7MDSD to send the 03160000 * message data set to a sysout 03170000 * data set 03180000 * WTO '**XTP7MDSD SET ON**',ROUTCDE=2,DESC=6 03190000 * OI XTP7RFLG+1,X'01' Set XTP7C2SI to convert a 03200000 * multiple celled IM1 image 03210000 * to a single IOCA image 03220000 * WTO '**XTP7C2SI SET ON**',ROUTCDE=2,DESC=6 03230000 * OI XTP7MFLG,XTP7JHMO Set XTP7JHMO to set the job 03240000 * header media origin to the 03250000 * top left corner 03260000 * WTO '**XTP7JHMO SET ON**',ROUTCDE=2,DESC=6 03270000 * OI XTP7MFLG,XTP7JTMO Set XTP7JTMO to set the job 03280000 * trailer media origin to the 03290000 * top left corner 03300000 * WTO '**XTP7JTMO SET ON**',ROUTCDE=2,DESC=6 03310000 * OI XTP7MFLG,XTP7DHMO Set XTP7DHMO to set the data 03320000 * set header media origin to the 03330000 * top left corner 03340000 * WTO '**XTP7DHMO SET ON**',ROUTCDE=2,DESC=6 03350000 * OI XTP7MFLG,XTP7MDMO Set XTP7MDMO to set the message 03360000 * data set media origin to the 03370000 * top left corner 03380000 * WTO '**XTP7MDMO SET ON**',ROUTCDE=2,DESC=6 03390000 * OI XTP7MFLG,XTP7WIDE Set XTP7WIDE to indicate wide 03400000 * paper is being used 03410000 * WTO '**XTP7WIDE SET ON**',ROUTCDE=2,DESC=6 03420000 * OI XTP7MFLG,XTP7IHIB Set XTP7IHIC to inhibit 03430000 * recovery 03440000 * WTO '**XTP7IHIB SET ON**',ROUTCDE=2,DESC=6 03450000 * OI XTP7MFG1,XTP7SDCH Set XTP7SDCH to set default 03460000 * character for single byte 03470000 * outline font code page @03A 03480000 * WTO '**XTP7SDCH SET ON**',ROUTCDE=2,DESC=6 @03A 03490000 * OI XTP7MFG1,XTP7CINR Set XTP7CINR to capture 03500000 * inline resoruces when 03510000 * connected via DPF or WPM @07C 03520000 * WTO '**XTP7CINR SET ON**',ROUTCDE=2,DESC=6 @04A 03530000 * OI XTP7MFG1,XTP7SUCM Set XTP7SUCM to suppress 03540000 * COPY MARKS @06A 03550000 * WTO '**XTP7SUCM SET ON**',ROUTCDE=2,DESC=6 @06A 03560000 * MVC XTP7PRMD(8),PRSOSI1 SET PRMODE TO SOSI1 @01A 03570000 * WTO '**PRMODE SET TO SOSI1**',ROUTCDE=2,DESC=6 @01A 03580000 * MVC XTP7PRMD(8),PRSOSI2 SET PRMODE TO SOSI2 @01A 03590000 * WTO '**PRMODE SET TO SOSI2**',ROUTCDE=2,DESC=6 @01A 03600000 * MVC XTP7PRMD(8),PRSOSI3 SET PRMODE TO SOSI3 @01A 03610000 * WTO '**PRMODE SET TO SOSI3**',ROUTCDE=2,DESC=6 @01A 03620000 * MVI XTP7ACSE,XTP7NCK SET CSE CHECKING TO DO NOT@DXA 03630000 * CHECK TO SEE IF PAGE FITS @DXA 03640000 * WTO '**XTP7ACSE SET TO XTP7NCK**',ROUTCDE=2,DESC=6 @DXA 03650000 * MVI XTP7ACSE,XTP7CK1P SET CSE CHECKING TO CHECK @DXA 03660000 * ONLY 1ST PAGE TO SEE IF @DXA 03670000 * IT FITS @DXA 03680000 * WTO '**XTP7ACSE SET TO XTP7CK1P**',ROUTCDE=2,DESC=6 @DXA 03690000 * MVI XTP7ACSE,XTP7CKAP SET CSE CHECKING TO CHECK @DXA 03700000 * ALL PAGES TO SEE IF THEY @DXA 03710000 * FIT @DXA 03720000 * WTO '**XTP7ACSE SET TO XTP7CKAP**',ROUTCDE=2,DESC=6 @DXA 03730000 * MVI XTP7JOG,XTP7NONE SET JOGGING TO NONE @09A 03731000 * WTO '**XTP7JOG SET TO NONE**',ROUTCDE=2,DESC=6 @09A 03732000 * MVI XTP7JOG,XTP7DSET SET JOGGING TO DATASET @09A 03733000 * WTO '**XTP7JOG SET TO DATASET**',ROUTCDE=2,DESC=6 @09A 03734000 * MVI XTP7JOG,XTP7JOB SET JOGGING TO JOB @09A 03735000 * WTO '**XTP7JOG SET TO JOB**',ROUTCDE=2,DESC=6 @09A 03736000 * 03740000 ********************************************************************** 03750000 * RRLV SETTINGS * 03760000 ********************************************************************** 03770000 * 03780000 * MVC XTP7RPD,PDRRLV Set the page def RRLV 03790000 * WTO '**PAGE DEF RRLV CHANGED**',ROUTCDE=2,DESC=6 03800000 * MVC XTP7RFD,FDRRLV Set the form def RRLV 03810000 * WTO '**FORM DEF RRLV CHANGED**',ROUTCDE=2,DESC=6 03820000 * MVC XTP7RPS,PSRRLV Set the page segment RRLV 03830000 * WTO '**PAGE SEGMENT RRLV CHANGED**',ROUTCDE=2,DESC=6 03840000 * MVC XTP7RCF,CFRRLV Set the coded font RRLV 03850000 * WTO '**CODED FONT RRLV CHANGED**',ROUTCDE=2,DESC=6 03860000 * 03870000 ********************************************************************** 03880000 * EXIT LINKAGE * 03890000 ********************************************************************** 03900000 * 03910000 GETOUT L R13,ECARSCSV+4 RESTORE CALLER'S SAVEAREA 03920000 LM R14,R12,12(R13) RESTORE CALLER'S REGS 03930000 BR R14 03940000 ********************************************************************** 03950000 * EQUATES TO VERIFY TYPE OF EXIT CALL, COMPARE WITH XTP7ETYP * 03960000 ********************************************************************** 03970000 INITCALL EQU B'10000000' RESOURCE EXIT INITIAL CALL 03980000 BDSCALL EQU B'01000000' BEGINNING OF DATA SET CALL 03990000 ACCCALL EQU B'00100000' RESOURCE ACCESS CALL 04000000 LDBCALL EQU B'00010000' RESOURCE LOAD BEGIN CALL 04010000 LDECALL EQU B'00001000' RESOURCE LOAD END CALL 04020000 DSECALL EQU B'00000100' RESOURCE DELETE AT DATA SET END 04030000 TRMCALL EQU B'00000010' TERMINATION OF FSA CALL 04040000 ********************************************************************** 04050000 * EQUATES TO VERIFY TYPE OF RESOURCE CALL, COMPARE WITH XTP7RTYP * 04060000 ********************************************************************** 04070000 PDEF EQU B'10000000' PAGEDEF 04080000 FDEF EQU B'01000000' FORMDEF 04090000 FONT EQU B'00100000' CODED FONT 04100000 OVLY EQU B'00010000' MEDIUM OVERLAY 04110000 PSEG EQU B'00001000' PAGE SEGMENT 04120000 ********************************************************************** 04130000 * REGISTER EQUATES * 04140000 ********************************************************************** 04150000 R0 EQU 0 04160000 R1 EQU 1 04170000 R2 EQU 2 04180000 R3 EQU 3 04190000 GEXTPTR EQU 4 04200000 XTP7PTR EQU 5 04210000 ECAPTR EQU 6 04220000 RLSTPTR EQU 7 04230000 JSPAPTR EQU 8 04240000 R9 EQU 9 04250000 R10 EQU 10 04260000 R11 EQU 11 04270000 R12 EQU 12 04280000 R13 EQU 13 04290000 R14 EQU 14 04300000 R15 EQU 15 04310000 ********************************************************************** 04310600 * MORE EQUATES * 04311200 ********************************************************************** 04311800 BINNUMA EQU 1 FIRST BIN @11A 04312400 BINNUMB EQU 2 SECOND BIN @11A 04313000 BINNUMC EQU 3 THIRD BIN @11A 04313600 BINNUMD EQU 4 FOURTH BIN @11A 04314200 BINSIMA EQU 1 FIRST SIMPLEX BIN @11A 04314800 BINSIMB EQU 2 SECOND SIMPLEX BIN @11A 04315400 BINSIMC EQU 3 THIRD SIMPLEX BIN @11A 04316000 BINSIMD EQU 4 FOURTH SIMPLEX BIN @11A 04316600 BINDUPA EQU 1 FIRST DUPLEX BIN @11A 04317200 BINDUPB EQU 2 SECOND DUPLEX BIN @11A 04317800 BINDUPC EQU 3 THIRD DUPLEX BIN @11A 04318400 BINDUPD EQU 4 FOURTH DUPLEX BIN @11A 04319000 ********************************************************************** 04320000 * RRLV CONSTANTS * 04330000 ********************************************************************** 04340000 * * 04350000 PDRRLV DC H'0' Page definition RRLV value 04360000 FDRRLV DC H'0' Form definition RRLV value 04370000 PSRRLV DC H'0' Page segment RRLV value 04380000 CFRRLV DC H'0' Coded font RRLV value 04390000 PRSOSI1 DC CL8'SOSI1 ' SOSI1 PRMODE value @01A 04400000 PRSOSI2 DC CL8'SOSI2 ' SOSI2 PRMODE value @01A 04410000 PRSOSI3 DC CL8'SOSI3 ' SOSI3 PRMODE value @01A 04420000 END 04430000