For SYSTEM 2000 Version: 12.1
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
THIS FIX ALLOWS A CICS PROGRAM TO XCTL TO SCFDRVR AND PASS THE INITIAL TERMINAL INPUT. IT ALSO PREVENTS AN ASRA ABEND WHEN S2KU RECEIVES A PF KEY BUT
Note: Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.
Top of Zap Deck:
* IBM R12.1 BUG 4862 MVS
*
* THIS FEATURE ALLOWS SCFDRVR TO RECIEVE INPUT COMMANDS VIA A CICS XCTL
*
* SAMPLE XCTL COMMAND:
*
* EXEC CICS
* XCTL PROGRAM(PGMNAME) COMMAREA(XCTLCOM) LENGTH(8)
* INPUTMSG(S2KUMSG) INPUTMSGLEN(80)
* END-EXEC.
*
* SAMPLE WORKING-STORAGE FIELDS TO SUPPORT THIS COMMAND:
*
* 01 S2KUMSG PIC X(80) VALUE 'USER,DEMO:DBN IS EMPLOYEE: '.
* 01 PGMNAME PIC X(8) VALUE 'SCFDRVR '.
* 01 XCTLCOM PIC X(8) VALUE 'XCTLS2KU'.
*
./ CHANGE NAME=SCFDRVR
* *35* 15NOV96 DWP B4862 ALLOW CUSTOMERS TO XCTL TO SCFDRVR *35* 00034990
CLC 0(4,R15),=CL4'XCTL' SPECIAL XCTL FEATURE *35* 00095010
BNE DRVR0002 NO *35* 00095020
MVC EIBTRNID,4(R15) MOVE TRANID FROM COMMAREA*35* 00095030
MVI EIBAID,X'7D' ALWAYS ENTER KEY *35* 00095040
LR R6,R8 START OF AID DEFINITION TABLE *35* 00224010
LA R7,LAID3270(R8) END OF THE TABLE. *35* 00224020
L R15,DFHEICAP ADDR POSSIBLE EDIT COMM *35* 00224030
LTR R15,R15 AVAILABLE ? *35* 00224040
BZ DRVR0110 NO. CONTINUE *35* 00224050
C R15,=XL4'FF000000' NO ADDRESS ? (2.1) *35* 00224060
BE DRVR0110 YES. *35* 00224070
CLC 0(4,R15),=CL4'XCTL' SPECIAL XCTL FEATURE *35* 00224080
BE DRVR0115 YES *35* 00224090
DRVR0115 EQU * *35* 00230010
End of Zap Deck