{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: PWTABLE)}}
====== PWTABLE ======
(GIN Macro)
**Defined in:** [[george:source:MES_INTLUDES|MES INTLUDES]]
**Used in:**
22FL #MAC PWTABLE
22^= #STR %A
23DW (
23YG #MEN INITJOB
24D6 #TRA K21INITJOB
24XQ 3H%A,3H%B,3H%C,3H%D,3H%E,3H%F,3H%G,3H%H
25CB #END
25X2 )
26BL #DEF Z = 1?
26W= #LIS 0%I
27*W #ORD
27TG #INT
28*6 ZB
28SQ #GAP K21INITJOB+8
29#B SLINK 0
29S2 PFA +DINITJOB
2=?L SPS 4H
2=R= #DEF SW = #20202020
2?=W T1 24HPASSWORD CHECK SETTINGS ,+SW,+SW,+SW,#20202043
2?QG 8HENTRAL
2#=6 T1A #20202062,8HEMOTE
2#PQ T2 #20206345,8HCURITY :
2*9B T2A #20545767,#20202056,#57625541,#54202020,#50514750
2*P2 T31 28HLOGIN/CONNECT
2B8L T32 16HJOB/RUNJOB/INPUT,#20202030,8HMOP)
2BN= T33 16HJOB/RUNJOB/INPUT,#20203062,8HEADER)
2C7W T34 #20202020,8HRUNJOB
2CMG #20202020,12H(OPERATOR)
2D76 T3 +T31,+T32,+T33,+T34
2DLQ SIGN #40000000
2F6B #
2FL2 P STO 0 SLINK
2G5L CALL 3 18?+2]+5]
2GK= STOZ 18?+3]+20
2H4W LDN 5 ZB
2HJG LDN 2 K21INITJOB+8
2J46 LDX 6 PFA
2JHQ CALL 0 18?+2]+3]
2K3B CALL 3 18?+2]+10]
2KH2 CALL 0 NBL
2L2L LDN 0 T1
2LG= MOVE 0 12
2L^W LDN 5 T1A
2MFG LDN 6 16(1)
2M^6 MOVE 5 3
2NDQ CALL 3 18?+2]+19]
2NYB CALL 0 NBL
2PD2 LDN 5 T2
2PXL LDN 6 4(1)
2QC= MOVE 5 3
2QWW LDN 5 T2A
2RBG LDN 6 8(1)
2RW6 MOVE 5 5
2S*Q LDN 6 15(1)
2STB MOVE 5 5
2T*2 CALL 3 18?+2]+19]
2TSL LDN 7 4
2W#= PL CALL 0 NBL
2WRW LDN 2 4
2X?G SBX 2 7
2XR6 LDX 0 T3(2)
2Y=Q MOVE 0 7
2YQB ADN 1 8
2^=2 ADX 1 SIGN
2^PL LDX 6 ZB+K21INITJOB(2)
329= CALL 0 PTAB
32NW ADN 1 1
338G LDX 6 ZB+K21INITJOB+4(2)
33N6 CALL 0 PTAB
347Q CALL 3 18?+2]+19]
34MB BCT 7 PL
3572 CALL 3 18?+2]+10]
35LL CALL 3 18?+2]+10]
366= LDX 0 SLINK
36KW EXIT 0 0
375G #
37K6 PTAB LDN 3 3
384Q PTC LDN 5 0
38JB SLL 56 6
3942 DCH 5 0(1)
39HL SBN 5 #55
3=3= BPZ 5 OK1
3=GW ADN 5 #55-#46
3?2G BZE 5 OK
3?G6 NOK LDCT 5 #320
3?^Q ORS 5 0(1)
3#FB ORS 5 1(1)
3#^2 STO 5 18?+3]+20
3*DL BRN OK
3*Y= OK1 SBN 5 5
3BCW BPZ 5 NOK
3BXG OK ADN 1 2
3CC6 BCT 3 PTC
3CWQ EXIT 0 0
3DBB #
3DW2 NBL CALL 3 18?+2]+10]
3F*L CALL 5 18?+2]+20]
3FT= LDX 1 18?+1]+62
3G#W LDN 2 1(1)
3GSG LDX 5 SPS
3H#6 STO 5 0(1)
3HRQ MOVE 1 29
3J?B EXIT 0 0
3JR2 #JUM P
3K=L #EXT
3KQ= #LIS Z
3L9W #SKI 20?
3LPG ! **** ERROR IN PASSWORD CHECK TABLE * * * * * * * * * * * * * * * * *
3M96 #FRL
3MNQ #NOR