{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LIST867)}}
====== LIST867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BCONTEXT|BCONTEXT]], [[george:macro:CHEKPASWRD|CHEKPASWRD]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERRX|COMERRX]], [[george:macro:DOWN|DOWN]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FREECORE|FREECORE]], [[george:macro:LDBIT|LDBIT]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NEWJBNUM|NEWJBNUM]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:PARALYSE|PARALYSE]], [[george:macro:PARAPASS|PARAPASS]], [[george:macro:PROPUSER|PROPUSER]], [[george:macro:READDICT|READDICT]], [[george:macro:SECHECK|SECHECK]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPARANOT|SPARANOT]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:USERNORM|USERNORM]], [[george:macro:ZERRORX|ZERRORX]]
22FL ...#LIS K0LIST
22^= ... SEG LIST,,,,G253,G551
23DW ...# FOR UGUG EDIT M253 (LISTFILE IN NO-USER CONTEXT)
23YG ...#OPT G551 = 0
24D6 ...#SKI G551&1
24XQ ...# WITH G3UG EDIT M551 (SELECTIVE PASSWORD CHECKS FOR CENTRAL AND REMOTE)
25CB ... SEGENTRY K1LIST,START
25X2 ...#
26BL ...TERIA 12HQ [ OWNER OF CAFE SYSTEM
26W= ...NJBDF 12HMOPNOUSERLF
27*W ...#
27TG ...# ERRORS
28*6 ...#
28SQ ...MZERR NGN 7 1 [ FRIG FOR ZERRORX
29#B ...MZERR1
29S2 ...MZER2 COMERRX 0(1),7 [ X7 = SUB-PARAMETER
2=?L ...ZJUSNA +JUSNA
2=R= ...ZJCOM +JCOM
2?=W ...#
2?QG ...XUSNA LDX 7 ZJUSNA(1)
2#=6 ... ZERRORX JPARMIS,1
2#PQ ...XFORM ZERRORX ERUSERFORM
2*9B ...XNEXI ZERRORX ERNOUSER
2*P2 ...XUSER LDX 7 ZJCOM(1)
2B8L ... ZERRORX JCONTINC,1
2BN= ...XIMP ZERRORX IMPASSE
2C7W ...XHSE ZERRORX HSECURE
2CMG ...#
2D76 ...XBRK COMBRKIN [ NOT AN ERROR REALLY
2DLQ ...#
2F6B ...START
2FL2 ... LDBIT ECVUSER,7
2G5L ... ANDX 7 CONTEXT(2) [ LEAVES X7 =0 IF NO-USER
2GK= ... BZE 7 NCAFF
2H4W ... FJOCA 2
2HJG ... LDX 4 TERIA(1)
2J46 ... LDX 5 TERIA+1(1)
2JHQ ... LDX 6 TERIA+2(1)
2K3B ... TXU 4 JUSER(2)
2KH2 ... TXU 5 JUSER+1(2)
2L2L ... TXU 6 JUSER+2(2) [ ONLY CAFE SYSTEM ALLOWED TO USE
2LG= ... BCS XUSER [ 'LIST' IN USER CONTEXT.
2L^W ...NCAFF PARAPASS [ TO ADVANCE PARAPASS POINTER -
2MFG ... MFREE CPB,CUNI [ PARANEXT DOESN'T DO THIS
2M^6 ... PARALYSE #36 [ GET USERNAME PART OF FIRST PARAM
2NDQ ... LDN 1 1
2NYB ... USERNORM 1 [ CHECK IT SLIGHTLY
2PD2 ... TESTREP2 USERMIS,XUSNA [ NO COLON
2PXL ... TESTRPN2 OK,XFORM [ FORMAT ERROR
2QC= ... MHUNTW 1,FILE,ADICT
2QWW ... LDN 4 A1(1)
2RBG ... LDN 5 CPREFIX(2) [ FOR 'PROPUSER'
2RW6 ... BZE 7 NUSER
2S*Q ... LDN 5 ACOMMUNE1(2) [ ASSUME A PROPER USER IF CAFE
2STB ...NUSER MOVE 4 3
2T*2 ... FREECORE 1
2TSL ... BNZ 7 PNAME [ ASSUME CAFE USERNAME VETTED EARLIER
2W#= ... PROPUSER [ CORRES. PROPER USER IN ACOM1-3
2WRW ... TESTREP2 NOUSER,XNEXI [ NOT IN LEXICON
2X?G ... LDX 5 ACOMMUNE2(2) [ ACOM2 USED BY OPENSYS
2XR6 ... OPENSYS (GEOERR),DICTIONARY,READ
2Y=Q ... STO 5 ACOMMUNE2(2)
2YQB ... READDICT ,ACOMMUNE1(2) [ MAKE FILE/ADICTENT FOR PASSCHECK
2^=2 ... CLOSETOP
2^PL ... TESTRPN2 OK,XNEXI [ USER HAS JUST BEEN ERASED !
329= ...PNAME SPARANOT 2 [ JOB-NAME PART OF FIRST PARAM
32NW ... SETNCORE JPRIV+1,3,IUSER,JBL [ TO HOLD JOB-BLOCK DATA
338G ... LDN 0 1 [ AWORK2 = 1 FOR 'LIST', 0 FOR 'LF'
33N6 ... STO 0 AWORK2(2)
347Q ... LDN 5 JUSER(3) [ IUSER/JBL MUST BE SET UP WITH DATA
34MB ... LDN 4 ACOMMUNE1(2) [ EXPECTED BY LISTFILE IN JOB BLOCK
3572 ... MOVE 4 3
35LL ... MHUNT 2,CPB,CUNI
366= ... STO 2 GEN0
36KW ... NGX 4 ANUM(2)
375G ... LDN 1 NJBDF(1) [ DEFAULT IF NO "JOBNAME" IN PARAM
37K6 ... BPZ 4 NJMV
384Q ... LDX 5 ACES [ SPACE-FILL "JOBNAME" IN X5X6X7
38JB ... LDX 6 ACES
3942 ... LDX 7 ACES
39HL ... LDN 0 APARA(2)
3=3= ... LDEX 2 ANUM(2)
3=GW ... SBNC 2 12
3?2G ... NGN 1 0
3?G6 ... ANDX 2 1
3?^Q ... LDN 1 5
3#FB ... MVCH 0 12(2) [ CANNOT BE ZERO MOVE
3#^2 ... LDN 1 5
3*DL ...NJMV LDN 2 JNAME(3) [ "JOBNAME"
3*Y= ... MOVE 1 3
3BCW ... FREECORE GEN0 [ CPB/CUNI
3BXG ... MFREE CPB,CMULTI
3CC6 ... LDX 0 JOBNO(2)
3CWQ ... BNZ 0 STOJN
3DBB ... NEWJBNUM 0
3DW2 ...STOJN STO 0 JOBNUM(3)
3F*L ... STOZ JPRIV(3)
3FT= ... LDN 4 #42
3G#W ... BCONTEXT PCHK,2,OPERATOR [ GIVE URGENCY B
3GSG ... LDN 4 #55
3H#6 ... STO 4 JURGE(3)
3HRQ ... BCONTEXT NPWP,2,USER [ URGENCY M FOR CAFE
3J?B ... LDN 4 #45 [ URGENCY E FOR ORDINARY NO-USER
3JR2 ...PCHK STO 4 JURGE(3)
3K=L ...#SKI G551&1$1
3KQ= ...(
3L9W ... MHUNTW 3,FILE,ADICTENT
3LPG ... LDBIT ECVMOP,7
3M96 ... ANDX 7 CONTEXT(2) [ #0 = MOP
3MNQ ... SECHECK 3,NPCHK,NORM
3N8B ... BZE 7 XHSE [ HIGH, NOT MOP
3NN2 ...NORM BZE 7 NPCHK
3P7L ... CHEKPASWRD XBRK,XIMP
3PM= ... BRN NPWP
3Q6W ...NPCHK FREECORE 3
3QLG ...)
3R66 ...#SKI G551&1
3RKQ ...(
3S5B ... LDCT 7 #400
3SK2 ... ORN 7 2
3T4L ... DOWN INITJOB,20
3TJ= ... BRN XBRK
3W3W ... BRN XIMP
3WHG ... BRN NPWP
3X36 ... BRN XHSE
3XGQ ...)
3Y2B ...NPWP LDN 6 1 [ NO PASSWORD PARAM
3YG2 ...XPWP STO 6 AWORK4(2)
3Y^L ... ACROSS LISTFILE,2
3^F= ...#END
3^YW ...
^^^^ ...026113510018