setreader 03

<--! %s_sjlstk = 57415443484441544154696D65434F53
<--! %sn1 = 8688000000000001
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;MF
;IRK
<--! %keyid=0170
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sIRKMF = @desjs(%s_sjlstk,%sdata,1)

;PUK
<--! %keyid=0100
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sPUKMF = @desjs(%s_sjlstk,%sdata,1)

;BK
<--! %keyid=0101
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sBKMF = @desjs(%s_sjlstk,%sdata,1)

;UK1MF
<--! %keyid=0104
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK1MF = @desjs(%s_sjlstk,%sdata,1)

;UK2MF
<--! %keyid=0105
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK2MF = @desjs(%s_sjlstk,%sdata,1)

;UK3MF
<--! %keyid=0106
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK3MF = @desjs(%s_sjlstk,%sdata,1)

;STKMF
<--! %keyid=0173
B0A0 000000000000FFFF %keyid 0201 01  %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %Skeyallfs = @desjs(%s_sjlstk,%sdata,1)
<--! %sSTKMF = @left(@right(%Skeyallfs,24),8)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DF01
;STKDF01
<--! %keyid=0174
B0A0 000000000000FFFF %keyid 0201 01  %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %Skeyallfs = @desjs(%s_sjlstk,%sdata,1)
<--! %sSTKDF01 = @left(@right(%Skeyallfs,24),8)

;UK101DF01
<--! %keyid=0107
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK101DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK102DF01
<--! %keyid=0108
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK102DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK103DF01
<--! %keyid=0109
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK103DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK201DF01
<--! %keyid=010A
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK201DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK202DF01
<--! %keyid=010B
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK202DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK203DF01
<--! %keyid=010C
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK203DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK301DF01
<--! %keyid=0176
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK301DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK302DF01
<--! %keyid=0177
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK302DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK303DF01
<--! %keyid=0178
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK303DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK401DF01
<--! %keyid=0179
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK401DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK402DF01
<--! %keyid=017A
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK402DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK403DF01
<--! %keyid=017B
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK403DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK501DF01
<--! %keyid=010D
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK501DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK502DF01
<--! %keyid=010E
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK502DF01 = @desjs(%s_sjlstk,%sdata,1)

