**** START OF SPECIFICATIONS ***************************************** 00010000 * * 00020000 *01* MODULE NAME = APSUX07V * 00030000 * * 00040000 * $MOD (APSUX07V) COMP(APS) PROD(PSF) : VERSION 3.3.0 * 00050000 * * 00060000 *01* DESCRIPTIVE NAME = RESOURCE EXIT - SAMPLE 4 * 00070000 * * 00080000 *01* STATUS = VERSION 3, RELEASE 3, 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 * 00810000 * TO ENSURE CORRECT PAGE * 00820000 * IS JOGGED WHEN IN CSE * 00830000 * MODE. @08A* 00840000 * $09=OW47253, HPRF320, 001129, BDKURLD: Separate copymarks from * 00850000 * jogging @09A* 00860000 * $19=OW48649, HPRF320, 010319, BDKURLD: XTP738MO doesn't work for * 00870000 * data set call @10A* 00880000 * $EV=LAPS0009,HPRF330,010530,BUQ4RLB: Version 3.3.0 @EVA* 00890000 * $EM=LAPS0009,HPRF330,011011,BDKURLD: ASAP support @EMA* 00900000 * * 00910000 **** END OF SPECIFICATIONS ******************************************* 00920000 APSUX07 START 0 00930000 TITLE 'DSECT - GEXTP' 00940000 APSGEXTP LIST=YES 00950000 TITLE 'DSECT - UECA' 00960000 APSUECA LIST=YES 00970000 TITLE 'DSECT - RLST' 00980000 APSURLST LIST=YES 00990000 TITLE 'DSECT - JSPA' 01000000 IAZJSPA LIST=YES 01010000 TITLE 'APSUX07 - INSTALLATION EXIT 7 - RESOURCE EXIT' 01020000 APSUX07 CSECT 01030000 APSUX07 AMODE 31 01040000 APSUX07 RMODE ANY 01050000 USING APSUX07,R15 01060000 B START 01070000 DC CL8' APSUX07' NAME OF THIS ROUTINE 01080000 DC CL8'&SYSDATE' DATE OF THIS ASSEMBLY 01090000 ********************************************************************** 01100000 * STANDARD ENTRY LINKAGE * 01110000 ********************************************************************** 01120000 START STM R14,R12,12(R13) SAVE CALLERS REGISTERS 01130000 LR R12,R15 SAVE BASE REGISTER 01140000 DROP R15 DROP OLD BASE 01150000 USING APSUX07,R12 SET NEW ADDRESSABILITY 01160000 ********************************************************************** 01170000 * GET BASING FOR CONTROL BLOCKS * 01180000 ********************************************************************** 01190000 USING APSGEXTP,GEXTPTR SET ADDESSABILITY TO GEXTP 01200000 USING XTP7,XTP7PTR SET ADDESSABILITY TO XTP7 01210000 USING APSUECA,ECAPTR SET ADDESSABILITY TO APSUECA 01220000 USING APSURLST,RLSTPTR SET ADDRESSABILITY TO APSURLST 01230000 USING IAZJSPA,JSPAPTR SET ADDRESSABILITY TO IAZJSPA 01240000 L GEXTPTR,0(,R1) LOAD ADDRESS OF APSGEXTP 01250000 L XTP7PTR,XTPRECP LOAD ADDRESS OF XTP7 01260000 L ECAPTR,XTPECAP LOAD ADDRESS OF ASPUECA 01270000 L RLSTPTR,XTP7LSTP LOAD ADDRESS OF APSURLST 01280000 L JSPAPTR,XTPJSPAP LOAD ADDRESS OF IAZJSPA 01290000 LR R3,R13 SAVE CALLERS SAVEAREA ADDR 01300000 ST R3,ECARSCSV+4 IN OUR BACKWARD CHAIN. 01310000 LA R13,ECARSCSV SAVE OUR SAVEAREA ADDRESS 01320000 ST R13,8(R3) IN CALLER'S FORWARD CHAIN. 01330000 ********************************************************************** 01340000 * DETERMINE WHAT TYPE OF CALL IS BEING MADE TO THE EXIT * 01350000 ********************************************************************** 01360000 CALLTYPE EQU * 01370000 TM XTP7ETYP,INITCALL INITIALIZATION CALL? 01380000 BO INITRTN YES, GOTO INIT ROUTINE 01390000 TM XTP7ETYP,BDSCALL BEGINNING OF DATA SET CALL? 01400000 BO BDSRTN YES, GOTO BDS ROUTINE 01410000 B GETOUT NO MATCH FOUND - POSSIBLE ERROR 01420000 * 01430000 ********************************************************************** 01440000 * INITIALIZATION ROUTINE: * 01450000 * FUNCTION: * 01460000 * - REQUEST CONTROL AT BEGIN DATASET CALL TIME * 01470000 * - SET MISCELLANEOUS FLAGS AND FIELDS * 01480000 * - TO ACTIVATE ANY OF THE FUNCTIONS JUST UNCOMMENT THE * 01490000 * FUNCTION DESIRED * 01500000 * - A WTO IS PROVIDED WITH EACH FUNCTION THAT CAN ALSO BE * 01510000 * UNCOMMENTED TO DISPLAY ON THE OPERATOR CONSOLE THAT * 01520000 * THE FUNCTION HAS BEEN ACTIVATED. * 01530000 * - SET RRLVS FOR ALL RESOURCES * 01540000 * - TO SET AN RRLV VALUE JUST UNCOMMENT THE CODE FOR THE * 01550000 * RRLV YOU WISH TO CHANGE AND THEN CHANGE THE CONSTANT * 01560000 * FOR THAT RRLV FROM 0 TO THE DESIRED VALUE. * 01570000 ********************************************************************** 01580000 * 01590000 INITRTN EQU * 01600000 MVI XTP7MISC,XTP7EBDS Request control at beginning 01610000 * of data set 01620000 * OI XTP7RFLG,X'80' Set XTP7ETFF to eject to front 01630000 * facing between documents 01640000 * WTO '**XTP7ETFF SET ON**',ROUTCDE=2,DESC=6 01650000 * OI XTP7RFLG,X'20' Set XTP7EFFH to eject to front 01660000 * facing before the job header 01670000 * WTO '**XTP7EFFH SET ON**',ROUTCDE=2,DESC=6 01680000 * OI XTP7RFLG,X'10' Set XTP7HDF to select the 01690000 * hardware default font 01700000 * WTO '**XTP7HDF SET ON**',ROUTCDE=2,DESC=6 01710000 * OI XTP7RFLG,X'04' Set XTP7PRNS to set single 01720000 * byte font pruning 01730000 * WTO '**XTP7PRNS SET ON**',ROUTCDE=2,DESC=6 01740000 * OI XTP7RFLG,X'02' Set XTP7PRND to set double 01750000 * byte font pruning 01760000 * WTO '**XTP7PRND SET ON**',ROUTCDE=2,DESC=6 01770000 * OI XTP7RFLG,X'01' Set XTP7IPMF to set mark 01780000 * form request 01790000 * WTO '**XTP7IPMF SET ON**',ROUTCDE=2,DESC=6 01800000 * OI XTP7RFLG+1,X'80' Set XTP7IPOS to offset stack 01810000 * the interrupt message page 01820000 * WTO '**XTP7IPOS SET ON**',ROUTCDE=2,DESC=6 01830000 * OI XTP7RFLG+1,X'40' Set XTP7MTOF to map fonts to 01840000 * outline fonts 01850000 * WTO '**XTP7MTOF SET ON**',ROUTCDE=2,DESC=6 01860000 * OI XTP7RFLG+1,X'20' Set XTP7RFNF to activate a 01870000 * printer resident font 01880000 * WTO '**XTP7RFNF SET ON**',ROUTCDE=2,DESC=6 01890000 * OI XTP7RFLG+1,X'10' Set XTP7IPSU to suppress 01900000 * interrupt message pages 01910000 * WTO '**XTP7IPSU SET ON**',ROUTCDE=2,DESC=6 01920000 * OI XTP7RFLG+1,X'08' Set XTP738MO to set the 3900 01930000 * media origin to the 3800 01940000 * media origin for the user's 01950000 * data set 01960000 * WTO '**XTP738MO SET ON**',ROUTCDE=2,DESC=6 01970000 * OI XTP7RFLG+1,X'04' Set XTP7MDSD to send the 01980000 * message data set to a sysout 01990000 * data set 02000000 * WTO '**XTP7MDSD SET ON**',ROUTCDE=2,DESC=6 02010000 * OI XTP7RFLG+1,X'01' Set XTP7C2SI to convert a 02020000 * multiple celled IM1 image 02030000 * to a single IOCA image 02040000 * WTO '**XTP7C2SI SET ON**',ROUTCDE=2,DESC=6 02050000 * OI XTP7MFLG,XTP7JHMO Set XTP7JHMO to set the job 02060000 * header media origin to the 02070000 * top left corner 02080000 * WTO '**XTP7JHMO SET ON**',ROUTCDE=2,DESC=6 02090000 * OI XTP7MFLG,XTP7JTMO Set XTP7JTMO to set the job 02100000 * trailer media origin to the 02110000 * top left corner 02120000 * WTO '**XTP7JTMO SET ON**',ROUTCDE=2,DESC=6 02130000 * OI XTP7MFLG,XTP7DHMO Set XTP7DHMO to set the data 02140000 * set header media origin to the 02150000 * top left corner 02160000 * WTO '**XTP7DHMO SET ON**',ROUTCDE=2,DESC=6 02170000 * OI XTP7MFLG,XTP7MDMO Set XTP7MDMO to set the message 02180000 * data set media origin to the 02190000 * top left corner 02200000 * WTO '**XTP7MDMO SET ON**',ROUTCDE=2,DESC=6 02210000 * OI XTP7MFLG,XTP7WIDE Set XTP7WIDE to indicate wide 02220000 * paper is being used 02230000 * WTO '**XTP7WIDE SET ON**',ROUTCDE=2,DESC=6 02240000 * OI XTP7MFLG,XTP7IHIB Set XTP7IHIC to inhibit 02250000 * recovery 02260000 * WTO '**XTP7IHIB SET ON**',ROUTCDE=2,DESC=6 02270000 * OI XTP7MFLG,XTP7ENDC Set XTP7ENDC to end the SNA 02280000 * LU1 conversation 02290000 * WTO '**XTP7ENDC SET ON**',ROUTCDE=2,DESC=6 02300000 * OI XTP7MFG1,XTP7APSF Set XTP7APSF to set ACK per 02310000 * sheet 02320000 * WTO '**XTP7APSF SET ON**',ROUTCDE=2,DESC=6 02330000 * OI XTP7MFG1,XTP7NSF SET XTP7NSF TO FORCE A 02340000 * SHEET EJECT IF CSE MODE @08A 02350000 * WTO '**XTP7NSF SET ON**',ROUTCDE=2,DESC=6 @08A 02360000 * OI XTP7MFG1,XTP7CLOS Set XTP7CLOS to close idle 02370000 * resource libraries @02A 02380000 * WTO '**XTP7CLOS SET ON**',ROUTCDE=2,DESC=6 @02A 02390000 * OI XTP7MFG1,XTP7SDCH Set XTP7SDCH to set default 02400000 * character for single byte 02410000 * outline font code page @03A 02420000 * WTO '**XTP7SDCH SET ON**',ROUTCDE=2,DESC=6 @03A 02430000 * OI XTP7MFG1,XTP7RDSR SET XTP7RDSR TO RELEASE 02440000 * DATA SETS WHEN REPOSITIONING 02450000 * @05A 02460000 * WTO '**XTP7RDSR SET ON**',ROUTCDE=2,DESC=6 @05A 02470000 * OI XTP7MFG1,XTP7CINR Set XTP7CINR to capture 02480000 * inline resources when 02490000 * connected via DPF or WPM @07C 02500000 * WTO '**XTP7CINR SET ON**',ROUTCDE=2,DESC=6 @04A 02510000 * OI XTP7MFG1,XTP7SUCM SET XTP7SUCM TO SUPPRESS 02520000 * COPY MARKS @06A 02530000 * WTO '**XTP7SUCM SET ON**',ROUTCDE=2,DESC=6 @06A 02540000 * MVC XTP7PRMD(8),PRSOSI1 SET PRMODE TO SOSI1 @01A 02550000 * WTO '**PRMODE SET TO SOSI1**',ROUTCDE=2,DESC=6 @01A 02560000 * MVC XTP7PRMD(8),PRSOSI2 SET PRMODE TO SOSI2 @01A 02570000 * WTO '**PRMODE SET TO SOSI2**',ROUTCDE=2,DESC=6 @01A 02580000 * MVC XTP7PRMD(8),PRSOSI3 SET PRMODE TO SOSI3 @01A 02590000 * WTO '**PRMODE SET TO SOSI3**',ROUTCDE=2,DESC=6 @01A 02600000 * MVI XTP7ACSE,XTP7NCK SET CSE CHECKING TO DO NOT@DXA 02610000 * CHECK TO SEE IF PAGE FITS @DXA 02620000 * WTO '**XTP7ACSE SET TO XTP7NCK**',ROUTCDE=2,DESC=6 @DXA 02630000 * MVI XTP7ACSE,XTP7CK1P SET CSE CHECKING TO CHECK @DXA 02640000 * ONLY 1ST PAGE TO SEE IF @DXA 02650000 * IT FITS @DXA 02660000 * WTO '**XTP7ACSE SET TO XTP7CK1P**',ROUTCDE=2,DESC=6 @DXA 02670000 * MVI XTP7ACSE,XTP7CKAP SET CSE CHECKING TO CHECK @DXA 02680000 * ALL PAGES TO SEE IF THEY @DXA 02690000 * FIT @DXA 02700000 * WTO '**XTP7ACSE SET TO XTP7CKAP**',ROUTCDE=2,DESC=6 @DXA 02710000 * MVI XTP7JOG,XTP7NONE SET JOGGING TO NONE @09A 02720000 * WTO '**XTP7JOG SET TO NONE**',ROUTCDE=2,DESC=6 @09A 02730000 * MVI XTP7JOG,XTP7DSET SET JOGGING TO DATASET @09A 02740000 * WTO '**XTP7JOG SET TO DATASET**',ROUTCDE=2,DESC=6 @09A 02750000 * MVI XTP7JOG,XTP7JOB SET JOGGING TO JOB @09A 02760000 * WTO '**XTP7JOG SET TO JOB**',ROUTCDE=2,DESC=6 @09A 02770000 * 02780000 ********************************************************************** 02790000 * RRLV SETTINGS * 02800000 ********************************************************************** 02810000 * 02820000 * MVC XTP7RPD,PDRRLV Set the page def RRLV 02830000 * WTO '**PAGE DEF RRLV CHANGED**',ROUTCDE=2,DESC=6 02840000 * MVC XTP7RFD,FDRRLV Set the form def RRLV 02850000 * WTO '**FORM DEF RRLV CHANGED**',ROUTCDE=2,DESC=6 02860000 * MVC XTP7RPS,PSRRLV Set the page segment RRLV 02870000 * WTO '**PAGE SEGMENT RRLV CHANGED**',ROUTCDE=2,DESC=6 02880000 * MVC XTP7RCF,CFRRLV Set the coded font RRLV 02890000 * WTO '**CODED FONT RRLV CHANGED**',ROUTCDE=2,DESC=6 02900000 B GETOUT EXIT APSUX07 02910000 * 02920000 ********************************************************************** 02930000 * BEGIN DATA SET ROUTINE: * 02940000 * FUNCTION: * 02950000 * - SET MISCELLANEOUS FLAGS AND FIELDS * 02960000 * - TO ACTIVATE ANY OF THE FUNCTIONS JUST UNCOMMENT THE * 02970000 * FUNCTION DESIRED * 02980000 * - A WTO IS PROVIDED WITH EACH FUNCTION THAT CAN ALSO BE * 02990000 * UNCOMMENTED TO VERIFY THAT THE CORRECT FUNCTION HAS * 03000000 * BEEN ACTIVATED. * 03010000 * - SET RRLVS FOR ALL RESOURCES * 03020000 * - TO SET AN RRLV VALUE JUST UNCOMMENT THE CODE FOR THE * 03030000 * RRLV YOU WISH TO CHANGE AND THEN CHANGE THE CONSTANT * 03040000 * FOR THAT RRLV FROM 0 TO THE DESIRED VALUE. * 03050000 ********************************************************************** 03060000 * 03070000 BDSRTN EQU * 03080000 * OI XTP7RFLG,X'80' Set XTP7ETFF to eject to front 03090000 * facing between documents 03100000 * WTO '**XTP7ETFF SET ON**',ROUTCDE=2,DESC=6 03110000 * OI XTP7RFLG,X'40' Set XTP7TDS to terminate 03120000 * the data set 03130000 * WTO '**XTP7TDS SET ON**',ROUTCDE=2,DESC=6 03140000 * OI XTP7RFLG,X'20' Set XTP7EFFH to eject to front 03150000 * facing before the job header 03160000 * WTO '**XTP7EFFH SET ON**',ROUTCDE=2,DESC=6 03170000 * OI XTP7RFLG,X'10' Set XTP7HDF to select the 03180000 * hardware default font 03190000 * WTO '**XTP7HDF SET ON**',ROUTCDE=2,DESC=6 03200000 * OI XTP7RFLG,X'08' Set XTP7HQUE to hold the data 03210000 * set 03220000 * WTO '**XTP7HQUE SET ON**',ROUTCDE=2,DESC=6 03230000 * OI XTP7RFLG,X'01' Set XTP7IPMF to set mark 03240000 * form request 03250000 * WTO '**XTP7IPMF SET ON**',ROUTCDE=2,DESC=6 03260000 * OI XTP7RFLG+1,X'80' Set XTP7IPOS to offset stack 03270000 * the interrupt message page 03280000 * WTO '**XTP7IPOS SET ON**',ROUTCDE=2,DESC=6 03290000 * OI XTP7RFLG+1,X'08' Set XTP738MO to set the 3900 03300000 * media origin to the 3800 03310000 * media origin for the user's 03320000 * data set 03330000 * WTO '**XTP738MO SET ON**',ROUTCDE=2,DESC=6 03340000 * OI XTP7RFLG+1,X'04' Set XTP7MDSD to send the 03350000 * message data set to a sysout 03360000 * data set 03370000 * WTO '**XTP7MDSD SET ON**',ROUTCDE=2,DESC=6 03380000 * OI XTP7RFLG+1,X'01' Set XTP7C2SI to convert a 03390000 * multiple celled IM1 image 03400000 * to a single IOCA image 03410000 * WTO '**XTP7C2SI SET ON**',ROUTCDE=2,DESC=6 03420000 * OI XTP7MFLG,XTP7JHMO Set XTP7JHMO to set the job 03430000 * header media origin to the 03440000 * top left corner 03450000 * WTO '**XTP7JHMO SET ON**',ROUTCDE=2,DESC=6 03460000 * OI XTP7MFLG,XTP7JTMO Set XTP7JTMO to set the job 03470000 * trailer media origin to the 03480000 * top left corner 03490000 * WTO '**XTP7JTMO SET ON**',ROUTCDE=2,DESC=6 03500000 * OI XTP7MFLG,XTP7DHMO Set XTP7DHMO to set the data 03510000 * set header media origin to the 03520000 * top left corner 03530000 * WTO '**XTP7DHMO SET ON**',ROUTCDE=2,DESC=6 03540000 * OI XTP7MFLG,XTP7MDMO Set XTP7MDMO to set the message 03550000 * data set media origin to the 03560000 * top left corner 03570000 * WTO '**XTP7MDMO SET ON**',ROUTCDE=2,DESC=6 03580000 * OI XTP7MFLG,XTP7WIDE Set XTP7WIDE to indicate wide 03590000 * paper is being used 03600000 * WTO '**XTP7WIDE SET ON**',ROUTCDE=2,DESC=6 03610000 * OI XTP7MFLG,XTP7IHIB Set XTP7IHIC to inhibit 03620000 * recovery 03630000 * WTO '**XTP7IHIB SET ON**',ROUTCDE=2,DESC=6 03640000 * OI XTP7MFG1,XTP7SDCH Set XTP7SDCH to set default 03650000 * character for single byte 03660000 * outline font code page @03A 03670000 * WTO '**XTP7SDCH SET ON**',ROUTCDE=2,DESC=6 @03A 03680000 * OI XTP7MFG1,XTP7CINR Set XTP7CINR to capture 03690000 * inline resoruces when 03700000 * connected via DPF or WPM @07C 03710000 * WTO '**XTP7CINR SET ON**',ROUTCDE=2,DESC=6 @04A 03720000 * OI XTP7MFG1,XTP7SUCM Set XTP7SUCM to suppress 03730000 * COPY MARKS @06A 03740000 * WTO '**XTP7SUCM SET ON**',ROUTCDE=2,DESC=6 @06A 03750000 * OI XTP7MFG2,XTP7ASAP Set XTP7ASAP to gather AFP 03760000 * statistics about the 03770000 * printfile (dataset) @EMA 03780000 * WTO '**XTP7ASAP SET ON**',ROUTCDE=2,DESC=6 @EMA 03790000 * MVC XTP7PRMD(8),PRSOSI1 SET PRMODE TO SOSI1 @01A 03800000 * WTO '**PRMODE SET TO SOSI1**',ROUTCDE=2,DESC=6 @01A 03810000 * MVC XTP7PRMD(8),PRSOSI2 SET PRMODE TO SOSI2 @01A 03820000 * WTO '**PRMODE SET TO SOSI2**',ROUTCDE=2,DESC=6 @01A 03830000 * MVC XTP7PRMD(8),PRSOSI3 SET PRMODE TO SOSI3 @01A 03840000 * WTO '**PRMODE SET TO SOSI3**',ROUTCDE=2,DESC=6 @01A 03850000 * MVI XTP7ACSE,XTP7NCK SET CSE CHECKING TO DO NOT@DXA 03860000 * CHECK TO SEE IF PAGE FITS @DXA 03870000 * WTO '**XTP7ACSE SET TO XTP7NCK**',ROUTCDE=2,DESC=6 @DXA 03880000 * MVI XTP7ACSE,XTP7CK1P SET CSE CHECKING TO CHECK @DXA 03890000 * ONLY 1ST PAGE TO SEE IF @DXA 03900000 * IT FITS @DXA 03910000 * WTO '**XTP7ACSE SET TO XTP7CK1P**',ROUTCDE=2,DESC=6 @DXA 03920000 * MVI XTP7ACSE,XTP7CKAP SET CSE CHECKING TO CHECK @DXA 03930000 * ALL PAGES TO SEE IF THEY @DXA 03940000 * FIT @DXA 03950000 * WTO '**XTP7ACSE SET TO XTP7CKAP**',ROUTCDE=2,DESC=6 @DXA 03960000 * MVI XTP7JOG,XTP7NONE SET JOGGING TO NONE @09A 03970000 * WTO '**XTP7JOG SET TO NONE**',ROUTCDE=2,DESC=6 @09A 03980000 * MVI XTP7JOG,XTP7DSET SET JOGGING TO DATASET @09A 03990000 * WTO '**XTP7JOG SET TO DATASET**',ROUTCDE=2,DESC=6 @09A 04000000 * MVI XTP7JOG,XTP7JOB SET JOGGING TO JOB @09A 04010000 * WTO '**XTP7JOG SET TO JOB**',ROUTCDE=2,DESC=6 @09A 04020000 * 04030000 ********************************************************************** 04040000 * RRLV SETTINGS * 04050000 ********************************************************************** 04060000 * 04070000 * MVC XTP7RPD,PDRRLV Set the page def RRLV 04080000 * WTO '**PAGE DEF RRLV CHANGED**',ROUTCDE=2,DESC=6 04090000 * MVC XTP7RFD,FDRRLV Set the form def RRLV 04100000 * WTO '**FORM DEF RRLV CHANGED**',ROUTCDE=2,DESC=6 04110000 * MVC XTP7RPS,PSRRLV Set the page segment RRLV 04120000 * WTO '**PAGE SEGMENT RRLV CHANGED**',ROUTCDE=2,DESC=6 04130000 * MVC XTP7RCF,CFRRLV Set the coded font RRLV 04140000 * WTO '**CODED FONT RRLV CHANGED**',ROUTCDE=2,DESC=6 04150000 * 04160000 ********************************************************************** 04170000 * EXIT LINKAGE * 04180000 ********************************************************************** 04190000 * 04200000 GETOUT L R13,ECARSCSV+4 RESTORE CALLER'S SAVEAREA 04210000 LM R14,R12,12(R13) RESTORE CALLER'S REGS 04220000 BR R14 04230000 ********************************************************************** 04240000 * EQUATES TO VERIFY TYPE OF EXIT CALL, COMPARE WITH XTP7ETYP * 04250000 ********************************************************************** 04260000 INITCALL EQU B'10000000' RESOURCE EXIT INITIAL CALL 04270000 BDSCALL EQU B'01000000' BEGINNING OF DATA SET CALL 04280000 ACCCALL EQU B'00100000' RESOURCE ACCESS CALL 04290000 LDBCALL EQU B'00010000' RESOURCE LOAD BEGIN CALL 04300000 LDECALL EQU B'00001000' RESOURCE LOAD END CALL 04310000 DSECALL EQU B'00000100' RESOURCE DELETE AT DATA SET END 04320000 TRMCALL EQU B'00000010' TERMINATION OF FSA CALL 04330000 ********************************************************************** 04340000 * EQUATES TO VERIFY TYPE OF RESOURCE CALL, COMPARE WITH XTP7RTYP * 04350000 ********************************************************************** 04360000 PDEF EQU B'10000000' PAGEDEF 04370000 FDEF EQU B'01000000' FORMDEF 04380000 FONT EQU B'00100000' CODED FONT 04390000 OVLY EQU B'00010000' MEDIUM OVERLAY 04400000 PSEG EQU B'00001000' PAGE SEGMENT 04410000 ********************************************************************** 04420000 * REGISTER EQUATES * 04430000 ********************************************************************** 04440000 R0 EQU 0 04450000 R1 EQU 1 04460000 R2 EQU 2 04470000 R3 EQU 3 04480000 GEXTPTR EQU 4 04490000 XTP7PTR EQU 5 04500000 ECAPTR EQU 6 04510000 RLSTPTR EQU 7 04520000 JSPAPTR EQU 8 04530000 R9 EQU 9 04540000 R10 EQU 10 04550000 R11 EQU 11 04560000 R12 EQU 12 04570000 R13 EQU 13 04580000 R14 EQU 14 04590000 R15 EQU 15 04600000 ********************************************************************** 04610000 * RRLV CONSTANTS * 04620000 ********************************************************************** 04630000 * * 04640000 PDRRLV DC H'0' Page definition RRLV value 04650000 FDRRLV DC H'0' Form definition RRLV value 04660000 PSRRLV DC H'0' Page segment RRLV value 04670000 CFRRLV DC H'0' Coded font RRLV value 04680000 PRSOSI1 DC CL8'SOSI1 ' SOSI1 PRMODE value @01A 04690000 PRSOSI2 DC CL8'SOSI2 ' SOSI2 PRMODE value @01A 04700000 PRSOSI3 DC CL8'SOSI3 ' SOSI3 PRMODE value @01A 04710000 END 04720000