**** START OF SPECIFICATIONS ***************************************** 00010000 * * 00020000 * MODULE NAME = APSUX08X * 00030000 * * 00040000 * $MOD(APSUX08X) COMP(APS) PROD(PSF) : VERSION 3.3.0 * 00050000 * * 00060000 * DESCRIPTIVE NAME = MIGRATION EXIT EXAMPLE * 00070000 * * 00080000 * STATUS = VERSION 3, RELEASE 3, LEVEL 0 * 00090000 * * 00100000 * FUNCTION = * 00110000 * Set the line mode migration flag for the correct FCB @EXC* 00120000 * * 00130000 * OPERATION = * 00140000 * OBTAIN ADDRESSABILITY TO THE EXIT INFORMATION * 00150000 * * 00160000 * NOTES = * 00170000 * DEPENDENCIES = NONE * 00180000 * RESTRICTIONS = NONE * 00190000 * * 00200000 * REGISTER CONVENTIONS = * 00210000 * SEE ASSEMBLER EQUATES * 00220000 * PATCH LABEL = PSPACE * 00230000 * * 00240000 * MODULE TYPE = PROCEDURE * 00250000 * PROCESSOR = ASSEMBLER * 00260000 * ATTRIBUTES = REENTRANT * 00270000 * * 00280000 * ENTRY POINT = APSUX08 * 00290000 * LINKAGE = * 00300000 * R1 = ADDRESS OF A 4 BYTE FIELD WHICH CONTAINS THE ADDRESS * 00310000 * OF APSGEXTP * 00320000 * R15 = ENTRY POINT ADDRESS * 00330000 * R14 = RETURN ADDRESS * 00340000 * R13 = SAVE AREA ADDRESS * 00350000 * * 00360000 * INPUT = * 00370000 * APSGEXTP - PSF INSTALLATION EXIT PARAMETER AREA * 00380000 * APSUECA - PSF EXIT COMMUNICATIONS AREA * 00390000 * IAZJSPA - JOB SEPARATOR PAGE DATA AREA * 00400000 * * 00410000 * OUTPUT = * 00420000 * * 00430000 * EXIT NORMAL = RETURN TO CALLER * 00440000 * * 00450000 * EXIT ERROR = NONE * 00460000 * * 00470000 * EXTERNAL REFERENCES = * 00480000 * ROUTINES = NONE * 00490000 * DATA AREAS = * 00500000 * APSGEXTP - PSF INSTALLATION EXIT PARAMETER AREA * 00510000 * APSUECA - PSF EXIT COMMUNICATIONS AREA * 00520000 * INCLUDES = NONE * 00530000 * * 00540000 * MACROS = NONE * 00550000 * * 00560000 * MESSAGES = NONE * 00570000 * * 00580000 * CHANGE ACTIVITY = * 00590000 * $B0=LAPS0008, HPRF320, 090600, BDKURLD: INITIAL VERSION @B0A* 00600000 * $01=OW44363, HPRF320, 090600, BDKURLD: Support line mode * 00610000 * migration @01A* 00620000 * $02=OW47659, HPRF320, 010104, BDKUMLC: Compile only @02A* 00630000 * $EV=LAPS0009,HPRF330,010530,BUQ4RLB: Version 3.3.0 @EVA* 00640000 * $EX=LAPS0009, HPRF330, 010423, BDKURLD: Support line mode migration* 00650000 * enhancement @EXA* 00660000 * * 00670000 **** END OF SPECIFICATIONS ******************************************* 00680000 APSUX08 START 0 00690000 TITLE 'DSECT - XTP' 00700000 APSGEXTP LIST=YES 00710000 TITLE 'DSECT - ECA' 00720000 APSUECA LIST=YES 00730000 TITLE 'APSUX08 - MIGRATION EXIT EXAMPLE' 00740000 APSUX08 CSECT , 00750000 APSUX08 AMODE 31 00760000 APSUX08 RMODE ANY 00770000 USING *,15 00780000 B START 00790000 DC AL1(16) LENGTH OF FOLLOWING FIELDS 00800000 DC CL7'APSUX08' NAME OF THIS ROUTINE 00810000 DC CL8'&SYSDATE' DATE OF THIS ASSEMBLY 00820000 DROP 15 00830000 START DS 0H 00840000 STM 14,12,12(13) SAVE CALLERS REGISTERS 00850000 LR BASEREG,15 SWITCH BASE REGISTER 00860000 USING APSUX08,BASEREG 00870000 USING APSGEXTP,XTPPTR 00880000 USING XTP8,XTP8PTR SET ADDRESSIBILITY TO XTP8 00890000 USING APSUECA,ECAPTR 00900000 L XTPPTR,0(,1) LOAD ADDRESS OF APSGEXTP 00910000 L ECAPTR,XTPECAP LOAD ADDRESS OF APSUECA 00920000 LR 2,13 LOAD ADDRESS OF CALLERS SAVE 00930000 LA 13,ECAUSAVE ADDR OF APSUX08 SAVE AREA 00940000 ST 2,4(,13) SAVE CALLERS SAVE AREA ADDRESS 00950000 ST 13,8(,2) SAVE APSUX08 SAVE AREA ADDRESS 00960000 L XTP8PTR,XTPRECP LOAD ADDRESS OF XTP8 00970000 ********************************************************************* 00980000 * SET THE MIGRATION FLAG 00990000 ********************************************************************* 01000000 * 01010000 OI XTP8FLAG,XTP8MIG SET THE MIGRATION FLAG FOR 01020000 * 4245 FCB (FCB2). @EXC 01030000 * OI XTP8FLAG,XTP8MIG4 SET THE MIGRATION FLAG FOR 01040000 * 4248 FCB (FCB4). @EXA 01050000 * 01060000 ********************************************************************* 01070000 * EPILOGUE 01080000 ********************************************************************* 01090000 GETOUT SLR 15,15 PSF EXPECTS ZERO RETURN CODE 01100000 L 13,4(,13) RESTORE CALLERS SAVE AREA ADDR. 01110000 L 14,12(,13) RESTORE CALLERS RETURN ADDRESS 01120000 LM 0,12,20(13) RESTORE CALLERS REGISTERS 01130000 BR 14 RETURN TO CALLER 01140000 SPACE 2 01150000 XTPPTR EQU 4 POINTER TO APSGEXTP 01160000 ECAPTR EQU 5 POINTER TO APSUECA 01170000 XTP8PTR EQU 6 POINTER TO XTP8 01180000 BASEREG EQU 12 BASE REGISTER 01190000 SPACE 2 01200000 END APSUX08 01210000