For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
DATEV WANTS TO HAVE SEPARATE PF KEY SETTINGS FOR THE S2OP TRANSACTION, AND THEY WANT TO BE ABLE TO ENTER S2KU FROM A FORMATTED SCREEN AND GET THE MENU
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.0 BUG 4659 MVS
./ CHANGE NAME=SCFDRVR
* *20* 14DEC92 GOH B4659 ALLOW S2OP TO HAVE IT'S OWN PF KEYS *20** 00030995
* *19* 14DEC92 GOH B4659 ALLOW 'USER,' OR 'EXIT:' AS FIRST CMD *19** 00030996
* *20* 00183010
* PF KEYS 3 AND 15 ARE HARD CODED TO REPRESENT THE END OF THE *20* 00183020
* S20P PAGING PROCESS. THE REST OF THE KEYS ARE AS SET IN THE *20* 00183030
* S2KCUSE EXPANSION *20* 00183040
* *20* 00183050
* *20* 00187020
* DECODE THE AID KEY FOR S2OP TRAN *20* 00187030
* *20* 00187040
CLI EIBAID,X'7D' IS IT 'ENTER' KEY? *20* 00187050
BNE DRVR105A NO, DECODE THE AID KEY. *20* 00187060
CLC SCFCMSGL,=H'0' NULL INPUT? *20* 00187070
BE DRVR0150 YES, REPLACE WITH 'P,N' *20* 00187080
B DRVR0170 ELSE, JUST RETURN *20* 00187090
DRVR105A EQU * *20* 00187100
L R6,SCFCUSE ADDR S2OP AID TABLE *20* 00187110
L R6,S2KOAID-DS2KCUSE(R6) *20* 00187115
LA R7,OAIDEND(R6) END OF THE TABLE. *20* 00187120
DRVR105B CLC EIBAID,0(R6) AID KEY DEPRESSED ? *20* 00187130
BE DRVR0140 FOUND THE KEY IN AID TABLE *20* 00187140
LA R6,8(R6) ELSE, GET NEXT DEFINITION *20* 00187150
CR R6,R7 END OF DEFINITION TABLE? *20* 00187160
BL DRVR105B NO, KEEP LOOKING. *20* 00187170
B DRVR0910 ELSE, UNDEFINED. *20* 00187180
* *20* 00187200
DRVR105C EQU * *20* 00187210
CLI 1(R6),X'40' CHECK IF THE KEY IS DEFINED?*20* 00187220
BE DRVR0910 IT'S UNDEFINED. *20* 00187230
LA R1,1(R6) ELSE, GET ADDR (SUBSTITUTE *20* 00187240
LA R0,7 SET LENGTH OF MESSAGE *20* 00187250
CLC 0(2,R1),CPAGE PAGING TRANS ? *20* 00187260
BNE DRVR0160 NO. *20* 00187270
MVC SCFCTRN,0(R1) SET TRAN CODE TO PAGE TRAN *20* 00187280
B DRVR105E AND RETURN. *20* 00187290
* *20* 00187300
DRVR105E STH R0,SCFCMSGL SAVE LENGTH *20* 00187380
ST R1,SCFCMSGA SAVE MESSAGE ADDRESS *20* 00187390
B DRVR0170 CONTINUE *20* 00188000
*19* BLR R14 00618000
BL DRVR0850 CHECK INPUT *19* 00618010
DRVR0605 EQU * *19* 00618020
EJECT 00791004
DRVR0850 EQU * *19* 00791006
* *19* 00791010
* INPUT MUST BE EITHER 'USER,' OR 'EXIT:' TO BE VALID, ELSE *19* 00791020
* WE WILL JUST DISPLAY MENU SCREEN *19* 00791030
* *19* 00791040
L R1,SCFCMSGA ADDR MESSAGE *19* 00791050
LH R15,SCFCMSGL GET LENGTH *19* 00791060
LA R1,4(R1) PAST TRAN CODE *19* 00791070
SH R15,=H'4' DECREMENT LENGTH *19* 00791074
DRVR0855 EQU * *19* 00791078
CH R15,=H'5' ENOUGH DATA LEFT ? *19* 00791082
BL DRVR0605 NO. OUTPUT MENU *19* 00791086
CLC 0(5,R1),CUSER 'USER,' ? *19* 00791090
BE DRVR0900 NO. CHECK EXIT *19* 00791100
CLC 0(5,R1),CEXIT 'EXIT:' ? *19* 00791130
BE DRVR0900 YES. JUST RETURN *19* 00791140
LA R1,1(R1) NEXT CHARACTER *19* 00791150
BCT R15,DRVR0855 CHECK THEM ALL *19* 00791160
B DRVR0605 NOT VALID INPUT, DO MENU *19* 00791170
CUSER DC CL5'USER,' *20* 01038020
CEXIT DC CL5'EXIT:' *20* 01038030
OAID *20* 01097010
./ CHANGE NAME=S2KUGEN
&OPF1='P,T', PAGING TOTALS *05*00036010
&OPF2='P,C', PAGE COUNT *05*00036020
&OPF4='P,L', PAGE LAST *05*00036030
&OPF5='P,F', PAGE FIRST *05*00036040
&OPF6='P,F', PAGE FIRST *05*00036050
&OPF7='P,P', PAGE PREVIOUS *05*00036060
&OPF8='P,N', PAGE NEXT *05*00036070
&OPF9='P,F', PAGE FIRST *05*00036080
&OPF10='P,T', PAGE TOTAL *05*00036090
&OPF11='P,C', PAGE COUNT *05*00036100
&OPF12='P,L', PAGE LAST *05*00036110
&OPF13='P,T', PAGE TOTALS *05*00036120
&OPF14='P,C', PAGE COUNT *05*00036130
&OPF16='P,L', PAGE LAST *05*00036140
&OPF17='P,F', PAGE FIRST *05*00036150
&OPF18='P,F', PAGE FIRST *05*00036160
&OPF19='P,P', PAGE PREVIOUS *05*00036170
&OPF20='P,N', PAGE NEXT *05*00036180
&OPF21='P,F', PAGE FIRST *05*00036190
&OPF22='P,T', PAGE TOTALS *05*00036200
&OPF23='P,C', PAGE COUNT *05*00036210
&OPF24='P,L', PAGE LAST *05*00036220
.*05* GOH B4659 14DEC92 ALLOW FOR S2OP PF KEYS 00042999
S2KOAID DC A(OPERAID) S2OP AID KEY SETS *05* 00077010
OPERAID CSECT PAGING COMMAND EQUIVALENTS FOR S2OP TRAN *05* 00147010
OPF22 DC XL1'4A',CL7&OPF22 *05* 00147020
OPF23 DC XL1'4B',CL7&OPF23 *05* 00147030
OPF24 DC XL1'4C',CL7&OPF24 *05* 00147040
OPF10 DC XL1'7A',CL7&OPF10 *05* 00147050
OPF11 DC XL1'7B',CL7&OPF11 *05* 00147060
OPF12 DC XL1'7C',CL7&OPF12 *05* 00147070
OPF13 DC XL1'C1',CL7&OPF13 *05* 00147080
OPF14 DC XL1'C2',CL7&OPF14 *05* 00147090
OPF16 DC XL1'C4',CL7&OPF16 *05* 00147100
OPF17 DC XL1'C5',CL7&OPF17 *05* 00147110
OPF18 DC XL1'C6',CL7&OPF18 *05* 00147120
OPF19 DC XL1'C7',CL7&OPF19 *05* 00147130
OPF20 DC XL1'C8',CL7&OPF20 *05* 00147140
OPF21 DC XL1'C9',CL7&OPF21 *05* 00147150
OPF1 DC XL1'F1',CL7&OPF1 *05* 00147160
OPF2 DC XL1'F2',CL7&OPF2 *05* 00147170
OPF4 DC XL1'F4',CL7&OPF4 *05* 00147180
OPF5 DC XL1'F5',CL7&OPF5 *05* 00147190
OPF6 DC XL1'F6',CL7&OPF6 *05* 00147200
OPF7 DC XL1'F7',CL7&OPF7 *05* 00147210
OPF8 DC XL1'F8',CL7&OPF8 *05* 00147220
OPF9 DC XL1'F9',CL7&OPF9 *05* 00147230
./ CHANGE NAME=DS2KCUSE
.* *03* 24DEC92 GOH B4659 ALLOW FOR S2OP PF KEYS 00006999
S2KOAID DS F S2OP AID TABLE ADDRESS *03* 00021010
./ ADD NAME=OAID
MACRO 00001000
OAID 00002000
OAID DSECT 00003000
.* *00* 24DEC92 GOH B4659 NEW MACRO FOR S2OP PF KEY TABLE IN S2KCUSE 00004000
OAIDPF22 DS XL1 00005000
DS CL7 00006000
OAIDPF23 DS XL1 00007000
DS CL7 00008000
OAIDPF24 DS XL1 00009000
DS CL7 00010000
OAIDPF10 DS XL1 00011000
DS CL7 00012000
OAIDPF11 DS XL1 00013000
DS CL7 00014000
OAIDPF12 DS XL1 00015000
DS CL7 00016000
OAIDPF13 DS XL1 00017000
DS CL7 00018000
OAIDPF14 DS XL1 00019000
DS CL7 00020000
OAIDPF16 DS XL1 00021000
DS CL7 00022000
OAIDPF17 DS XL1 00023000
DS CL7 00024000
OAIDPF18 DS XL1 00025000
DS CL7 00026000
OAIDPF19 DS XL1 00027000
DS CL7 00028000
OAIDPF20 DS XL1 00029000
DS CL7 00030000
OAIDPF21 DS XL1 00031000
DS CL7 00032000
OAIDPF1 DS XL1 00033000
DS CL7 00034000
OAIDPF2 DS XL1 00035000
DS CL7 00036000
OAIDPF4 DS XL1 00037000
DS CL7 00038000
OAIDPF5 DS XL1 00039000
DS CL7 00040000
OAIDPF6 DS XL1 00041000
DS CL7 00042000
OAIDPF7 DS XL1 00043000
DS CL7 00044000
OAIDPF8 DS XL1 00045000
DS CL7 00046000
OAIDPF9 DS XL1 00047000
DS CL7 00048000
OAIDEND EQU *-OAID 00049000
MEND 00050000
End of Zap Deck