J PRPGIIH DECK-ID T01 RPGII 2.0 SUMMARY-126JN@P11,,..$$00**--CCRR ++}}JJRR//99AAIIJJ%%Nr@P/* )** ) 1) DIJ) S) E) F) SKIP ON CONDITION)RPGOBJR9FRCDR9SNHLR9BASER9RPRTR9INVPR9rr@PONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINSR9CHRCR9CHARR9BLNKR9PLUSR9MZERR9MONER9MNINR9SLrr@PSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9XLATR9TRCER9RPGXR9RPGOR9FBSE0000$<0"<0rr@P0"*"+"2$"$$ ,^,"*,fVTdV4XTV= , 4 0X*,! "0>"hVrr@P,4F4HeV4*>+f$+DVR*VDVR *VDVR  *VD V(DV)R rr@PW *V*D V+R *V,D V2D- *V3D<< *V4D V= , 4 0X*,rr@P !VJR *VKD",\ ^, /X\^,/X(,6,`/.zn*@@ ,t,*@@p",^,rr@P>- .^,nt.(,6, >-. .nt.* l* l* l>2*@Fn  rr@P .Ht*.jFV DZ VDZ VR 2",V\ ^, =X\^,=X(,6,.rr@P |@Z{[llP]}M]\Nkk``Kaarr@P.zzm^L~~nnoo |[.<(+^&!rr@PY$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""rr@Prr@P{#AABBCCDDEEFFGGHHII})J$K.L<M(N+O*P&QQRRrb@PSSTTUUVVWWXXYYZ!00112233445566778899bP J PRPGIIF DECK-ID T02 RPGII 2.0 SUMMARY-126Jr@P5dy H .WGMHLDFILX00 yx}rF@P+VCDwwWWwwWCFmMF6FF @PK6F @PT6F r@P/* )** )ELI)DCUOI)DTRCSP ) AD) EL) E) FVD) LLR) API) IT123456789) ABCDEFGV)  AU) RUNrr@PI) 12345678) ASCII ) BUFOFF) SKIP ON CONDITION)EBCDIC) R9PFCBR9DSEQYSETLMR9RCADR9rr@PtDMNDR9CHINfVTdVT9V= ] 4 0X*]! "0>"hVR4FeV4*D.rr@P>Q"QFfZ N4,fX*NVDgPLNh(+VR 0^0 VR  1ǀ11rr@P6K6K606KVRk 2VR OHHVR6&Q 3VZm 4VZirr@P5 VRn 6VZo 7VRj .V Rp8*@@ 8V!D94OX"q 9 ^9 rr@P V#Zr :V'R/ V(FsPLNsH6;  <04UX,v >VID;66rr@Pv66B608686086.[ [ ]16^] ]-],rr@P06&L1666666060>L0>L<30060060 >Lrr@P0 >L6B.6>2>L16L1:3660>44<556 : 0rr@P>45 484485886 6.66B06B .66B0>.0.6rr@P">7>.1<9;6/V#D.>0(XX6YXrr@PxW06&I06ttttttttt16WTR0 ttt>99t9*@U>>rr@P>t>t[16Ā =6 =.:1=.6=2 =I=t=I ^[ M^0M^B"M^Mrr@P% Z(+Z86ZJ16\16\ PV\ =x=X*Pt86π =066rr@P666=36=B6@=86 =.66=B60=16.&M66Mrr@P$=^^8j =t=rr@PO@544t5vZ;6d55 Z4l65  =t=vZ*@;l ` k l=8kkllk =;6rr@Pz2==;6`=== Z86BvZ>Bx= ZtV6D"=\ ^= EX\^=EX(=6=`Eprr@PtV/D==t=tt>BZ5Zt?B 068rr@PЀ8ZPZt:@ =t=<=ZZ"=trZ.V54KxV6T5>Q"QT1TB..( =r=ti =r=rr@P.(V<Z| =r= =t= =r="Q.n<\~\6HB@ 0H l6BK"PBPrr@P& (P6P jE( D (r(prD2"+      "H"K"Q"\ R S U V Wrr@PQ Y","-.'DISK 'DISK40 'DISK45 'TAPE 'TAPErr@P|0 'TAPE1 'TAPE2 'PRINTER bPRINTR2 bPRINT84 bREADERrr@P P aREAD01 P aREAD42 P aMFCM1 P aMFCM2 P aMFCU1 P aMFCU2 rf@PP aPUNCH P bCONSOLE PsCRT77 PsSPECIAL ' 'fP J PRPGIIE DECK-ID T03 RPGII 2.0 SUMMARY-126J4@P 6 !Y_q}4r@P/* )** )LI) PBLR) AD)TAB)SKIP ON CONDITION)R9TBIOR9INTAR9TBOTR9ITLP ">"?"@ rr@P  n 70fVTdVT V= 3 4 0X*3! "0>"hVR4EeV4*rr@P0DVD"5"6V D..VDV.D <D, + ;tV4k,5 6V.T V!D. Jrr@P[; . Zo5 56 60 V+DV7D"5"6Jrr@PV$Zp: V+R J>< 7 V7R J>.VD.V+, 0><V7,  1>rr@P0 1 ==t=, / =t=H<8:5:6@: <rr@P =t=., >8}@, >/|B  =(r=t8 =r=.PDLN 9>2HV(Z8V4Zrr@P89>2P"4F4Z4LN 9~ P9<42 2Z2 X4PB.R28 rr@P26  06 8 5XD € 8 2Z28 XR 2  2RXDrr@P]2V D8Fw, 8r@J2VD/Fv, /q2t*@@&=<>==>"hV4I4LeV4*PLNf 0H@rr@PJVTVTVZg< 1VZh( .( /  (r(t.t1r/0t /6H@rr@P@/ J 0*@@n*@@pn"/,B/ / 6 /n "/-B/  / 6rr@P /   /HJ*/ jIUDATE  UMONTH UDAY  UYEAR r@P P J P+RPGIII DECK-ID T05 RPGII 2.0 SUMMARY-126Jf@P1y.E'Y5; ign+fr@PAND)OR) 1234567) **) N1) O ) PBLR)*ERROR) /* ) DZZC)CO) 123456789)123456789R) 123456rr@P78) N) TR) 12345) PAGE) SKIP ON CONDITION)** )R9CMSTR9IPUTR9NSQRR9MMOVR9CMOVR9LAHDR9rr@PDTRALR9BINPR9MHLDR9MMST R9INMKR9FDC1R9INTVREAD12READ13READ14READ15READ10READrr@Po16READ11READ09R9IPBG"7fVTAVT8V= B 4 0X*B! "0>"hVR4Ierr@PV4*D>,j$,VT&-T&.-VT/T VDF>1}}>7"2"4"5$/VZ>0Trr@PZV>8U>88( 8tttVD"<. Y>080 0>9 U,( :09,VR rr@P 1}}>998,,&T À&XV+R >4B YV,,k ?V0rr@PF,l?8n:?m?@? DV4>>DXxDEE>X EZ C >XN#>8D6 >DDorr@Pq>6 >66DpDEr60!>8  >66 >80 >  |+rr@P II H:DD:C@844>2?82:33>T>X >EBE0Bt B 6D}rr@P B@@>E 6C~.>F>E V5Tɕ T58Ǖ >EC D JV;rr@P"GD4LV< G^G (GYB@>6>5>2"HV=D4MV> HYrr@PJB@>6>5>2>XNV?DJ , J >GHNVA BD"K"L0DKrr@PH, KVCDL, LVEDM, MVGD >J&6J }X}>N}>P}} }> E |}t}? }rr@Pst}"B>X2>N >E>6 >806 > OD(BO:606"1G H6 J ?   B>66E B J.rr@P$,>1>7}}PFiLN {H6y yB @|@ y J  }} }^} Arr@P"0"8"9>U U( Utt{ttt.>1>5VD>.V*>-V>.&/VD. >2VD Vrr@PJ64 2>1f }t} 3"4Y.>2 }t}0>998, 43 }t}3 }t}6HH( Qrr@Pu"[, , ,  Z^Z [0 ", [  Z^Z [60>[t(  (r(vQ (rr@Pr( B^Bn6 >x ^B<\^B6\B0^B \*B$x 061H( Q, ,, 0 ",rr@P˰  Z[(((Q(( 0  2VDrr@PV6g>5B`VZh$5"6Y }t} U,. }( Br}vBrB24H4L4M4UZ BBrr@P!2XR0XR"q0X4R2XR(0J2DZO8>OXR- BXR6rr@PL} B/ B"/X\>~ }6 }4 04&A4-JbBtBO }t}2V5DvTzZ{"F"N"PV6rr@Pw B4,X *BPV5L, |2*Bu$FZPBL, N BB 60$ J0"Nrr@P40X*B|0D P PZP(NX*BN6 N0, V8VV ;^; V  ;^;rr@PV262Z2N +26 H602>2<7>1}} BY B@B*rr@P@ *B*Bn"B"O^B]O^B]O }t}(B6BO  -n "O B^BeV6 @ }t}V@rr@P#СO*BtOlO  ,n "B^B }t}(B6B }t} }t}t*@@n"}AB}rr@PN } 6 } "O6HB O 0>O jC B^B"n*B2 8 ZO rr@Py B Z B }t} }t}O6^Zn ^Zn>28 Z^Z>nZ  BB^Z nrr@P6>S^Z6eZ2^Z e2R ;^; R  ;^;R2","1"S"A"U"Y"x"y O^O"\*O$7rr@P"   *@@n*@@ z*@&~6HB@   }} }^}r@P A 0P J P RPGIIC DECK-ID T06 RPGII 2.0 SUMMARY-126JZ@P@_/5_tw&BHN!lf %55Zr@PAN) OR) /* )** ) H) SR) 0123456789+-.)0123456789) 0123456789R)ABCDEFGV) 12345678) TAB)rr@P01234567) PAGE) 1234567) SKIP ON CONDITION)LR) .+- ) RLABL)*ERROR) TAG )IN) 12345678rr@P?9) R9CALCR9LABLR9OPCDR9DETLR9TOTLR9ADSBR9ZADSR9ADSBR9ZADSR9MULTR9DIVDR9XFOTR9SQRTrr@PjR9MVRMR9MOVER9MOVER9MOVAR9MOVZR9MOVZR9MOVZR9MOVZR9COMPR9TSTZYTESTNR9TSTBR9LKUPR9LKUPR9rr@PSTONR9SETFR9BITNR9BITFR9GOTOR9EXITR9NDSRR9EXSRR9CHANR9FORCR9XCPTR9DSPYR9DEBGR9READR9STrr@PLLR9TIMER9FTNX R9DBGVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17R9CLBGR9LSTRrr@P*@&i@n7*@@n":";"N"l"o*B&Y    "T"b"dVT0fVTrr@PVT8V= m 4 0X*m! "0>"hV4O4CxV4*"8"9>7T&8kT&9Prr@PAVD&7>o"o06LNhH  X,6X76Xo6XoXoo6Xb6Xbrr@Pl%6XV!T)XJ3^6XY"kVD T 3TA%4L4>:$:tn>;>NVTMF+V40rr@P(V h, hth$k0>;>N>:0>Nt$N>:$:n8>;0 >;$;t0>89|( SV rr@PD ;$k>75>8D4N h V , ,hthV D4N h V , ,hthrr@PVD4N h V, ,hth>7VD*.d O ]V  U^U, n H IF E"Gl Orr@P ]V! 6V^V, 0 J Kt O ]V+  W^W, L M6XBL6"m6HmmH6JmJm Lrr@PC hthJ66HH hthH6͊hhM6"m6ImmI6KmKm M hthK66II hrr@PnthI6͒ϊhh"=">"? 6V6D{06, } >V8, ~ ?V:, *B *  =6#>=>?|%rr@P6X X >>?E6F>>?G@'6XX >= >= >>?>?V5Rz <BLQrr@P B@0M46X<>?v6=0C06XB>:N09>d6X3-6X&d26XB)VD rr@PE8D V+D B 806XG B0 $6XXXF6< -6X!6X<rr@PX6L6 6^% <>>? =0 hth> ? hth>ko. >TT hth"T.>;>Tnrr@PE T. htht)P8B hh h^h l.D O2B mZeDTIBrr@Pp^"[4,X*m"@mB m^mXB,O m<[ €@m>2*m$[R @m,> @ B B@ rr@P 60"A"@40X*m|2D A@! ARA(@X*mF]@ hthA 6hhA 6rr@PƊhhA  hxh062m @^@ m  B^Bm2R ,O$G0,O GBO rr@PJ  F24,O G0,O GBO J F2R 4',&`  F Grr@PBF6>`0,G0,G VO2D 2PF D LX4 N Q J,rr@PG6X7Xѱ d6O0Hd6O<S)"VQ2PF LN f|r2HJfrr@Pr2D .4' m"@X4' R+ A^A @*m|*mX^mD hthx@$F2>ot>:rr@P>N8>T*@@6n."hlBh/ h 6 h( (n( "1HB 11rr@P(161HB1(1 6 0 )mm HB , ((n (6OH@rr@P6v 04H4L4M4O4UZ mm2XRR0XRp0X4R2rr@PXR0XR$0D, mp6m8m>2m @^@ m  \^\m2> =? >"?2Drr@PIO2R ,u B  V1D%Z6 m 6m m e V4DZrr@Pt8m m 6m m mJ24',v B  V1DZ6  > rr@P6 mV4DJ2,wV1DZ6. mV4D€m8m ZZ! B Z8mrr@P Z 6m 6m m 6Z J6Z m2>2D2TPX, mm2 hT0Xrr@P3&_XPh:L h4 ,X*h6X N + g_  JHX666X g<rr@P 2"5"/"c m4- .X "a4.c4./5acRC/a>a.X*md6O&! j5 /6jtjrr@PK4+-"m/F64.R 1B1mmhhX0m. hxh0>"F2d6O$ j( 4tjX"mrr@Pv4'\>i hxhX(m6m|>2X4'm a^aD( hr4mF6jtjrh<2BEGSrr@PR RLABL 4TAG ADD "# Z-ADD "! SUB "# Z-SUB "!MULT "#DIV "#rr@PXFOOT "!SQRT "!MVR "MOVE &aMOVEL &aMOVEA $AMHLZO &AMLHZO $aMHHZO rr@P$AMLLZO &a COMP '! TESTZ $" TESTN $# TESTB %$ LOKUP '% LOKUP )'&!SETON ' SErr@P"TOF ( BITON %)BITOF %*GOTO +EXIT ,ENDSR -EXSR .CHAIN (/FORCE rb@PM0EXCPT 1DSPLY (2DEBUG (3READ 4SETLL 5TIME "6EXITF 7bP J PRPGIIO DECK-ID T07 RPGII 2.0 SUMMARY-126JF@P6)d'SQ3Fr@P** )/* )AND)OR) ADD)*PLACE) PBRL) XYZ 1234ABCDJKLM) '$')'*') N) 0123456789AB) *PRINT) rr@P MR) 1P) 0123456789R)ABCDEFGV) 12345678) PAGE) 1234567) B) SKIP ON CONDITION)*ERRORR9rr@P7DOTTR9TOTTR9EOTTR9OTPTR9ECODR9EDCNR9XCODR9YCODR9ZCODR9BINTR9FTOVR9PAGER9FSTLR9WOTVWRITrr@Pb20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17R9UOTVUPDT26UPDT27UPDT28UPDT29UPDT25YUOT06rr@PYUOT07YUOT08R9AOTVADDT30YAOT02ADDT31ADDT32YAOT05YAOT06YAOT07YAOT08R9OTBG*@&c@n(*rr@P@@*B&X$i"."/"0"I"e"f"g  VT0"ifVTVTIV= d 4 0X*drr@P! "0>"hV4OdV4*D>ieVT&UVD>i>j dtdt2V4E4T 4HDfrr@P>..(.0>//(/0>00(0 1":"Vt"ht"2VT&3VDy@zV4F&4Irr@P9Z6dd>3B 3VD,V, @( 5"6"_V,V,V,>_"jV D+{.rr@Pd>:ddVGD>j>4>6(dd7 d(65ϕ6td0>6,,":V,V,V,V(rr@P4*&YZg;8n"9V PD ' @&=I:dd:V-D9<2rr@P2 8;(2 dtdt;.02 dtd.$j"^V'RGV,>94 V'4B. B 4 V&4 =<><04X&^4Y^D=Z^IR8 rr@P>< 9V'4B&> dtd;822V-TϿ^~Tѿ^~ dtd.>j dtdt2>.>/>0rr@P;6HB 6 I 0 AI @A*@ *A*A*@@(n "deBd drr@Pf 6 dn"dfBd d 6 dn"dgBd d 6 d *B@ jAPFxL>irr@PN a|h. HBs  dd d^d d@&KdgBKdfjiUrr@P @ >4 >6(dd7 dtd"4,"V"h"6( 5. d( ArdvArA2A  BD3B rr@P C^BXDR  dX d CA dtd2 ADRA BX,A B>B@"@B7>66t7rr@P2 ADRA BX,A B6 dtd$:2V TRt"[ CV!4,X*C0C$[ZC,k Brr@P=B@ 6 b dtd0,"F"E40X*C|0#D ZlE EE(FX*CF6 dtdrr@PhE ddE  dxdE  dxdV ,j<[ €b9  B V,4P  04B8rr@P B [ b+ `` H8;o2 "L M"N"O"P"Q"SV-4'u:SmX>N4$X40rr@P>O$,0,, M(L$N"P$O0404*,04&&d >c,>d4 MPL>P 4'rr@P\>c,0X4'04C \>c,X4R"Q R$P04-$Q0 >PRQ S dtd rr@P8L6Hx 0(At;822 dtd"BV-4'uV.4' \>c dxdX(B6B|m0 X4'Brr@P? \^\Dv(rA8 B dtd drd0Z0*Xrr@PjZ0"X4RhR/p0XR5]&WX V  6]| J08/._ 0>W]0XR: J JJ Krr@P^K J  K^KJ2HPLN + b V T?V$BNj 2H2>Vh(r56>V dtd drd2r>@P( 8 1 drdv8r8a >3 dtd2 J(S2>P J PRPGIIA DECK-ID T08 RPGII 2.0 SUMMARY-126Jr@P#T# MoyU8$MHLDFILX00/* )** )*EQUATE rr@P+) *FILES ) ALTSEQ ) 0123456789ABCDEF) SKIP ON CONDITION)}JKLMNOPQR) {ABCDEFGHI) rr@PV R9ALSQR9FDTBYEXENDR9FBSER9FINSR9CARAR9MARAR9CLSVCLOS38CLOS39CLOS40CLOS41CLOS36CLOS42rr@PCLOS37CLOS35R9TOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17YCLS09R9FNBGR9UDATR9rr@PUMTHR9UDAYR9UYER*@@@n*@@"]"^"_6HB _ UU U^U rr@PU]BU^ 0*@@n"U]BU U 6 Un"U^BU U 6 U  rr@P *@@( n*@&T@ Y Z"R"W"X"."3VTg0$W,VT TT =,,>W6Rrr@P-,,n"X". RB &0B&1,. >3 >."X$.>W t$0$1"3V 4,,,nQ64 rr@PX 4,f X(464 3 0>X".$X$0$1$V ,n(VV8+ ,. ,$V6 H@rr@P,l(V 0*B VThTn$0"1,VTTi,0,>-n-6trr@P0>,n,6t0 \ Y Z ["U6 (UU6\U[HB``Y@rr@Pٰn,6t0 0  `: H B8@ @ >^`n(`0  ,J rr@P@lBkB / >T SxS*/0   /0x*/x . HB@,0, Brr@P/B FH,*60 FH,*6 .  B  ?FH >F J>G>I rr@PP >G JVTdT"O,VTO= > 7FH>?B,0,>:(  9:,Prr@P ;GI>@C,0,(  :9,*6>O*>0>O . ((n (6Htrr@Pt 06'H"/t /  /  /  / /  / B / /t/rr@P 0VTjjMfVTV= / 4 0X*/! "0>"h2"//a b6H 6/rr@P1 a6/  b 0>1b >0a StS(//62V  /,*/2DR Xrr@P\ X XXm J2>2 [ a"`V:(`0^a [a a`^a [`Yrr@PHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ rr@P / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2rr@P B  7t 6 =  B( 7* /tt// 7B 8,J @@&F@&H7 / B rr@P >T SxS*/2*/x0x2>O K J <<<T>L H>J:08n6L cxcJrr@P3X*<2>O D K J<M "N<< ED6  D4-EXD-E cxcXErr@P Ӏ PJL >J:08p6L J *N2 K J <>J9 >Trr@P cxc*<2 K K J  <0>JK cxc*<>J>K cxc26(n 2Be  S(r@P  erSdc d2P J PRPGIIM DECK-ID T09 RPGII 2.0 SUMMARY-126Jr@P qAj  6"l"m"n ^l^l^l^lrr@P+^lm^l^l^l^l^ln^l (l6l>m ,,,d6,>n , ,  ,rr@PVd6 ,, ,d6,6B,,d6 ,6 Ed6 <6 H8<6< 8=rr@P6=:> 2 < = > 0<6 2 H,d< J0,,d6 rr@P,d6 . /.@BF 36 H8363 8464 :5 2 3  4rr@P  5 0362 H < = > BNBAX/ A@XE/ DXE0B , rr@PB 0/ Hd< J. "fH^f <(f6f d<2 g"h"i:(i0:(h00rr@P-^g )gg<2d6d6d62S O R T E D F I E L D N A M E S rr@PNAME TYPE LENGTH DPS O R T E D L A B E L N A M E S NAME LINE THE rr@PFOLLOWING INDICATORS WERE SPECIFIED BUT WERE NEVERUSED TO CONDITION OPERATIONSTHE FOLLrr@POWING INDICATORS WERE USED TO CONDITION OPERATIONSBUT WERE NEVER SETTHE FOLLOWING INDIrr@PCATORS APPEARED IN THIS PROGRAM 0102030405060708091011121314151617181920212223242526rr@P/27282930313233343536373839404142434445464748495051525354555657585960616263646566676869rr@PZ707172737475767778798081828384858687888990919293949596979899  1PL0rr@PL1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9 OAOBOCODOEOFOGOV r<@P U1U2U3U4U5U6U7U8  MR<P J P 7RPGROT DECK-ID T10 RPGII 2.0 SUMMARY-126J@P  @PO @P @P H r@Pr`P9@P4??r@P9  @d ?@rr@Pd+h hrr@Py%"X hŘ+ @iT 0rr@Ph T - T hX h|h  rr@P@ T k  @ T mkhml ! @oTPhrr@P hX 'DhGA $@qT 2 7h X rl@P;1h% / @sT0 7hmXf 3 T Xlr@Pi RL=PF=TPF=FBP= OP= PC=hI2+h   4hxIrr@Ph /9FT^hr|2=HS\ektrr@P9DpF\f)3 >XcAlkXY7rr@PlcXQ/ȠlYXG% =lOKjCj?;rr@P wl5s*"h&l"`ZjXPdrr@P@Rl I@BdRi=ɪ5l1+l'rr@Pk!l*lX "HlH*3rr@PhAl~uhr ohmdhklrr@Pb Wj PjHGjA;jrr@Pl'?h *"hh~hrr@Phq hT hWZWLONrr@PB "AD՚A"698-0/$'Ƞhrr@PmdhH@>T&' 5 prr@PhhH Th} xvp jDhidrr@Pdh_`Trr@P @ @& "h( h&#HhH@ TNrr@Pu "h hHhH@TV H"rr@PD hKhdhHl" \THh rr@Po hT]h ?X l "}h rr@Ph$HhLhehxHqo_p2Hlgkhlrr@PHi`eY^\LEj4DKih>:3j"rr@P- "h/ h-*Hh&H#@ TX/ l:Tgxhrr@PhhT#h  L l Hrr@PFh׈hӐ+homT*Ohh 'TVWhrr@PqPdhKhh*"h{hwX lrr@Pih!|hTcsh |0hx 3q" Frr@Plelc luXc(Tlj{ H/rr@Ph ?@#T6I("!B 1BHTl;y@Z{[lP}M]\Nk`rr@PKaz^L~no|J_'Om-/@@@@@@@@@,%;>?@@@@@@@@@@: ="X)rr@PH"H @T XTHd(P)X NLXO  (rr@Ps@PTXH x@ T hT 7BHhpXrr@PT  h|hhXh2h^ h[rhrr@PlhhgXv X)C h@WhQMX[rr@P X(hXI Xh(Xd5 Xrr@PnhXU!bhX h X X hrr@PJm"?Xΐ6hjhfl~A hR h @rr@PuTw--hF7h?X8  =h @TwE *hyX rr@P9A hrR hlB hfB*h]hX rX rr@P @TL 0h< @sT' 7hX  Tw Xn**rr@P**** SEGMENT ***Xp @ 5T ..X/+l:X*%l5s! dX rr@P !j T X7 "_ hYZ********ERROR O   rr@P Lhh25h/TL iB h B @ rr@P wT0 @ T  ,@xT  :@ T tX# _X B @rr@P T xXb *h^1 RPG II COMPILERPAGEThv) phn 8rr@P 0hki!fhd 9a2\ hYWT & ɀ@rr@P d h2T  hXYrr@P #"hhh " XDhhlrr@P N X  bbbH h !h TL lD BnH rr@P y/H=h7:o B0%H4"3h h33 h* C. h&#l#$%h" L !1h rr@P lX hADlh /h;  bhQh P  rr@P DECK ID *** RPGII OBJECT SUMMARY-117PR9RPGX@Pr`P )r@P #PABCDEFr`P N r@P XPABCDEFr`P r@P  X #dhhh`"e"aaa h X hh`rr@P hHXẌ`"e"aaȿaȿ h XȹX1` h  rr@P h h h T X_/l XMH 5 S0h Xrn@P  X(RPGOS0 j q `XX*ThX YA `n*POVLYPT 7TRACE 4RPGROT}PSRLVL DCKIDN *BPR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY R9MVW OVLAY BPRPGROTJ PRPGDMY DECK-ID T11 RPGII 2.0 SUMMARY-126J @P PRPGROT P J P$RPG DECK-ID R01 RPGII 2.0 SUMMARY-126Jb@Ph Dh h h TZRPGSM0    Xݐ$bPRPG "R9BASE$OVLAY PRPG J P$RPGII DECK-ID R02 RPGII 2.0 SUMMARY-126Jb@Ph Dh h h TZRPGSM0    Xݐ$b"PRPGII RPGXX RPGYY RPGZZ !"PRPGII J PR9ADSB DECK-ID R03 RPGII 2.0 SUMMARY-126Jr@Ph]['hY hXhVTRhTSNMIHJhJHGhHhGhFDBT&rr@P+ d(5 h321h2h1h1.,T%'% Th<7@Trr@PV,)-T$!&T&  b2dRh*@dRar"@P"PR9BDPRB9BDPRN9BDPRrPR9SBY 6R9BASE7POSSKAPOSSPAPOSSKBPOSSPBR9FMALKY9FSTL@R9PUTSUR9CLRE&R9OTMV>R9SPACcR9SKIP\R9OVSWr*PR9OCODeR9PLUSR9ZEROR9BLNKR9WOTVS*P J PR9BEG1 DECK-ID R08 RPGII 2.0 SUMMARY-126J@P PR9BEGN PR9MUX1R9ENDLP J PR9BEG2 DECK-ID R09 RPGII 2.0 SUMMARY-126J@P PR9BEGN PR9MUX2R9ENDLP J PR9BEG3 DECK-ID R10 RPGII 2.0 SUMMARY-126J@P PR9BEGN PR9MUX3R9ENDLP J PR9BEG4 DECK-ID R11 RPGII 2.0 SUMMARY-126J@P PR9BEGN PR9MUX4R9ENDLP J PR9BEG5 DECK-ID R12 RPGII 2.0 SUMMARY-126J@P PR9BEGN PR9ENDLR9MUX5P J PR9BEG6 DECK-ID R13 RPGII 2.0 SUMMARY-126J@P PR9BEGN PR9MUX6R9ENDLP J PR9BGCL DECK-ID R14 RPGII 2.0 SUMMARY-126J PR9CLBG P J PR9BGOT DECK-ID R15 RPGII 2.0 SUMMARY-126J PR9OTBG P J PR9BINP DECK-ID R16 RPGII 2.0 SUMMARY-126Jr@PHqhohnHl ljihgfah` h_ YHY!  hWHSShSLTlJrr@P+GHJTK* d2h9H32 l0/29XO=(h* h'!rr@PVHX, %*HX"lh rr@PhhlhhXhhH hؠ l nrr@PhB@'d rr@P giy`r&@Pސ& PR9BINP "PR9LBY (R9BASE)R9CLRC4R9ACC1M"P J PR9BINT DECK-ID R17 RPGII 2.0 SUMMARY-126Jr@PHNKhLhKHI lGFE@h@=h>Kh9h95 Fl323*.h(XK+*rr@P++1Khh lX1 h  1 hrr@PVKhHhThKhhH h br @PԂb H PR9BINT PR9SBY gR9BASEhR9ACC1/P J P)R9BITF DECK-ID R18 RPGII 2.0 SUMMARY-126Jn@PT'h!H hh hhThTh h Tn PR9BITF 2PR9SBY R9LBY R9BASE R9FLOWR9NXTX"R9AC1S2PEND J P*R9BITN DECK-ID R19 RPGII 2.0 SUMMARY-126Jp@PT&h"H  hh hhThThdRh Tp PR9BITN :PR9SBY R9LBY R9BASE!R9FLOWR9NXTX#R9AC2SR9AC1S:PEND J PR9CALC DECK-ID R20 RPGII 2.0 SUMMARY-126JN@P TT T dN PR9CALC :PR9NXTXY9LSTRY9TOTLY9DETLR9PRCLR9FLOWYERRSW:P J PuR9CHAN DECK-ID R21 RPGII 2.0 SUMMARY-126Jr@PT,HhhgcT_" H\ ! hT RTN-BG'rr@P+hDhH&hB= 9h><:@:T):#0%*,T (h)F&h% h" rT@PVT;E@ TTT PR9CHAN jPR9SBY WR9MVB 9R9BASEXR9FLOWR9CVEAfR9XLAT`R9UNPK R9PACKER9BINTR9CNTRhR9NXTX$R9ZEROTR9ACC1KjP J PR9CHAR DECK-ID R22 RPGII 2.0 SUMMARY-126Jr@PkK[\`@Nal@@r`P+rPR9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS R9MZERR9MONER9MNINrJPR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9XLATR9BASEJ PR9RPRT P J P9R9CHIN DECK-ID R23 RPGII 2.0 SUMMARY-126Jr@P WdT`l%T"(TThT r*@P+ T T)T* PR9CHIN bPY9FPTL7R9INMV-R9SETN2R9STH0!R9ASQRR9CRIN R9GETSR9CNTR4R9FRMKR9FCTR R9INRP0R9INTVbP J PR9CLBG DECK-ID R25 RPGII 2.0 SUMMARY-126J PR9CLBG P J PCR9CLOS DECK-ID R26 RPGII 2.0 SUMMARY-126Jr@Pl>= "-L855""+L/L(&@%T"l T"rD@P+@T+b @TTD PR9CLOS jPR9SBY )Y9RPTRBY9FLPTAY9DTPT@R9FILR=R9IOCL:R9PUTS0R9CLRER9TOTV.R9CLSV8R9BASE*Y9FDTBR9ONES&jP J P R9CLRC DECK-ID R27 RPGII 2.0 SUMMARY-126J @P H @ T PR9CLRC PR9MIW  P J PR9CLRE DECK-ID R28 RPGII 2.0 SUMMARY-126JF@PH AhdhH lF PR9CLRE PR9BLBL P J PR9CLSV DECK-ID R29 RPGII 2.0 SUMMARY-126J0@P0PR9CLSVR9TOTVrPWRIT24 WRIT23 WRIT22 WRIT21 WRIT20WRIT19WRIT18 WRIT17CLOS42CLOS41CLOS40CLOS39CLOS38CLOS37rPCLOS36CLOS35P J PR9CMBD DECK-ID R30 RPGII 2.0 SUMMARY-126J<@PhH! < PR9CMBD PR9MONE R9MZERR9ZEROP J PR9CMOV DECK-ID R31 RPGII 2.0 SUMMARY-126Jr@PHjHiRebTH`h]hX HThThSHQOMlJILKhHHrr@P+A <h?9Dh<5H 2/h7+0h1"1=(&&T rr@PVTRhXh@hh h Tbrr@PhBhT|hThܘ ېh1$TT{ːh1rr@P qhȻTȸh 1  dȵjبe7r`P PR9CMOV bPR9LBY R9SBY R9BASER9FLOW R9SETNR9LOADWR9UNPKQR9BYPSR9AC1NR9ACC1\Y9CMSTFY9CARAbP J PR9CNTR DECK-ID R32 RPGII 2.0 SUMMARY-126Jr@Ph#h"H  TXwhTR XW h `h0H.h.rr@P+H'h&.h-h-h-X.!hTR KhHX/E jXM  "h `rr@PV  X!X"h X " rN@PXX A"T$HTNJPRPGFILR9CNTR%R9JUMPQR9SGTB^R9SGIXSR9CKSGlR9MUNORATTCHKoR9BRAKJrPEXPIRER9MUX6]R9MUX5\R9MUX4[R9MUX3ZR9MUX2YR9MUX1XTSAREA=R9PORT R9MODER9UNIT R9USER SYSMSGPGMIN r"PSLICUPATTACH9R9RPRTR9SEGFe"P J PR9COMP DECK-ID R33 RPGII 2.0 SUMMARY-126Jr@PThNHLKUGFhGhFChD AhB>?T9Th956T(0Th0rr@P+ *)h''.h$"h!!h hvh@h T THcrr@PVT TabhhC h! hTlhؘ!+rr@PT| hT{jh˘!T'h'hh̺hصصشr"@P1 hȥT" PR9COMP rPR9LEL MR9LBY %R9BASE&R9GTL !R9FLOWR9NRMXYSIGNIR9UNPKgR9RSTSR9SHFTR9NXTXR9AC2SR9AC1SY9ALSQ2r PR9BLNKC P J P R9CRIN DECK-ID R34 RPGII 2.0 SUMMARY-126J"@PTfH" PR9CRIN PR9IDMXR9INTBP J PR9DEBG DECK-ID R35 RPGII 2.0 SUMMARY-126Jr@Pd DEBUG-INDICATORS ON- NONE FIELD ARRAY TABLE VALUE T/H2 dh-Xrr@P+XX& "!@ T H*hT 1Srr@PV hO h " hhX=ȠhP%hhrr@PhH lԜh!Ɍh l hXrr@P @h T= h hHT  hT @hrr@PT}X1to@ TXcFXF]hiK X@rr@P haTHR@ THKGhKhT hFhCL  TA0HA42h2..rh@P--TOwXmX8&/Xh&hhhh  @hThr@PUhhX#1@TB}rr@Phh҈h@T|~ƈhhTX'Xȸ hXȴh1h̳rX@PTجإȪ̥1Tؖ@TXBPR9DEBGR9DBG1=R9DBG2lR9DBG3R9DBG4R9DBG5B9DEBGTN9DEBGBrPR9SBY R9LEL R9MVB R9BASER9FLOW R9PUTSR9CLRERR9MTRN R9UNPK0R9LOCL!R9INDMR9TSTNR9RYST&R9NXTXfs w |rr@P! h !8TX!h hufǐhrr@P TWHȸhTȯ hȰTTHh HT @TȗTr @P "PR9DIVDR9MVRMB9DIVDgN9DIVD"rPR9MVW R9MIW "R9FLOWR9NRMXR9STH0R9RSLTR9SHFTR9UNPKR9NXTXR9AC1NR9AC1SR9AC2NR9AC2SR9AC3Nr PR9AC3S PEND J P;R9DMND DECK-ID R38 RPGII 2.0 SUMMARY-126Jr@PTl21TT%T  dThTr0@P+ TTT0 PR9DMND ZPR9INMV/R9ASQRR9STH06R9SETN+R9NXRC R9CRINR9BLTR#R9CNTR1R9INRZR9FCTRY9FPTR9ZP J P1R9DSPY DECK-ID R39 RPGII 2.0 SUMMARY-126Jr@PT.H d"h H"h@hT `, T rr@P+b@)ThXh HX~@~Ty@(Tshrrr@PVltrk1nhgfi@eTf^cW^Yh_\TgQT hRKhKJTrr@PthL!E! AAdR7h;x8H61 l.%%1h(%rr@Ph#hThl Trr@P@TK hh* bThhhTsrr@P1!T hȵhȸ1ȴhȺ bȶ@Te #@)T1DSr@P-PLY "PR9DSPYB9DSPYN9DSPYR9DSY1"rPR9LBY R9SBY  R9MVB "R9BASE$R9FLOWR9UNPKR9PACKR9CLRCzWRIT170READ09/R9GETSQR9PUTS*R9MTRN(R9CLREr:PR9RYSTR9NXTXR9MINSR9NINER9ZEROR9BLNKpR9ACC1:P J PR9DUM0 DECK-ID R40 RPGII 2.0 SUMMARY-126J @P P J PR9DUM1 DECK-ID R41 RPGII 2.0 SUMMARY-126J PR9NXTX P J P$R9ECOD DECK-ID R42 RPGII 2.0 SUMMARY-126Jr@PXHH h'H1hh&  1hrr@P+#1hyhuqhoqmTihgjeT;4h21,T./X3-!rr@PVO+!!'TS$NTQR+hcqmwrh@Ph!hTjhhTiDh h h[hPR9EDCNR9EDNErPR9LBY R9GTL _R9SBY R9BASER9CMBDR9OTM1R9ACC1'R9DOLRyR9STARxR9BLNKzR9ZEROvR9MINSuR9CHARtR9EDT2 r PR9EDT1 P J PR9EDIT DECK-ID R44 RPGII 2.0 SUMMARY-126J,@PT TTTT,"PY9ECDEY9EDNEY9YCDEY9ZCDE "*PR9CNTR R9ZCDE R9YCDER9EDNER9ECDE*P J PR9ELOC DECK-ID R45 RPGII 2.0 SUMMARY-126J PR9ELOC P J PR9ENDL DECK-ID R46 RPGII 2.0 SUMMARY-126J @P PR9ENDL PR9BEGN P J PR9ENTS DECK-ID R47 RPGII 2.0 SUMMARY-126JrPR9TRCER9FSTLR9FTNXR9PFCBR9FDC1R9CMSTR9MMSTR9INMKR9MHLDR9DETLR9TOTLR9LSTRR9DOTTR9TOTTrrPR9EOTTR9ALSQR9CARAR9MARAR9UDATR9UDAYR9UYERR9UMTHR9FDTBR9TBIOR9DSEQR9FBSER9LABLR9INVPrP J P R9EXCP DECK-ID R48 RPGII 2.0 SUMMARY-126J"@P dTT" PR9EXCP "PR9CNTRR9TP40R9OCODY9EOTT"P J P%R9EXIT DECK-ID R49 RPGII 2.0 SUMMARY-126Jd@P T) T)" ""h H " \d PR9EXIT *PR9NXTX Y9LABL#R9PONT!R9FLOW Y9FTNX*P J PjR9FILR DECK-ID R50 RPGII 2.0 SUMMARY-126Jr@Phfhdd^^H[XY1OU0FQ/<M.3I-*E,!A+rr@P+=*9)T%0T4$+T9#&T>&  TC' TI" TNr:@PVTS  TXT^: PR9FILR PR9STH0cR9FRMK P J PR9FINS DECK-ID R51 RPGII 2.0 SUMMARY-126J2@P  d 2 PR9FINS "PY9TBOT R9TBOTR9CLOSYERRSW "P J P3R9FLDL DECK-ID R52 RPGII 2.0 SUMMARY-126Jr@P"h+* h%h%$h!-Hhh1h   h @r@P+ PR9FLDL PR9BASEY9FBSEY9FDTB P J PR9FLOW DECK-ID R53 RPGII 2.0 SUMMARY-126JJ@PhHhh T \ T JPR9FLOWB9FLOWN9FLOW"PY9TRCER9RESTR9SAVTR9SAVE "P J PR9FNBG DECK-ID R54 RPGII 2.0 SUMMARY-126J PR9FNBG P J PR9FORC DECK-ID R55 RPGII 2.0 SUMMARY-126J4@PT-H "0HD4 PR9FORC PR9FLOWR9FFCB R9NXTXP J PtR9FSTL DECK-ID R56 RPGII 2.0 SUMMARY-126Jr@PFTXYpqrsNHdR RPG FORMS ALIGN: ENTER 1-RETRY, 0-CONTINUE .r@Pq PR9FSTL PWTREADHR9UNITIY9IBUFVP J PR9FTNX DECK-ID R57 RPGII 2.0 SUMMARY-126Jr@P hON" "h_  j[ Ah1 H:;" MTH11j2.j7j<-'2Tl rr@P+h% `Dl%+ T8 A dhTP j  h r`PV`PY`P`r@PgT Hh"  " A hTCP`ݘ  T7rr@P9 r`P  @P PR9FTNX 2PR9999B(R9LABLCVASEBR9BASER9FLDLR9MVB 2P J P>R9FTOV DECK-ID R58 RPGII 2.0 SUMMARY-126Jr@Ph9 h8H5b2/T d dXX d!hCr6@P+TH h6PR9FTOVB9FTOV9N9FTOV:PY9DOTTY9TOTTR9TSTNR9POSO0R9OCODR9OVSWR9FTSW#:P J PbR9GETS DECK-ID R59 RPGII 2.0 SUMMARY-126Jr@PHY!HU R@OTMTJ1 0E@dRa<=h9h8 D(rr@P+ .0@(&X # ` XHhHT! hTI h r&@PV&PR9GETSB9GETSZN9GETS:PR9SBY PR9LBY HR9BASEQR9FILRR9IOCL R9XLAT3R9TFLG*:P J PGR9GOTO DECK-ID R60 RPGII 2.0 SUMMARY-126Jr@PT+f"b d T T( h%$dT*rN@P+$d+.2T09"d$NPR9GOTOR9EXSRR9NDSR'RPR9FLOW(R9STH05R9NXTXER9STRT&R9UPOPR9PPUP@Y9LABL R9INRZR9SWCH4Y9INVPY9UDATY9UYER/Y9UMTH&Y9UDAY!R9OPNF@BP J PR9INTV DECK-ID R69 RPGII 2.0 SUMMARY-126J@P PR9INTV BPREAD16READ15READ14READ13READ12READ11READ10READ09BP J PR9IOCL DECK-ID R70 RPGII 2.0 SUMMARY-126J@@PH hDa hT\ T @PR9IOCLR9DRTNPR9SAVPR9RESTR9SAVE P J PR9IPBG DECK-ID R71 RPGII 2.0 SUMMARY-126J PR9IPBG P J PR9IPUT DECK-ID R72 RPGII 2.0 SUMMARY-126J@P PR9IPUT *PR9CHINR9DMNDR9MTWKR9ICTLR9INIT*P J PBR9ITLP DECK-ID R73 RPGII 2.0 SUMMARY-126Jr@Ph87 "dH1+1Ah'TH%"H#TH!h!H1Ah r@@P+nh@T3T@ PR9ITLP 2PR9MVB 2R9BASE4R9FLDLR9LOCLR9CNTR7Y9FDTB2P J P$R9LAHD DECK-ID R74 RPGII 2.0 SUMMARY-126Jb@PL "l(T@ T , @dRab PR9LAHD *PY9KALA#Y9KAPF"R9PACKR9INMVR9NXRC*P J P R9LBY DECK-ID R75 RPGII 2.0 SUMMARY-126J(@Pt"H" ( PR9LBY P J PjR9LCAE DECK-ID R76 RPGII 2.0 SUMMARY-126Jr@PH]h]H[THZhZHX1TAhTOhQPMNhNFFTCTHFhDhBH??rr@P+h=<5,84h34h21h-0#! %%TJTYT h=T dr:@PVdQ @: PR9LCAE RPR9LEL HR9GTL CR9CLRCSR9UNPKR9STH0KR9LOCLR9FLDLYACAXNR9ACX1VR9ACAXXRP J P3R9LEL DECK-ID R77 RPGII 2.0 SUMMARY-126Jr@Ph,H, h&H% H$h$!H"h"H* h!d #hr@P+PR9LEL R9GTL P J PR9LKUP DECK-ID R78 RPGII 2.0 SUMMARY-126Jr@PT# Hdh"Th H"h hh hDhhrr@P+hhT hT4 hT= h hhڠ.rr@PV h h09D`db1V Dbbb bhTrr@P H"`T H+ hhhT Hv"`rr@P~xTthknrrhpgghe^ hh "TTh]OhZhYrr@PhThPTdJhI @<!8"0S 4f 1drr@PR BT hWTT @,rr@P- d14  d6hhT hTrr@PXO h T d>d1 ! T]TrȬȮf""̝r<@P`ȪTȜf""̛`ȕT< PR9LKUP rPR9CLRC_R9NXTXzR9MVB R9LOCLR9PACKwR9NRMXqR9LEL R9GTL R9SETNXR9INRZR9INRMMR9CRINFR9INRPVR9ACAXxr2PR9ACX1bYACAXNdR9BASER9LBY R9RYSTR9FLOW2P J P>R9LOAD DECK-ID R79 RPGII 2.0 SUMMARY-126Jr@PTh44H1h0  @ T(TTH$H$l# h hlh hr6@P+h Th   l6 PR9LOAD *PR9LBY .R9BASE/R9MIW R9ARG R9XRSD*P J PR9LOCL DECK-ID R80 RPGII 2.0 SUMMARY-126JT@P"hAh H@hT PR9LOCL PR9BASEY9FDTBY9FBSEP J P6R9LRCK DECK-ID R81 RPGII 2.0 SUMMARY-126Jr@P h. h,H,+"'H'Q h$h hdRh0$ $r"@P+" PR9LRCK PR9LRSW.Y9PFCB P J PR9MIB DECK-ID R82 RPGII 2.0 SUMMARY-126J:@PhHh T h: PR9MIB PR9SBY P J PR9MIW DECK-ID R83 RPGII 2.0 SUMMARY-126J@PD  PR9MIW P J PFR9MMOV DECK-ID R84 RPGII 2.0 SUMMARY-126Jr@PhhH"hH h rr@P+hhR!,T(";"TBxhv1yrr@PVTAKtTJXqohhf1b h_b![aT \hZRXTp dyJOTrr@P|EAhCH hFh@dh=9h76TW\ 1T[/Z h* _rr@PXc$V1TThH !Th h Hrr@P hhX/ThHX'! h hd!ddRhrr@P dd"Th hhT hTrF@P-()ااhȦhȞhȘ@T.CF PR9MMOV rPR9MVB BR9ARG R9SBY R9LBY -R9BASEDR9NXFLR9STH0R9PACKR9LOADoR9UNPKxY9MHLDY9MARAR9MRSW R9MRPRr*PR9CFIL Y9DSEQR9ACC1Y9ALSQEY9MMST*P J PHR9MOVA DECK-ID R85 RPGII 2.0 SUMMARY-126Jr@PTh>H< d8 h654h5h4-,b*+h+(  H#h'! h%h brP@P+h h!h@ T<P PR9MOVA JPR9MVB ;R9BASE=R9FLOWR9NTOAR9UNPKR9ATONR9NXTX?R9RYSTR9AC1SJPEND J P!R9MOVE DECK-ID R86 RPGII 2.0 SUMMARY-126Jr@PThH hhh Hhhhh %rr@P+h h"gHz!Ettw "rr@PVs TghTTd[\\1YWYhXThTRRhPQhPNMN@KT`}TCrr@PC1?h?B=Td85;112TZ, h00' *''%Ah"!rr@P"h1  h h $ 1Trr@Ph#hT l!( ޘ! ۘTTThrT@Ph@TȿTȹThخhȬ@T PR9MOVE rPR9MVW  R9MVB |R9BASE~R9XRSDbR9LBY _R9SHFTR9FLOWR9NTOAR9ATONR9UNPKR9PACK R9NXTXR9AC1SR9AC2SrP J PuR9MOVZ DECK-ID R87 RPGII 2.0 SUMMARY-126Jr@PT Hkhkihjhhffchda_TXh[WDhTPTDhLG hErr@P+DChDhC@$)>T#$7h;7h532dRh-+T7'#h#dRhrT@PVTIJLT6YhdRh TX_[T PR9MOVZ 2PR9SBY kR9LBY ^R9BASElR9FLOWR9NXTXnR9AC1S2PEND J P+R9MTRN DECK-ID R88 RPGII 2.0 SUMMARY-126Jr@PH%h"hHThh T r PR9MTRN "PR9SBY R9LBY R9BASER9XLAT"P J PR9MTWK DECK-ID R89 RPGII 2.0 SUMMARY-126JJ@PTd d T TTJ PR9MTWK BPR9FLOWR9CNTRR9LAHDR9INMVR9NFCBR9MRSW R9MRINY9LAHDBP J PuR9MULT DECK-ID R90 RPGII 2.0 SUMMARY-126Jr@PTHhhh !@ T_^h_h^h][YTS hQPOhPhOhOLJT hIHrr@P+hF !BAhA& h<;6&34h5fA .h, H)1TC dO:rT@PV= dR h h d TT PR9MULT rPR9MIW R9FLOWR9SETNR9RSLThR9NRMXNR9SHFTR9UNPK%R9NXTXjR9HLFJR9AC3SVYLSPARdR9AC2STR9AC1NR9AC1S[r PYACC1O PEND J PR9MVB DECK-ID R91 RPGII 2.0 SUMMARY-126JJ@PhHh hTT hJ PR9MVB PR9SBY R9LBY P J P2R9MVBX DECK-ID R92 RPGII 2.0 SUMMARY-126Jr@PXXXX !  !r@P+BPR9SBYXR9LBYXR9MVBXR9MIBX&R9MVB R9LBY R9SBY R9MIB B PR9BASE1 P J PR9MVTA DECK-ID R93 RPGII 2.0 SUMMARY-126Jr@PTT hchbhah`h_h^]"#7COWkPQ@Trr@P+*'Ed-C;0T93d>W/AT<E(dJK#M TdQrr@PVCUT+Xh]T;Ha df iTcd mdrr@P~TZ[hp d dTIAhTrr@P ƀ/h!d1Ⱥ/-&hThThإإاȝrN@Pנ/Ƞ! Ȝ!T bȅb  N PR9MVTA rPR9LBY R9MVB )R9BASER9LEL R9ARG R9STH0R9BINPSR9UNPKGR9PACKR9LOADoR9MINSR9ACC1R9TANFR9RECPrP J P R9MVW DECK-ID R94 RPGII 2.0 SUMMARY-126J(@PHH" fA( PR9MVW P J PR9NOMT DECK-ID R95 RPGII 2.0 SUMMARY-126J"POPEN03READ11WRIT19CLOS37"P J PiR9NRMX DECK-ID R96 RPGII 2.0 SUMMARY-126Jr@PT'h^ h]h[ hZX1VhTR lPN !KIFlGF !C hA? l=rr@P+<!8 dh64l1/++h)&!%%l# h" ! l l lr6@PVȭh l h 1 ޠ6 PR9NRMX PR9ARG  PEND J PGR9NSQR DECK-ID R97 RPGII 2.0 SUMMARY-126Jr@PhCHA" h>=@:Th9 41 0)T9&b$h#   rN@P+ @@dRa h 9 bb N PR9NSQR PR9RDEN R9STH0P J P.R9NTOA DECK-ID R98 RPGII 2.0 SUMMARY-126Jr@PTh%H" ThhhThh  T h  Tr@P+ PR9NTOA *PR9LEL &R9SBY R9BASER9ARG R9CMBD!*PEND J P"R9NXFL DECK-ID R99 RPGII 2.0 SUMMARY-126J\@P h"HA dh0 h\ PR9NXFL PY9PFCB R9CFILP J P.R9NXRC DECK-ID S01 RPGII 2.0 SUMMARY-126Jr@P l+0L'! @ T l T@T 0 lr@P+ PR9NXRC 2PY9XRTE-Y9XRPF,R9GETS"R9RCADR9TRALR9INTV 2P J P8R9OPCD DECK-ID S02 RPGII 2.0 SUMMARY-126Jr@P4   %r(@P+ ,(PR9DBGVR9OPCDrPR9TIME6R9STLL5R9READ4R9DEBG3R9DSPY2R9XCPT1R9FORC0R9CHAN/R9EXSR.R9NDSR-R9EXIT7R9GOTO+R9BITF*R9BITN)rrPR9SETF(R9STON'R9LKUP&R9TSTB$R9TSTZ"R9COMP!R9MOVZ R9MOVAR9MOVER9MVRMR9SQRTR9XFOTR9DIVDR9MULTrRPR9ZADSR9ADSBWRIT24WRIT23WRIT22WRIT21WRIT20WRIT19WRIT18WRIT17RP J PUR9OPNF DECK-ID S03 RPGII 2.0 SUMMARY-126Jr@PlO lNL "-LG0D"" L@ T +7@dRa/#  <rp@P+b ',!!@TTTT p PR9OPNF rPY9FIPTSY9PSFGRY9FDPRQY9ITLPEY9INTA@R9CNTRJR9ITLPHR9STH0NR9FILR:R9TSTNR9IOCL7R9INTACR9OPNV5R9BASEr PY9FDTB P J PR9OPNV DECK-ID S04 RPGII 2.0 SUMMARY-126J0@P0PR9OPNVR9TINVrPREAD16 READ15 READ14 READ13 READ12READ11READ10 READ09OPEN08OPEN07OPEN06OPEN05OPEN04OPEN03rPOPEN02OPEN01P J PR9OTBG DECK-ID S05 RPGII 2.0 SUMMARY-126J PR9OTBG P J PR9OTMV DECK-ID S07 RPGII 2.0 SUMMARY-126Jr@PHhH hs hKh 2c" 2 h rr@P+b  hB h+hThrr@PVH h  h b drr@Pd{Ah~yzhu{qTHrjhnHdlb hdB[hrr@P\WhPO LhMJFhGDC@=T6 h39/rr@P5+h/d+h(h'-h% h# h  hrr@P hA h/THh0H `THhrr@P-T hHdߠḧh 1#Trr@PXT ! @hhhh"HXrr@PA h QTyTtwhpqdse$hcfbTrr@PFVaZ_hXXd\U@ZTThHOPhPKhMITEDh?rr@PX3אh(6&Th$'h%hX.T!h hA h $rr@PT%ThX@Trr@P/.Lh1hhT/ hX4 hX4h71;hȴrr@PZhȭTCD hoȱTȫ hȥ hȟ=ur"@Pg3Kmcqw"PR9OTMVR9OTM1R9PGSW}rPR9SBY ^R9LEL R9MVB -R9BASE_R9ZCOD|R9YCODvR9EDCNpR9BINTjR9STH0"R9TSTNJR9CMBDR9PACKR9CLRCR9ECODlrrPR9PAGE[R9UNPKPR9LOCL1R9LCAE%R9FLDLR9BLNKR9ZEROR9PLUSOR9ACC1RR9MINSVY9PAGESR9EDT4:R9EDT3 8D h7Th4 .rr@PV!*1'&#Ch!THhH#L 1T @ T}rr@Pfhhhhhhh hThrr@Phhllll hHH1Tw H#.H@dRarr@P,T H T @Tؘȡ@hT@Tȕr"PR9POSSR9POSOB9POSSN9POSS"rPR9BASEPOSSKAPOSSPAPOSSKBPOSSPBR9FLOWR9PUTSR9FLDLfR9OTMVR9CLRER9BDPR}R9TSTNPR9FTOVR9UOTVrPR9WOTVR9AOTVR9OCODP J P)R9PRCL DECK-ID S14 RPGII 2.0 SUMMARY-126Jr@Pd @ T @ T "dT"d"! rr@P+%TE-TA2d4(TTB h\;"1kM"hPrr@PV hPKIhK 3/@HhA=Th69h74 ! .!"(rr@P+'"R"1"Ih 3y  nrr@P"x"""h1h &h hhAh rr@Ph˨h -hW1h8 l,h rr@PbA hubhDbAbB h\ rr@P-bvb!@dRalB hiD ehnTHlhl^1Hh1c_bc@h[dRarr@PXYlSX` PTHQOGbK1 E@bBAb@Db 83b5/b1brr@P*H(d"2)"h d 1+ d'rr@P"H d "d dHhd׀h hrr@Phh0 d ̢@hTLhHȾ hظȩrd@Phh0 ̠蟂lܜ"ȕ hؒdPR9PRCLR9STRTR9NXTXrPR9BASE+R9LEL 6R9GTL /R9BRAKR9MIW R9LCAER9LOCLaR9FLDLCR9TSTNmR9CNTRFR9PONTR9RYSTR9CLIN=R9STTSrJPR9INRMR9INRPR9INRZR9HLFJR9FCTR R9AC1NR9OPCDY9LSTR9Y9TOTL+JPEND J P+R9PRFN DECK-ID S15 RPGII 2.0 SUMMARY-126Jr@P l'L%% ! @lTlT@T $lb r PR9PRFN JPR9SBY R9BASEY9RECP*Y9COUN)Y9FIPR(R9CLRER9PUTSR9WOTVR9ZEROJP J PZR9PUTS DECK-ID S16 RPGII 2.0 SUMMARY-126Jr@PHQ+HN0hK.>b#hBAR9ERTN?Y9LABL rRPY9FTNXJY9FSTLKR9USERLR9UNITPR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 RrPR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARArrPR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR R9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCBrP J PSR9ROOT DECK-ID S21 RPGII 2.0 SUMMARY-126Jr@Pr@P+T@P4  TrPR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMK Y9MHLDY9DETLY9TOTLY9LSTR Y9DOTTY9TOTTY9EOTTY9ALSQrrPY9CARAY9MARAY9UDATY9UDAYY9UYERY9UMTHY9FDTB Y9TBIOY9CMOVAY9INTABY9ITLPCY9LAHDDY9MMOVEY9NSQRFrrPY9PAGEGY9TBOTHY9INVP Y9DSEQY9FBSEPOSSPBPOSSKBPOSSPAPOSSKAR9OCOD!R9RECP"R9TANF#R9TFLG$Y9APFX%rrPY9ASPC&Y9COUN'Y9DTPT*Y9FDPR)Y9FIPR+Y9FIPT,Y9FLPT-Y9FPTL(Y9FPTR.Y9FSSA/Y9HIND0Y9HNUM1Y9IBUF2Y9KALA4rrPY9KAPF5Y9PSFG6Y9RECP7Y9RPTR8Y9TOP19Y9VFT1:Y9XRPF;Y9XRTER9ERTN?Y9LABL rRPY9FTNXJY9FSTLKR9USERLR9UNITPR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 RrPR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBOTHR9PAGEGR9NSQRFR9MMOVER9LAHDDR9ITLPCR9INTABrrPR9CMOVAR9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARAR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR rBPR9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCBBP J PR9RPRT DECK-ID S22 RPGII 2.0 SUMMARY-126Jr@PTT......r2@P+2@P=@P BE^@P^rPR9RPRTR9INTBR9CLIN R9HTINR9VINDR9USNDR9MRINR9FCTR$R9STTSR9INRM?R9PONTCR9CNCLrrPYERRSWR9FTSWR9VSWTR9OVSWR9FTIMR9FFCBR9CFILR9NFCB R9PRGD!R9MRSWR9MRPRR9LRSWR9BYPSR9BLTRr"PR9FRMKR9ACAXR9ACX1YACAXN"PR9CKSGR9CNTRR9PFCBPR9RPRTJ PER9RSLT DECK-ID S23 RPGII 2.0 SUMMARY-126Jr@PH=h=;:h;h:7#63!2/h1T &#" f H T"hTrH@P+& dT%,  T28TH PR9RSLT :PYLSPAR/R9PACK7R9NRMX1R9SHFT+R9RSTS@PVLNS01V79;:@[DE>PR9SAVPR9SAVTrPYSIGNIWN9ZADS\B9ZADSTR9TP40fR9SPAC?N9SKIPGB9SKIP3R9SKIP>N9RCADB9RCADR9RCADR9PRFN@PT% hh T> PR9SETF 2PR9FLOWR9CRIN R9NXTXR9AC3SR9AC1SR9STTS2PEND J PR9SETN DECK-ID S35 RPGII 2.0 SUMMARY-126JN@PTH@hdRe  dRdN PR9SETN PR9IDMXR9VSWTR9INTB P J PCR9SHFT DECK-ID S36 RPGII 2.0 SUMMARY-126Jr@PTh:45h641h1.h0/l- l,)*1'h%""h hhrD@P+hl! l ! hDPR9SHFTYLSPAR> PR9ARG  PEND J P>R9SKIP DECK-ID S37 RPGII 2.0 SUMMARY-126Jr@Ph; H8 &  T+)1@h%$T!hT@r6@P+T b b Tb6PR9SKIPB9SKIP;N9SKIPJPR9SBY %R9BASE&R9CLRER9PUTS,R9PRFN6R9CRINR9WOTV*R9ONES"R9OCODJP J P+R9SPAC DECK-ID S38 RPGII 2.0 SUMMARY-126Jr@Pl)b&L$T! 1  T b2dRd b Tr PR9SPAC 2PY9ASPC*Y9APFX)R9SKIP'R9PRFNR9SETNR9FTSW 2P J P8R9SPTP DECK-ID S39 RPGII 2.0 SUMMARY-126Jr@PTh.+TH*(b$TH#h# l H1Ahbb0r(@P+ h bb( PR9SPTP *PR9ARG R9LOCL R9FLDLY9FBSEY9FDTB*P J PR9SQRT DECK-ID S40 RPGII 2.0 SUMMARY-126Jr@PT hkHhhieT @ T\ T TSAhPhOK "hK FHDrr@P+E hD hChA? 7 5 0h21+T h)  @ Trr@PV!hhfQ hHq  fa T h hrr@P<lf ! hߘ نfTzLfrr@PQ Hȿغ TKY خȭȭ h T|1r @PT ȕT PR9SQRT rPR9MIW UR9FLOWR9SHFTR9UNPK R9RSLTR9STH0R9NRMXR9NXTXR9AC3NR9AC2NR9AC1NR9AC3SR9AC2S{YACC1Br PR9AC1S P J PLR9STH0 DECK-ID S41 RPGII 2.0 SUMMARY-126Jr@PhBlFH? 7H55 8rG`- dhT,(%  rZ@P+T *! ddT.A"  Z PR9STH0 :PR9MODEAY9ERCDKERRO46R9CNCL;R9CLIN9R9CNTR=YERRSW3:P J PoR9STLL DECK-ID S42 RPGII 2.0 SUMMARY-126Jr@PT1H["'hV&HRRhShR*LTG%FCT%>h@=h? A15 4h2Tq93TX=9h" @$T hh $rr@P9@ D  h 9TiXrr@P nh hyӠ"=h:hTh Tؿȷ/rr@P D@ T9ȶT -@KT ON OFF]fpxrr@P  !$'*-0369<?BEHr&@P-&r@P]INPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. rr@POVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRrr@PITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTPrr@PUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.rr@P MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHr@@P4AIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.@ PR9TRCE RPR9MVW R9GTL cR9BASER9LBYXR9SBYXR9MVBXCR9USNDR9INDMvR9TROTR9INTBRP J P=R9TROT DECK-ID S50 RPGII 2.0 SUMMARY-126Jr@PH""X- T(),-.01X hhTL%$ PAUr4@P+SE TL<24 PR9TROT PR9UNITWTREAD P J P2R9TSTB DECK-ID S51 RPGII 2.0 SUMMARY-126Jr@PT" H(h(&h'&Th# hhT hhh h h  Tr@P+ PR9TSTB *PR9LBY R9BASER9FLOWR9RSTS)R9NXTX+*PEND J PR9TSTN DECK-ID S52 RPGII 2.0 SUMMARY-126J<@Ph Th h  h< PR9TSTN PR9IDMXR9INTB P J PBR9TSTZ DECK-ID S53 RPGII 2.0 SUMMARY-126Jr@PT h;H98 h65h65Th2 h1/!(1% h !1r@@P+  h T@ PR9TSTZ rPR9LBY R9BASE R9FLOWR9RSLTR9SETNR9RSTS:R9NXTXr""9Xsa"A 5""4"" Xb rX@PXa f"! 6"b!b$"A1f" XbX:@PH("Hh 5""4""H":r@P" b b  X XXXH LbrN@Pb@ H `H(NrPREAD WRITE FREAD FWRITE SCHEDLTIMER DISPATDISP LINK ICLOCK INPINS$OUTINS)RELESE.ICONCTr POCONCT P J P0ERRO46 DECK-ID S75 RPGII 2.0 SUMMARY-126Jr@Pd"h%h$h#h" cdhE"h "hdT)*h`r`P+PERRO46ERRPROPSYSMSGY9IREG&R9ERTN#P J P.Q8PRMS DECK-ID S76 RPGII 2.0 SUMMARY-126Jr@Ph Hq``Hs"`Hs"ܠ" hr@P+PQ8PREPQ8PKUPQ9PKUPP J PRBDPCH DECK-ID S78 RPGII 2.0 SUMMARY-126J2@PTZ RBDFIL2PRBDPCHRBDSEGPRBDPCHJ P"RPGFIL DECK-ID S79 RPGII 2.0 SUMMARY-126J\@PhhDh h h TZ RPGOBG0aX"\PRPGOBG R9OVERRPGFIL"PRPGOBGJ P SECGET DECK-ID S80 RPGII 2.0 SUMMARY-126JX@PH"h"hhTZ` ******X PSECGET P D P^SWITCH DECK-ID S81 RPGII 2.0 SUMMARY-126D @PC @P6E @P9 @P> @P@ .@P ENTER SWITCH VALUES <XXXXXXXX> .@P XXXXXXXX @P SWITCH = 00000000 @P INVALID SWITCH ENTRY @P2p@PChT-178hT1293 :; hߪhʬHhۨh    p@PnИ p@Pw   ȿ ȼ ȹس 1 I H lApp@P lI HlA lI pp@PHlA 묹lIw HlAj pp@Pl dLh̓Al BlC lDpp@P#lE lFlG lHlTP14@Ap.@PN ;T\15BA ;. PSWITCH "PR9SWCHPGMIN FWTREADHPGMOUTR"PSWITCHD PCATERR DECK-ID S82 RPGII 2.0 SUMMARY-126D @P (@Pr *CATLOG* **** ERROR **** ((@P *CATLOG* READY TO INSTALL ((@P MASS STORAGE I/O ERROR ((@P REQUIRED PROGRAM NOT FOUND ((@P, LIBRARY PROGRAM NOT VALID ((@P: PROGRAM ON LGO NOT VALID ((@PH TOO MANY PROGRAMS ON LGO ((@PV LAST LGO PROGRAM HAS NO XFR((@Pd INVALID CONTROL STATEMENT (@P@P2@P Tr ,h\2@PT @PHTTh PCATERR "PQ8PKUPQ8PREPFWRITEDISP "P D PCATFIL DECK-ID S83 RPGII 2.0 SUMMARY-126D@P@P @P @P  @P@P@P@P @P` l@Pol@P@P @P PPP @P*T @PRPGOBG @PRPGFIL @P,6@P @P*B*K*V*E@P,I,P8 ,0 @P0 00*L @P*Z@P*CATLOG* NAME p@Phhh T\0 h hh h d̜! hpp@P ȼ T  hȮ \Ȧfn<Ȥ \ hnؙpp@P2nؔn؏n )"\ ddddTpp@P]TT Td"\  $ pp@P2  dڔ  lel\\  lpR@P d p4d,h ȘlRp@P d  ٔ = l dq p Öo pp@P l %1 ndr dd=d lA dTpp@P)̨ L l   ܦ ]11n npp@PTn " l d n `1llddl0p*@P̺ ܡ d1T*@P@P}2@P T\# \\2@Pj@PdTTal 9dTY\T "\ `lj PCATFIL BPCATERRFWRITEDISP CATMODcCATJCRkCATOBJ(FREAD LINK BPCATFILD PYCATMSG DECK-ID S84 RPGII 2.0 SUMMARY-126D @P @P6@P5(@P *CATLOG* PROGRAM (*@P7hh hT56**@PIH TTh h h* PCATMSGK PQ8PKUPQQ8PREPNFWRITE>P D PCATOBJ DECK-ID S85 RPGII 2.0 SUMMARY-126D@Pp@P : KhhhhT #T h h  hֈ hp.@P4Ӟ  1 hh.H@PHȼ h Z1hh \ \ "\hHL@PfHTT h hh h 8h #h h\h\ hŀL PCATOBJh "PQ8PKUPnQ8PREPkCATGETCATERR "P D PzGETLPG DECK-ID S86 RPGII 2.0 SUMMARY-126D@Pp@P2 FhhhhT #T h h h  1p@P3 hh0@P> h Z1 h h  l0 @PQ\ "\h L@P]HTT h hh h 8h #h h\h\ hÀL PGETLPG_ "PQ8PKUPeQ8PREPbSECGETRBPERR"P D PORBDFIL DECK-ID S87 RPGII 2.0 SUMMARY-126D@P @P N @P@P@P@P@P@P  @P  @P @P @P@P&*T@P)*T >@P *RBDPCH* O/P UNLINKED RBD PROG AND SUBPROGS >@P@P  @P' @P @P` @P P @P3PPP @P6@P $@P DUPLICATE ENTRY POINT $@P E10  p@P dԘ hT h fĘ1hhȻ  dpp@P9hAh7& ȧ1T hȝ d l!(`h pp@Pd h \5  l gdܸ6 n d d pp@Pd dd!K d > l n dld d dTpp@P7 !d#d$d%T  lK7 ̳ ̨ pp@Pd\()TTMlT7\l 9dД5  lpp@P\(7\T "\ `l̶ ) d d d6fpp@P; 1dddT 73  d 6"pp@Pf\ L d dd!@dd d  , 1pp@P   n7̾lβd8d9d\  T̾ 6 dpp@P ̝d d ΍n 1 n l 81\74 U l pp@PN"\ ( d dd!dd d  pp@P 1 ̝ l̴l lθnܕܗܙ 16̣ l 81Md ̡5p2@P=  d8d9d:2 PRBDFIL :PMIBUF FWRITEHRBPERRGETLPGDISP FREAD LINK :PRBDFILD PRBPERR DECK-ID S88 RPGII 2.0 SUMMARY-126D@P(@Pc *RBDPCH* **** ERROR **** ((@P *T NOT FOUND IN LGO FILE ((@P BINARY OUTPUT STATUS ERROR ((@P NAM BLOCK MISSING ((@P+ DUPLICATE ENTRY POINTS ((@P9 ENT/EXT TABLE OVERFLOW ((@PG PROGRAM NOT FOUND IN LIB ((@PU *RBDPCH* OUTPUT COMPLETED (@P@P@Pd@P@ hTcqTh\cq\h , h\d*@Py\h , h\*@Py\T  @PHTTh PRBPERR "PQ8PKUPQ8PREPFWRITEDISP "P D P;SWIFIL DECK-ID S89 RPGII 2.0 SUMMARY-126D @P? @P8 00  @P*SWITCH @P SWITCH = 00000000 @P INVALID SWITCH ENTRY p@P?h h"hj 1 hʵ # 1ȰȬfȩpp@PjȦaȣʘ#Ȟ#ș#Ȕ# hȉHh pp@PlHllHllHpp@PllOdhIAl̹Bl̲C l̩pp@PDl̢E l̙Fl̒G l̉HlT;pb@P<&\=<.T/d7\;>7&\:l\=>7.\b PSWIFIL "PMIBUF @R9SWCHFWRITEDISP ""PSWIFILJ PVTRACER DECK-ID S90 RPGII 2.0 SUMMARY-126Jr@PT%&'NOPSTFH G22lD=H "< *S:74l2 OPTIOrr@P+N 0,1,2,3 TRACE-RPG RUNTIME OPTION E ERROR STOP ONLY Nr PTRACER PWTREADR9SWCHUP J P+CVASEB DECK-ID S91 RPGII 2.0 SUMMARY-126Jr@PH%H"""bRh {HHX hXn  " H r PCVASEB PR9XLAT P J P+SUBRFL DECK-ID S92 RPGII 2.0 SUMMARY-126Jr@Ph'"" T!H T!  T%"r PSUBRFL PR9FLDLR9BASE'SYSMSG!P J P^SUBRMV DECK-ID S93 RPGII 2.0 SUMMARY-126Jr@P BHLhHXM!=AHCXG\D !5:˜8:h9X=4H6X9\6 !'-Ø+-+2)h(X,\)!rr@P+%V!3d ! "TK"r@PV" TPSUBRMVSUBRLMSUBRML"PR9999BRR9BASESR9FLDLZSYSMSGG"P J PSUBRAJ DECK-ID S94 RPGII 2.0 SUMMARY-126Jr@Ph{"" ^T1ZT6 hol PT! ^a!H_ h`\! 1=Yrr@P+hOQRM@EKhH?E?2 1'8' qv.1,rr@PV|!$""#T"A  r@P PSUBRAJ JPR9MZERuR9MONErR9ZERO}R9MINS+R9BLNKR9999B R9FLDLR9BASESYSMSGeJP J PdSUBRIN DECK-ID S95 RPGII 2.0 SUMMARY-126Jr@PhOXX1F\ShKXSIXPGXM1;\H hBXG15\B h=XA1/\< h8X;1)\6h4-  J, rr@P+ '($  TGTO"r*@PV" T* PSUBRIN 2PR9999BXR9FLDL`R9MVB FR9ZEROYR9BASEHSYSMSGK2P J PtSUBRED DECK-ID S96 RPGII 2.0 SUMMARY-126Jr@PhSXh1IHQdNX`5OhJX[!<HHFXUT!4Ah:::T :2 rr@P+-&  ( %TT8  T>TS"rR@PV" TR PSUBRED JPSYSMSGNR9CNTRIR9BLNK2R9999BR9ACC1 R9UNPKR9FLDLpR9BASE\R9EDT4JP J PY9FTNX DECK-ID S97 RPGII 2.0 SUMMARY-126J @P PR9FTNX P J PAR9FMAL DECK-ID S98 RPGII 2.0 SUMMARY-126Jr@Ph<h8h7H33h)`(T$@"T@TT r>@P+ Fh\T(h b>PR9FMALB9FMAL;N9FMALJPR9SAVP0R9SAVE'R9REST/Y9IBUF2Y9FSTL*R9MVBXR9BASER9PUTS%R9WOTV#JP J PGOPEN01 DECK-ID U01 RPGII 2.0 SUMMARY-126Jr@PT`#hT3#aT74" &TrP@P+JT* A !T08(aTPr@PJ3#a)H A DnB  bb H:3#bDfb b b D bbrr@Pu2@0bEDb BB1@hTHrr@PXkHbb hh:bcH h hnC TE7h rr@P8hTLX< h  hTH h 8hTLrr@P@0bhhhh  "."H*Qrf@P!B  5@0b/ f"נ  fPOPEN01OPEN082PERRPRO=STRACER9DRTNLOG1A %DMPTLKiROOT442P J POPEN02 DECK-ID U02 RPGII 2.0 SUMMARY-126Jr@PT`# T3#aT<96T 6Tr^@P+"K B1 vT+L1  (a"Dbbbbrr@PVb / B1  Ca TH B1I GTk rr@P;+b bDb a $h h.HLhyhhv h  h rr@PhT bbDbRDbd b b 1 "bb bDrr@Pb bb bb  bDb bDbT#a4$bDa rR@P(a#aTh 8h TR POPEN03 BPERRPRO{STRACE R9DRTNDMPTLKERRO46ROOT44ROOT43NTAP48BP J PSOPEN04 DECK-ID U04 RPGII 2.0 SUMMARY-126Jr@PT`6$* 6THXRA1241+Trr@P+3 $1T+=# T;2&TDXrr@PV5@0bT8(aT^# TO3#aTf5rr@P26Tr Dc A c( A c q aAa2 ea5ѳ,Ѵ rr@PAhM !T$2!-)h h oh aT(oHo6rr@P9<53#a79)a2:*a-(Ѳ B0a)h h rr@PoheT(oH^o:%3#aKE"(:*a$9)arr@P-K$5! a5 AhñFT!*#aaHM A DnGB  bbrr@PXUd5%ad Ud7'ad Ad6&adDnb b b D bb1rr@PEDb BBTz`-T;!3#aTRrr@P8&26T-X  1T"   Trr@P$7T#zXYTT`1$0%!rr@P$7T&T* XO T+:TU r@P/T",P@P6T !HhDnB HgenB XTP"POPEN04OPEN05OPEN06OPEN07"2PCLEAR ERRPRO0STRACEPR9DRTNDMPTLKqOPENFL2P J PREAD09 DECK-ID U05 RPGII 2.0 SUMMARY-126Jr@PT`#T #T  .;T3#arr@P+  5T#T  1.:*a /0B2arr@PV2Db 2%1bXw2bDbA2 rr@P bgaBH,HWhP, hT3 p7'aϠ2h=1Drr@PhA 4h hT*(dhT  b2Db0 rJ@Pb1T  Db TEJPREAD09READ16*PERRPROSTRACER9DRTNROOT44ROOT43*P J PREAD10 DECK-ID U06 RPGII 2.0 SUMMARY-126Jr@PT`#T 6T O .;T3#arr@P+?/b  1.:*a02 B2a2Dbrr@PV~ 21bXn2bDb"XohY6rr@P?/b hT" k7'aϠ2h@1DhA 4h hT-rr@P(dhT  b2 Dbb b: 4 DbTrr@P(  Dbb b T19b  b T  r @Ph PREAD10 2PERRPROSTRACER9DRTNROOT45ROOT44ROOT432P J PHREAD11 DECK-ID U07 RPGII 2.0 SUMMARY-126Jr@PT`#T 0$T %.T Brr@P+Q T 6.0,TTBbrr@PV @b/T!@,T A?b/+ b/rr@Ph1) " b h h Dh hTA2   Drr@P hhA4 h h #2hT a bd rr@Pm b1b b #A 2 A 2 arr@P! Ta7'aah  !4h h #2hT  a rJ@P- bd :*a2a3#aTJ PREAD11 JPERRPROSTRACEER9DRTNERRO46ROOT444ROOT43#NTAP48MNTAP49KNTAP55mJP J PREAD12 DECK-ID U08 RPGII 2.0 SUMMARY-126Jr@PT`#T $<96T 96Trr@P+ ?/b 3#aT  E1Ϡ2hh A hrr@PV hT Ab  "Db1 brr@P2Db A1b2 h hTY B2a3)h h rr@PhohT( ooQ-y+ @0b"+B2a(: *aT8rR@P' 3#aF A!7b"DbMRPREAD12READ14*PGETS ERRPRO(STRACER9DRTNROOT43*P J PREAD13 DECK-ID U09 RPGII 2.0 SUMMARY-126Jr@PT`#T 3#aT%&'T %.rr@P+,T#   Mb!V)h(H rr@PVoh  hT(ooQ#!%@0a%>.a 42rr@P:*a?/bDbbh  h hT 2Db bTr @PR PREAD13READ15*PREADR ]ERRPRO/STRACER9DRTNROOT43*P J PWRIT17 DECK-ID U10 RPGII 2.0 SUMMARY-126Jr@PT`#T 3#aT#T - 6Trr@P+  1T !!bDb 1brr@PV*h*$ah$h hT*e7'a h Π1h A hTrr@Pbb 0 A 1XT9f# A2 " f" r&@P b ! T߀ &PWRIT17WRIT24*PERRPROjSTRACER9DRTNROOT45ROOT43~*P J PWRIT18 DECK-ID U11 RPGII 2.0 SUMMARY-126Jr@PT`#T 3#a(T S-T1rr@P+q !!bDb 1b A  < hT$Q>rr@PV7'aDH h 1h A hTbb 0 A !rZ@P# A2 " f"  bb bTT_ Z PWRIT18 *PERRPRORSTRACER9DRTNROOT45ROOT43i*P J PEWRIT19 DECK-ID U12 RPGII 2.0 SUMMARY-126Jr@PT`#T $$T-T Brr@P25  /,A1aTTAb  ?b rr@P]1b/+ b/ +   A  ;T(7'aa/rr@P? h !4h #1hhT a b A brr@P 2b1 b b Tq  !A bDb HA h rr@P b#1h hT h !4h #1hhT  a rr@P b+)+bDbb 2b1 b b + Tr2@P4T 3#a8(a2 PWRIT19 BPERRPRO|STRACE8R9DRTNERRO46ROOT43ROOT454NTAP49INTAP48KBP J PWRIT20 DECK-ID U13 RPGII 2.0 SUMMARY-126Jr@PT`#T %T  -T3#aTrr@P+1T' !1b 8(aT/ A1bDb Arr@PVh ah A hTb 0A 2XTGrr@P bbB8a5)h 5h oh a hT( oo%A1a%:*r@Pa3#aPWRIT20ADDT30*PPUTS ERRPROSTRACE{R9DRTNROOT43e*P J PWRIT21 DECK-ID U14 RPGII 2.0 SUMMARY-126Jr@PT`#T &T & -T3#aTrr@P+ @0aT)1 !1b)h oh h rr@PV hT(oo!2!(:*aT'h h  h hTrr@P b )h oh  hT(o Db2DboTpX:*ar @Px PWRIT21 2PUPDRECREADR YERRPRO2STRACER9DRTNROOT432P J PWRIT23 DECK-ID U15 RPGII 2.0 SUMMARY-126Jr@PT`#T 6T / -)T3 #aTrr@P+1   ahhh  aH2hTh  hTrr@PVJ )h oh h  hT( ooT*&A1a!r2@P%:*a%=-a2"PADDT31ADDT32WRIT22WRIT23"*PWRITERlERRPRO"STRACEtR9DRTNROOT43V*P J PUPDT25 DECK-ID U16 RPGII 2.0 SUMMARY-126Jr@PT`#T (T P ,T3#a/rr@P+T?/a1Tb. h T,QV7'a?rr@PV9)b hhDh h9"aHA1hT7 !rT@P  b9b T  2Db?bT PUPDT25 *PERRPRONSTRACE8R9DRTNROOT45ROOT43q*P J PUPDT26 DECK-ID U17 RPGII 2.0 SUMMARY-126Jr@PT`#T BT  ,T3#a/rr@P+T ?/a1T'?h  a H!hToaH'hrr@PV"Q" H"T-3;+a rr@P 8(ab A1bDb  b h hhTJ rn@P )hhohT)o b2Db?boh:*an"PUPDT27UPDT28UPDT29UPDT26"*PERRPROfSTRACE9R9DRTNROOT43UPDREC*P J PSETL33 DECK-ID U18 RPGII 2.0 SUMMARY-126Jr@PT`6T  ;T 93#af&T;!rr@P+)hhoh Da hT(oo"012!(:*aTrr@PV%B2a3#a%>.a 1 @0bbDb 2bBr@P?bTQy PSETL33 "PREADR :ERRPRO#STRACER9DRTN"P J PSLCT34 DECK-ID U19 RPGII 2.0 SUMMARY-126J:@PT`3#aT?T: PSLCT34 PERRPRO STRACER9DRTNP J P]CLOS35 DECK-ID U20 RPGII 2.0 SUMMARY-126Jr@PT`#T 3#aT6T 3a!rr@P+1  1 2b TDbhdH Mr@PVbTPCLOS35CLOS42*PERRPROSTRACEZR9DRTNDMPTLKPROOT459*P J P|CLOS36 DECK-ID U21 RPGII 2.0 SUMMARY-126Jr@PT`#T 3#ad6T R3a1  1rr@P+ b ! T)%9b hh@ TM* hTrf@PVN9:*aDbhdg lbTf PCLOS36 *PERRPROUSTRACEyR9DRTNDMPTLKoROOT457*P J PCLOS37 DECK-ID U22 RPGII 2.0 SUMMARY-126Jr@PT`#T {$T p.@/+ %rr@P+b/+ bDb 2b T-TTMTrT@PVTQTTW"hdc hbTT@Pv3a- .T]TTu3#a8(aT PCLOS37 JPERRPROSTRACER9DRTNDMPTLKkERRO46NTAP55ROOT45FNTAP56ZNTAP54TJP J PCLOS38 DECK-ID U23 RPGII 2.0 SUMMARY-126Jr@PT`X&#T 3#aT<96Trr@P+3a1'  1  Aa hB1a5)h 5hohT(5oorr@PV)hohT(oo1 h T& p:*aDbhdrr@P| bToT`XqT`Xh 3#aTVr@P6Th4"PCLOS38CLOS39CLOS40CLOS41"2PCLOSFL_PUTS PERRPROSTRACER9DRTNDMPTLK2P J PjROOT43 DECK-ID U24 RPGII 2.0 SUMMARY-126Jr@P Hdddh]]ddhUT%rJE"4hE@+rr@P+; 52 H/H-+(!!n!  r:@PVةFA h &Ahef:PROOT43MOVE P J PROOT44 DECK-ID U25 RPGII 2.0 SUMMARY-126Jf@P#HTa#H#2  1b>.bfr@P' TQ;h2h0>b#$&1 -K, <,b 01rr@PR[ >.bTN_W "."8. . , ?/brr@P}$T[-/ՠ  @0b",T >.b h rb@PbXT*MX  bB2b  bb b PROOT44 PERRPROSTRACELOG1A hP J PROOT45 DECK-ID U26 RPGII 2.0 SUMMARY-126JH@P#HTa#H1  |AbHr@P h9 Ab>.bT,Q;h)>b#$11A1a r0@PF03 19:*aTNV;0r@PW "."8. ,$A1aTRA1b ?/brn@P3Ts:*aA1b2Dbb bb T)Un PROOT45 PERRPROSTRACELOG1A _P J PNTAP49 DECK-ID U27 RPGII 2.0 SUMMARY-126Jr@P+#"a#.)-T:8EOȿV1B2aH,XFBrr@PVb @b9-& /T:Tg,TTj"X"Ab @?brX@PA1a,TtX TTT bX PNTAP49- PSTRACENTAP55NTAP56rP J PNTAP52 DECK-ID U28 RPGII 2.0 SUMMARY-126Jr@P0HnhXkh HXfh (hh!2 S Q H0%A h^ XJh rr@P9HXEhXBhd(h (h /Ȳnm" $Ȩ 62 2 hHȝrH@Pd- h+ hh"   h2  ؓHN@Ph hF2 N PNTAP52 PDAYTO tMONTO jYERTO !P J PuNTAP53 DECK-ID U29 RPGII 2.0 SUMMARY-126Jr@Pd0hHhhh H0%A 0FhHHlrr@P9 h$" uψh h Ⱥ8h 0FhHȴhhȭ nȩhr2@PdhȢ nȢȤh hتȗ2 PNTAP53 PDAYTO &MONTO #YERTO P J PNTAP54 DECK-ID U30 RPGII 2.0 SUMMARY-126Jr@PDhh~ hyhxu B0FHbB0F^00H[B0FHWB0FS00HPB0Frr@P+200HHTy F1LBV1h!Gb *DT[(T [ h T0[\rr@PVNEOh*EOV1  r @P PNTAP54NTAP56"PSYSID 1ROOT43RNTAP55KNTAP58G"P J PLNTAP55 DECK-ID U31 RPGII 2.0 SUMMARY-126J@P6r@PHL\Hh" a!HA hh (h&hhhrP@P/ aT`HhA Hh(hT ȾP PNTAP55 PROOT43E P J PNTAP57 DECK-ID U32 RPGII 2.0 SUMMARY-126JT@Pa h l lTH$h lu"% AlT PNTAP57 P J PNTAP58 DECK-ID U33 RPGII 2.0 SUMMARY-126Jr@PhhH |HX hXl q" d   *#C:rrr@P/> " r < H E A a1"@Z{[lP}M]\Nk`Karr@PZz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPrl@PQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="l PNTAP58 P J P\IO00WR DECK-ID U34 RPGII 2.0 SUMMARY-126Jr@PhXhPDhK hHHOHNEhBA h>>Bh7Ah8X h0T`L05"-,h)( rr@P+h%% h#h"hT`LH! 1 h  @Hr@PVLPIO00WRIO00WOP J P%MOUNT DECK-ID U35 RPGII 2.0 SUMMARY-126Jr@PH r`P+`P,`P-<@PF D@000000 000000*< @P `Pr@P$$MOUNTS '0V_aiktrr@PXXXXXXXX MOUNTED SUCCESSFULLY UNRECOGNIZED PARAMETERS INPUT ERROR. WANT rr@PTO CONTINUE? FILE NAME IS MISSING FILE MANAGER ERROR MISSING PARAMETER.EXPIrr@P$RATION DATE WRONG LENGTH. PARAMETER TOO LONG. CODE NOT A OR B OR E .TSrr@PO"TI!Dh*HT[ PTHp)[gTrr@Pz/* Ah$ hHTbF-(HT RBHHrr@PH #hZT[(hhT !` /hh\FXCrr@P TTZLT,,'T nTTcrZ@PHT-TTZTrhh ?TZr@P?/h A@0hh hT   T <A9rr@PI8(h9:*hؠ=>.h;+hàAB2hrr@Pt=<,hh2h5h hh0h2h h h1h-hrr@P h TAѠ0  T! !T1 #2r>@PhȲ01h Ah  h ȥhHT>r@P1 T 6T1 A>h Ah h r0@P#1h # 2hHT0 @P# PMOUNT H RPCLEAR IWRITEROPENFLSCLOSFL CM00PTCM00GT7IO00WOIO00WRtCM02INROOT43RPMOUNT J P5CM00PT DECK-ID U36 RPGII 2.0 SUMMARY-126Jr@P h-h-Dh(DBh&H&H% Bh0$hDl Ȉ QH r@P+ @PCM00PTCM00GTP J PiCM02IN DECK-ID U37 RPGII 2.0 SUMMARY-126Jr@P , hHhDhShShhhhCd h hH hhrr@P.hhTh  ØؽغTe"ȶbȱbȭbrPCM02IN DELIM PCM03GOMCM00GT5P J PmCM03GO DECK-ID U38 RPGII 2.0 SUMMARY-126Jr@P Hh`31hHR4 "D"h$H" aAA bDbb brr@P0Dbb" ba@@lr`P[`Pl PCM03GO P J PNTAP48 DECK-ID U39 RPGII 2.0 SUMMARY-126Jr@PXXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1  0001000rF@P+100 YYDDD YYDDD 000000 HDR1VOL1Fr@Po RING #"a# h+hM h*hM hIrr@P Dn! q hh?  n q n q n  n  nT(o&:rr@P$$MOUNTS n qX"+2.B2a%T(so hTs*rb@Ph hhhhT(soX2%<,bT(o H hTbr@PT.  ""B0F400hE+NO hTLDrr@PAT!BH?)!0T=-b*:*bTT TfDrr@Pl'TA1*TD(hCA` h h rr@P``hE` h h ``ToE GTirr@PD41.T .*T}D(hC?` rr@Ph h ``hE{` h h `rr@P` 0Hc(R4TB hQhDh hSHBHrr@PC 0hB FhT'C.T)T`Thrr@Pn()V8hC?` h h `` Trr@P\l@Tl1TWHTEUNTkT|B0FHB0Frr@P00HB0F4Ȁ00hTl%@Ty0TlTl-T6 rr@P*DT(T T8(aTTTITU#r PNTAP48 rPERRPRO SYSID STRACEDELRECGETS READR CLOSFLOPENFLERRO46NTAP55ROOT43NTAP57NTAP53NTAP52r PNTAP58 P P*END P