;UK503DF01
<--! %keyid=010F
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK503DF01 = @desjs(%s_sjlstk,%sdata,1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DF02
;STKDF02
<--! %keyid=0185
B0A0 000000000000FFFF %keyid 0201 01  %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %Skeyallfs = @desjs(%s_sjlstk,%sdata,1)
<--! %sSTKDF02 = @left(@right(%Skeyallfs,24),8)

;UK201DF02
<--! %keyid=0110
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK201DF02 = @desjs(%s_sjlstk,%sdata,1)

;UK202DF02
<--! %keyid=0111
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK202DF02 = @desjs(%s_sjlstk,%sdata,1)

;UK203DF02
<--! %keyid=0112
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK203DF02 = @desjs(%s_sjlstk,%sdata,1)

;UK301DF02
<--! %keyid=0113
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK301DF02 = @desjs(%s_sjlstk,%sdata,1)

;UK302DF02
<--! %keyid=0114
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK302DF02 = @desjs(%s_sjlstk,%sdata,1)

;UK303DF02
<--! %keyid=0115
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK303DF02 = @desjs(%s_sjlstk,%sdata,1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DF03
;STKDF03
<--! %keyid=0186
B0A0 000000000000FFFF %keyid 0201 01  %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %Skeyallfs = @desjs(%s_sjlstk,%sdata,1)
<--! %sSTKDF03 = @left(@right(%Skeyallfs,24),8)

;UK101DF03
<--! %keyid=0116
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK101DF03 = @desjs(%s_sjlstk,%sdata,1)

;UK102DF03
<--! %keyid=0117
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK102DF03 = @desjs(%s_sjlstk,%sdata,1)

;UK103DF03
<--! %keyid=0118
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK103DF03 = @desjs(%s_sjlstk,%sdata,1)

;UK201DF03
<--! %keyid=0190
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK201DF03 = @desjs(%s_sjlstk,%sdata,1)

;UK202DF03
<--! %keyid=0191
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK202DF03 = @desjs(%s_sjlstk,%sdata,1)

;UK203DF03
<--! %keyid=0192
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK203DF03 = @desjs(%s_sjlstk,%sdata,1)

;UK301DF03
<--! %keyid=0119
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK301DF03 = @desjs(%s_sjlstk,%sdata,1)

;UK302DF03
<--! %keyid=011A
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK302DF03 = @desjs(%s_sjlstk,%sdata,1)

;UK303DF03
<--! %keyid=011B
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK303DF03 = @desjs(%s_sjlstk,%sdata,1)

;RK101DF03
<--! %keyid=0193
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sRK101DF03 = @desjs(%s_sjlstk,%sdata,1)

;RK102DF03
<--! %keyid=0194
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sRK102DF03 = @desjs(%s_sjlstk,%sdata,1)

;RK103DF03
<--! %keyid=0195
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sRK103DF03 = @desjs(%s_sjlstk,%sdata,1)

;RK201DF03
<--! %keyid=0196
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sRK201DF03 = @desjs(%s_sjlstk,%sdata,1)

;RK202DF03
<--! %keyid=0197
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sRK202DF03 = @desjs(%s_sjlstk,%sdata,1)

;RK203DF03
<--! %keyid=0198
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sRK203DF03 = @desjs(%s_sjlstk,%sdata,1)

;LKDF03
<--! %keyid=0102
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sLKDF03 = @desjs(%s_sjlstk,%sdata,1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DF04
;STKDF04
<--! %keyid=0175
B0A0 000000000000FFFF %keyid 0201 01  %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %Skeyallfs = @desjs(%s_sjlstk,%sdata,1)
<--! %sSTKDF04 = @left(@right(%Skeyallfs,24),8)

;UK101DF04
<--! %keyid=011C
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK101DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK102DF04
<--! %keyid=011D
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK102DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK103DF04
<--! %keyid=011E
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK103DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK301DF04
<--! %keyid=0128
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK301DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK302DF04
<--! %keyid=0129
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK302DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK303DF04
<--! %keyid=012A
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK303DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK401DF04
<--! %keyid=012B
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK401DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK402DF04
<--! %keyid=012C
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK402DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK403DF04
<--! %keyid=012D
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK403DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK501DF04
<--! %keyid=012E
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK501DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK502DF04
<--! %keyid=012F
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK502DF04 = @desjs(%s_sjlstk,%sdata,1)

;UK503DF04
<--! %keyid=0130
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK503DF04 = @desjs(%s_sjlstk,%sdata,1)

;LKDF04
<--! %keyid=0103
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sLKDF04 = @desjs(%s_sjlstk,%sdata,1)

;DSK01DF04
<--! %keyid=011F
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDSK01DF04 = @desjs(%s_sjlstk,%sdata,1)

;DSK02DF04
<--! %keyid=0120
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDSK02DF04 = @desjs(%s_sjlstk,%sdata,1)

;DSK03DF04
<--! %keyid=0121
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDSK03DF04 = @desjs(%s_sjlstk,%sdata,1)

;DLK01DF04
<--! %keyid=0122
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDLK01DF04 = @desjs(%s_sjlstk,%sdata,1)

;DLK02DF04
<--! %keyid=0123
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDLK02DF04 = @desjs(%s_sjlstk,%sdata,1)

;DLK03DF04
<--! %keyid=0124
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDLK03DF04 = @desjs(%s_sjlstk,%sdata,1)

;DPK01DF04
<--! %keyid=017F
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDPK01DF04 = @desjs(%s_sjlstk,%sdata,1)

;DPK02DF04
<--! %keyid=0180
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDPK02DF04 = @desjs(%s_sjlstk,%sdata,1)

;DPK03DF04
<--! %keyid=0181
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDPK03DF04 = @desjs(%s_sjlstk,%sdata,1)

;DTK01DF04
<--! %keyid=0125
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDTK01DF04 = @desjs(%s_sjlstk,%sdata,1)

;DTK02DF04
<--! %keyid=0126
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDTK02DF04 = @desjs(%s_sjlstk,%sdata,1)

;DTK03DF04
<--! %keyid=0127
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDTK03DF04 = @desjs(%s_sjlstk,%sdata,1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DF0A
;STKDF0A
<--! %keyid=0134
B0A0 000000000000FFFF %keyid 0201 01  %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %Skeyallfs = @desjs(%s_sjlstk,%sdata,1)
<--! %sSTKDF0A = @left(@right(%Skeyallfs,24),8)

;UK101DF0A
<--! %keyid=0136
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK101DF0A = @desjs(%s_sjlstk,%sdata,1)

;UK102DF0A
<--! %keyid=0137
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK102DF0A = @desjs(%s_sjlstk,%sdata,1)

;UK103DF0A
<--! %keyid=0138
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK103DF0A = @desjs(%s_sjlstk,%sdata,1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DF0B
;STKDF0B
<--! %keyid=0135
B0A0 000000000000FFFF %keyid 0201 01  %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %Skeyallfs = @desjs(%s_sjlstk,%sdata,1)
<--! %sSTKDF0B = @left(@right(%Skeyallfs,24),8)

;UK101DF0B
<--! %keyid=0139
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK101DF0B = @desjs(%s_sjlstk,%sdata,1)

;UK102DF0B
<--! %keyid=013A
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK102DF0B = @desjs(%s_sjlstk,%sdata,1)

;UK103DF0B
<--! %keyid=013B
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sUK103DF0B = @desjs(%s_sjlstk,%sdata,1)
setreader 04