@P k ̪ !\ & d
@ H H >
PFINISH|
2 PNWRITEMIHCON RCONV _SYMSCN)IACON RNPUNCH
2 P D P GETSYM DECK-ID 10C FORTRAN 3.3B SUMMARY-102D p @P 6 c 0p4 g, d e l f p<( hp 8h p8(d p p @P ,T 0 i h\ 0 ) h\ 0 \ 0 iȷ h\ 0 Iȯ h\ p p @P W p <( h p8 hp8 (d T i ȍ h\ ) ȅ h\ p X @P \ 0 i l\ I l\ ed f H cX
PGETSYM
PWRITE -READ m P D P* ZIACON DECK-ID 07D FORTRAN 3.3B SUMMARY-102D @P v @P @P ' p @P
h 0 c h
hh kh & h
h
h( h((d ژ#" `p9i ψh p B @P 6
.h 0 = 0f
h
1ؾ
1 B @P O @ H H
PIACON S
P D P* -IHCON DECK-ID 08D FORTRAN 3.3B SUMMARY-102D @P N @P h
hp 8hh 0 = 0f Dh
1
N @P # HT T h
PIHCON #
PQ8PKUP )Q8PREP & P D P* INDEX DECK-ID 09D FORTRAN 3.3B SUMMARY-102D & @P
p4 (,d h h& $ @P HT T h $
PINDEX
PQ8PKUP Q8PREP P D P* LABOUT DECK-ID 10D FORTRAN 3.3B SUMMARY-102D @P @P p @P ? "h
d d c T
h d # O h ` Rl (
d p p @P0 1 i Pl Q $ dn 14 dR l
lT T \ ȩ p p @P \̺ hȠh Ƞ6 Snؚ ̬ l
nn nn
) ; ε " d
l p p @P d Ϋ Φ d &d Rl l& dR l lӤ lp p @P0 c 0hO Q ̽ dR l l@ H HT T p @P *
PLABOUT
* PQ8PKUP Q8PREP GETSYM UNPUNC TRBPK V* P D P* /NP2OUT DECK-ID 11D FORTRAN 3.3B SUMMARY-102D @P
@P
@P CORE OV @P FL d @P T T T
, d
d dl
l Hd
PNP2OUT +
PRBPK COUNT WRITE P D P* JNPUNCH DECK-ID 12D FORTRAN 3.3B SUMMARY-102D @P @P `P : @P
@P *T @P
@P
@P @P @P
p @P0 0 0 lh l 0> kh
`lT 1 $ k l\13 $ l l l mp p @P E
h
n
91 \1 $ 1T $ 1T $ " d
h ȥ褆
hȠ p @P ph\ $ p @P v
< "
<2 d 1 d
d 0 p H @P !
! $1= h
ζ h
T 9 4 " H @P8 " $ @P ׀ h λ h\ " $ ( @P h Ε h\ ( & @P ̺ h Ξ h\ & p @P ̭쬆 l̚ 1
l r l \ " ̠ 9TF H
K
p p @Pd
n
( 1T D ( K T T\ !
@P w Xfvh
h Dh
h h TZ y > r @P ehT % X28 Ih[ X8 R+hP= : h84H+ r r @P ChF
X
h, A1 h; h. xh2
" l TL f r r @P n h ERh u nFTN3 A1
_ _ 2 h\ Y hX < r r @P 6
0j5Q
: j/ TL : FTN 3 .3B (OPT = L P X C ) r h @P PAGE DA TE: MM/D D/YY TIME:
h B PFTN EXITF 0PAGCHK ASCOPT PRGNAM PAGNBR DATE TIME B PFTN J P* &GOE DECK-ID 32F FORTRAN 3.3B SUMMARY-102 J f @P ## l!L!T T " `TF 8 T \ ! # $ f
PGOE
PIOPR PHASE6 P D P* PHASE6 DECK-ID 14E FORTRAN 3.3B SUMMARY-102D @P x u0 p @P P "d
d d (
d '
d T T #
d ! l d 1
9 p p @P 3d Μ*T 'l\ l\ l hhȼ <\ d ) f ܺ ذȭ
lȔ p p @P ^ !
!
ļ lT ̨ l̲ !T ȍd m
d %n 0 : p 4 @P n
1
d T H n4
PPHASE6
2 PBEGINO READ INDEX :AMOUT lFINISH yNPUNCH 2 P J P $IOPRBD DECK-ID 31F FORTRAN 3.3B SUMMARY-112 J r @P Hw hvhr H
H f gfh
h ZX n
h N HR hW r r @P +H HI hN L HAh0h@ => M h;= 8@h;" 513/ !Hn, ,
q +%s% ̘F r P @P h h Xh r @P w h T " @P TL T
SO " * PIOPR READ %WRITE .RESET EXIT * PMAXSECRPAGCHK e P J P Q8PRMS DECK-ID 10F FORTRAN 3.3B SUMMARY-102 J H @P Hq ` `H s"ܨ H PQ8PREP Q8PKUP
P D P* AMOUT DECK-ID 01E FORTRAN 3.3B SUMMARY-102D
@P
@P @P @P @P @P @P @P ? @P P
@P *UD
@P p @P ! 'd 0 d "
d l 4 l d &
h T (8 p p @P L" 8 Ԝ
d Ȭ " h T ̾ ̽ + ) ̱p p @P w 7 ̩l !x̠ l̢l̞ l\̶ $ 1; $ 1 R $ 1*p p @P
d d cT 0 il
2 @ " !
d { llp 4 @P hT l̙` ͙
d Rm 4 p @P "l
d M
$ d l d
0!6 $ 1. 'p p @P ̔ d # ) # #
l
lT ̵ " ̝d &T = p p @P 7 T
d d d
d
Ld d Hd l d ̞ %̛p p @P b 2 T
l !0 " ! " p p @P "
$ d l d ̯d
! ̡d T T d )
` p p @P d Rm l̊l ܙ̘"
9 & _ 2 UTZ 0 "d % dlp p @P l " l̿ #̼dl " d
d 0d cT d ( lp p @P ל "l l l " ̸ l̮ l̰ d ̧l \l 8 hKp p @P9 0 i
" T ̞ N ̍ !J " !C
p p @Pdd d #! Q! d !d P O Rd p p @P !
d
l l
d
d T c d ̾ " gl ld cT ̦p N @P0 i #l d T < ll I̱n ̧n d N @P @P p @P0 ̸ .
l ̳l '̬d #f Q
l " n l
d
"
$ p @P 첎 d @P p @P l l
dRl
d d
d 1U , c l hp p @P2E lK 6
l
! K Ep R @P ]
l Ed 0 -
l < $ 췆 i " lR @P | p @P |
l -̣ l nΦ K ΡA
d d ̛l p
@P
@P u D @P
!> d d
' dRl D @P z p @P D l l d cT Π l
l & 3Ώl Ep @P l l @P @P p @P 1̸D "l̴ l
l
l
(?
+ llT kT d T +
-p p @P " ̷l\̫ d
,d ̞d 0 hK . 0i 1 D
)!p p @PKG $ c "d
T ln
d
l l ? td 5 p p @Pv#f O f P f Q f R l
ll "T M ΗO p p @P +̫ ,쫎l l$ l
l 0hE d
l 0 -
l p p @P d $ 0 c 0id & dR l "d
& dR l l̞ p p @P l̕ ,l
-d
0 $ d d ̿ ll
llT T (d )p H @P"` dR m" = ) H @P e= @P = @P = p @P =̧l
d d ̢l :̽ 6T d cT $ 0 id
ld (d "
*p P @PhlT l
d ̖ "
l
- ll\ d % l lP @P @P 0 hT
@P
@P p @P \
.d l
ll\ 0l : d m
d % n
1 < dl\ 8Σd q
p @P d T
d ' @P 6 @P
@ H H T
PAMOUT
j PBKDWN 5ADMAX dGETSYMUINDEX COUNT LABOUTUNPUNCONP2OUTWRITE TABDECSETPRTjCONV NPUNCHj P D P*
ADMAX DECK-ID 02E FORTRAN 3.3B SUMMARY-102D @P p @P 0 @T d ) h`\ ~h hZ\ ~h hT\ ~h hN\ ~h hH\ ~h p p @P @P g7 " ! 1 9̦` dR m > p @P d
d ]
l )`
d Rm
n ̮ T lp p @P ` m dRm
l 2 q
d l
lT l̴`ͥ
dRp p @P m Bd
"
l " l̦`͊ dR e
l w ̿ ' p p @P
l ̲ d l ~!_ 1[
d 1V̼ !R̸ ̵ dp p @P + S N l̞ V %
! N #
l )`͜ p p @P V dR m n l n
d T ` m
dR m lp p @P d ` լm
,d $ ld Rm
d ̚
l d "! *p p @P
3 E 6 G FE n `͠ dR m n ̊n n ` p p @P d Rm n n n` dR m n n
@ p @P H H
PADMAX
PINDEX GETSYM [TABDECp P D P* BEGINO DECK-ID 03E FORTRAN 3.3B SUMMARY-102D @P P @P @P @P / @P @P
@P
p @P
d d " 0h l
0h k f
7 1 d m
h 0֔ 8 1
h 8 - p p @P H
h 0 + f l 0 9h d n o }
h ʗh 0 =n ء
1p p @P sT 2
h ʋh n؋
1 a 0f T o
(n hT p
@P o
p @P ̸
l
)f ̳ 3 ̯ 1
d d αf 0 ܜ
1ܖ ܕn\ np @P
(n 0̊ h \ n p @P
) f l\\ 0 d 00 @P k ̪ !\ & d
@ H H >
PFINISH|
2 PNWRITEMIHCON RCONV _SYMSCN)IACON RNPUNCH
2 P D P GETSYM DECK-ID 10C FORTRAN 3.3B SUMMARY-102D p @P 6 c 0p4 g, d e l f p<( hp 8h p8(d p p @P ,T 0 i h\ 0 ) h\ 0 \ 0 iȷ h\ 0 Iȯ h\ p p @P W p <( h p8 hp8 (d T i ȍ h\ ) ȅ h\ p X @P \ 0 i l\ I l\ ed f H cX
PGETSYM
PWRITE -READ m P D P* ZIACON DECK-ID 07E FORTRAN 3.3B SUMMARY-102D @P v @P @P ' p @P
h 0 c h
hh kh & h
h
h( h((d ژ#" `p9i ψh p B @P 6
.h 0 = 0f
h
1ؾ
1 B @P O @ H H
PIACON S
P D P* ,IHCON DECK-ID 08E FORTRAN 3.3B SUMMARY-102D @P N @P h
hp 8hh 0 = 0f Dh
1 N @P " HT T h
PIHCON "
PQ8PKUP (Q8PREP % P D P* INDEX DECK-ID 09E FORTRAN 3.3B SUMMARY-102D & @P
p4 (,d h h& $ @P HT T h $
PINDEX
PQ8PKUP Q8PREP P D P* LABOUT DECK-ID 10E FORTRAN 3.3B SUMMARY-102D @P @P p @P ? "h
d d 0 cT
hd # O h ` R
l
d p p @P 1 i Pl Q $ dn 14 dR l
l T T \Ȩ p p @P \ ̺ hȟ hȟ6 Sn ؙ̬ l
n nnn
) ;ε "d
lp p @P d Ϋ Φ d & dRl l &d Rl lӤ p p @P l c hO Q ̽dR l l ; T p @P d K T & @P ɀ 0khT p @P
$l I θI 0 =f n@ H H T T h p @P
PLABOUT
B PQ8PKUPQ8PREPGETSYM UNPUNC URBPK WNWRITE IACON IHCON B P D P* 8NP2OUT DECK-ID 11E FORTRAN 3.3B SUMMARY-102D @P
@P
@P CORE OV @P FL p @P T T h T T
, d
d dl
l p @P 4 H
PNP2OUT 4
" PRBPK
SETPRT COUNT WRITE " P D P* JNPUNCH DECK-ID 12E FORTRAN 3.3B SUMMARY-102D @P @P `P : @P
@P *T @P
@P
@P @P @P
p @P0 0 0 lh l 0> kh
`lT 1 $ k l\13 $ l l l mp p @P E
h
n
91 \1 $ 1T $ 1T $ " d
h ȥ褆
hȠ p @P ph\ $ p @P v
< "
<2 d 1 d
d 0 p H @P !
! $1= h
ζ h
T 9 4 " H @P8 " $ @P ׀ h λ h\ " $ ( @P h Ε h\ ( & @P ̺ h Ξ h\ & p @P ̭쬆 l̚ 1
l r l \ " ̠ 9TF H
K
p p @Pd
n
( 1T D ( K T T\ !
23 @P $@ @S @P ' S0
. @P *JA`2 @P -
1L @P 0@ @P 1 - - * * @P 5 + + @P 9 , @P < P C D p @P K
h d T " l\
f !.
h ʕ h Eh Jp p @P vh̨ h h G 0f ػ
1 % ʡf 0 ̻ &l k
!p n @P
h
hȕ f nܞ = d c 0hK B T Z k hT Sn p @P
$d D I C 0 = n I n A z
+l ̖ 1p \ @P =̚l 0 v a f \ " z ! ǀ
hT \ b @P ̿ l 7 5 7nܡ 0̠ h
\ b p @P A̙ l ̳ ̡ g n
H d D̸ 1! ; n I
l Jp H @P l
l
l < 0f T
d d H H
PSETPRT
" PIHCON IACON CONV NWRITE{" P D P SYMSCN DECK-ID 17D FORTRAN 3.3B SUMMARY-102D H @P0 c
l e 0al ` 3
l T HH
PSYMSCN
PGETSYM
P D P* |TABDEC DECK-ID 18E FORTRAN 3.3B SUMMARY-102D @P p @P
d c d eT 0 hE K " i ( % n
p p @P -hd !- ( $ n 0 : 踞 $ n dd 謎 $p \ @P X nȤ
hd $>̵ % n Ül H\
PTABDEC x
PSYMSCN
P D P* UNPUNC DECK-ID 19E FORTRAN 3.3B SUMMARY-102D : @P l
d T T
l H:
PUNPUNC
PRBDX NPUNCH
P J P ENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102 J
PENDLOC
P P *T P P *K,I8 P P *N,FTN3E1,,,B P P *K,I17 P P *P P J P FTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132 J > @P w Xfvh
h Dh
h h TZ y > r @P ehT % X28 Ih[ X8 R+hP= : h84H+ r r @P ChF
X
h, A1 h; h. xh2
" l TL f r r @P n h ERh u nFTN3 A1
_ _ 2 h\ Y hX < r r @P 6
0j5Q
: j/ TL : FTN 3 .3B (OPT = L P X C ) r h @P PAGE DA TE: MM/D D/YY TIME:
h B PFTN EXITF 0PAGCHK ASCOPT PRGNAM PAGNBR DATE TIME B PFTN J P
GOF DECK-ID 38F FORTRAN 3.3B SUMMARY-102 J @P T 0
d T
PGOF
PIOPR PHASEF ENDLOC P D P ) SYMSCN DECK-ID 28A FORTRAN 3.3B SUMMARY-102D H @P0 c
l e 0al ` 3
l T HH
PSYMSCN
PGETSYM
P D P H PHASEF DECK-ID 01G FORTRAN 3.3B SUMMARY-102D
@P
@P 6 ` @P
@P @P
@P @P - p @P , f 0p4 g( hp 8ڈh p8(d T i h\ )Ⱦ h\ p p @P0 I \ 0 iȰ h\ 0 IȨ h\ 0
d m 0
d n
d Ȟl 0
d c
h
np p @P t
nf 0 rؑ
1T T 0 e = h K d 0 id " ! , p F @P 4 3 9 8 76
d 9̺ k hT F l @P w
l + O 0 w ̼
l c k h\l \ @P w
l "
9 &
0 kl
d 0 x2܀ 0khT \ @P lԀ 0lh\ n @P l"̻ 4
l
d
d
0 v $ l
1 l n hT n p @P : w C
l
l 0 nd 0 c ` f h l r
1
d
lp p @P e췎l ܴ
1
l 6 f ܦ 0
d f
ll T ~
씎 d lp p @P " l T η K d αI d Ϋ Cd id E d
" : p 0 @P & t 00c kh T 0 p @P w S
d 00 {d |
( d }T 1 w kl '\ ̻dl T w
)l\ w p p @Pd
5
n
l\ 0 w
l
0f v
1 ̠
C l -
Dl\ w p @P #\
l l̞ l h\ $ @P- }\ w ̒ khT $ \ @P : w
ld ~\ w
< l
l 4 lT c kh\\ D @P ^ w
d 0 }lT 1 w
l l k h\D F @Px w\ w w
d eh
T d \ F < @P \ T w\ w
l < @P @P d @P 0 @P
2 ~
@ HH `0
PPHASEF
b PWRITE 6TITLE SYMSCN ACON 8IREPAKSORT 8GETSYMHCON LWRITEdCONV WRTYP TMATCH b P J P Q8PRMS DECK-ID 10F FORTRAN 3.3B SUMMARY-102 J H @P Hq ` `H s"ܨ H PQ8PREP Q8PKUP
P D P H `GETSYM DECK-ID 02G FORTRAN 3.3B SUMMARY-102D p @P 6 c 0p4 g, d e l f D p<( hp8 hp 8(d T p p @P , i h\ ) h\ \ i ȸ h\ I Ȱ h\ p @P W̵l H
PGETSYM \
PREAD ,
P D P _ACON DECK-ID 03G FORTRAN 3.3B SUMMARY-102D @P v @P @P ' p @P
hh
hh 4h %h
h
h (h' (dߘ" "`p 9iԈ h
. h =p . @P 7n
h
1
1ɀ . 4 @P J@ H H T T h \ h4
PACON N
PQ8PKUP VQ8PREP S P D P 3HCON DECK-ID 04G FORTRAN 3.3B SUMMARY-102D @P L @P h
hh p8h h 0 @P
n f f f c e f l'> @P
h h hT @P ( = Ԁ h\ p @P 3 1 n l l Ƚn ̽n ȶhθ h HT T h\p @P ^hh hh
PSORT U
PQ8PKUP [Q8PREP XIFOVPF % P D P XIREPAK DECK-ID 08G FORTRAN 3.3B SUMMARY-102D @P v @P
@P ' @P
p @P
hh 3h
h % h
h
h( h$(d " `p9i Ոh
h *Ɉhp @P 9
h
1 ȿh . @P F@ ȶ H HT T h .
PIREPAK K
PQ8PKUP SQ8PREP P P J P 3CONV DECK-ID 03F FORTRAN 3.3B SUMMARY-102 J r @P h hH( h'
f
q h @H B 0Fh Fd 0m ` h
r H
r @P +`
PCONV
P J P H n GETSYR DECK-ID 39F FORTRAN 3.3B SUMMARY-102 J < @P m 0 !l h TH <
PGETSYR
P J P TITLE DECK-ID 40F FORTRAN 3.3B SUMMARY-102 J r @P H2 "WT U r !lX X
X XXX X T 4 h.h T r r @P + 2
H ")hT E r r @P V
6ALWbmx ***** L I S T O F S Y M r r @P B O L S ***** CONSTAN TS : --- ------ VALUE ADDRE SS REF ERENCED BY STATE r r @P MENT N B : VAR IABLES : ------- -- NAM E TYP E A DDRESS REFEREN CED BY S TATEMENT r r @P NB : EXTERNA LS : --- ------ NAME TYPE ADDRE SS REF ERENCED BY STATE MENT NB r r @P : LAB ELED STA TEMENTS : ----- -------- ----- LABEL ADDRE SS REF ERENCED r r @P -BY STA TEMENT N B : B Y T E S I G N . B Y T E I N T R . F N . S r r @P X T A T . F N . I N T E G E R R E A L r r @P D B L E . P R E C . F U N C T I O N I N T E G E R . F N . R E A L . F N . r @ @P D B L . P R C . F N . S U B R O U T I N E @ PTITLE WRTYP 7 PLWRITE >WRITE + P J P IFOVPF DECK-ID 41F FORTRAN 3.3B SUMMARY-102 J : @P h h
h
3 d :
PIFOVPF
P J P %PACK DECK-ID 09F FORTRAN 3.3B SUMMARY-102 J ^ @P H" h! h h A h @
m
5 @ ^
PPACK
P J P $IOPRBD DECK-ID 31F FORTRAN 3.3B SUMMARY-112 J r @P Hw hvhr H
H f gfh
h ZX n
h N HR hW r r @P +H HI hN L HAh0h@ => M h;= 8@h;" 513/ !Hn, ,
q +%s% ̘F r P @P h h Xh r @P w h T " @P TL T
SO " * PIOPR READ %WRITE .RESET EXIT * PMAXSECRPAGCHK e P J P ENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102 J
PENDLOC
P P *T P P *K,I8 P P *N,FTN3F1,,,B P P *K,I17 P P *P P J P FTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132 J > @P w Xfvh
h Dh
h h TZ y > r @P ehT % X28 Ih[ X8 R+hP= : h84H+ r r @P ChF
X
h, A1 h; h. xh2
" l TL f r r @P n h ERh u nFTN3 A1
_ _ 2 h\ Y hX < r r @P 6
0j5Q
: j/ TL : FTN 3 .3B (OPT = L P X C ) r h @P PAGE DA TE: MM/D D/YY TIME:
h B PFTN EXITF 0PAGCHK ASCOPT PRGNAM PAGNBR DATE TIME B PFTN J P ERRMSG DECK-ID 42F FORTRAN 3.3B SUMMARY-102 J r @P
<
#h* h) h( h' 0
d h 1h "$ 0` #
` r @P +X r @P 0 hHCDhB hB2 < h"
jQ
q 1 h h
X4X3T r X @P [ / X(X' H h 2 Ƚ X H @P ~
f 0 B
y h v t T [ H r @P n 3Wi~)AUky(
6KcgT{ r r @P Ba /Fnr * ; Q p
&
;
O
0 b D r r @P* o s
5
^
b
f
j
n
r
v
z@Dz~!FXimqu y r `P U r @Ply** *** D I A G N O S T I C S R E P O R T ***** 1 : FIELD IS NOT REC OGNIZABL r r @P E. (IL LEGAL CH ARACTERS IN FIEL D SUCH A S 8 IN O CTAL FIE LD.) 2 : MINI MUM RANG E LIMIT r r @P OF A C ONSTANT IS EXCEE DED. 3 : MORE THAN SI X CHARAC TERS IN A NAME. 4 : MAXIMUM r r @P RANGE LIMIT OF A CONST ANT IS E XCEEDED. 5 : EXPONENT IS MISS ING IN A CONSTAN T. 6 r r @P : SUBS CRIPTED VARIABLE WAS NOT PREVIOU SLY DIME NSIONED. 7 : EXPRESSI ON IN AN IF STAT r r @P CEMENT DOES NOT HAVE IN ITIAL PA RENTHESI S. 8 : INCORR ECT FORM AT STATE MENT. 9 : IL r r @P nLEGAL USE OF T HE .NOT. OPERATO R. 10 : ILLEGA L OPERAT OR OR OP ERAND. 11 : SU BPROGRAM r r @P REFER ENCE IS ILLEGAL. 12 : LABELED END CARD IS ILLE GAL. 1 3 : NUMB ER OF AR GUMENTS r r @P DIFFER S IN REF ERENCES TO THE S AME SUBP ROGRAM. 14 : IMPLIED DO IN DA TA STATE MENT EIT r r @P HER CO NTAINS W RONG NUM BER OF S UBSCRIPT S OR SUB SCRIPT I S OUT OF RANGE. 15 : EXPRESSI r r @P ON HAS AN ILLE GAL TERM INATION. 16 : UNMATCHE D PARENT HESES IN AN EXPR ESSION. 17 : r r @P ERELATI ONAL OPE RATOR IS MISSING . 18 : RELATI ONAL OPE RATOR US ED ILLEG ALLY. 19 : AS r r @P pTERISK IS ASSU MED. 2 0 : ONLY ONE ** IS ALLOW ED PER P ARENTHES ES LEVEL . 21 : A VARI r r @P ABLE I S USED A S A SUBP ROGRAM N AME OR A SUBPROG RAM NAME IS USED AS A VA RIABLE. 22 : r r @P SUBPRO GRAM NAM E DOES N OT APPEA R IN AN EXTERNAL STATEME NT. 2 3 : ONE OR MORE DO LOOPS r r @P TERMI NATE ON AN UNDEF INED STA TEMENT L ABEL. 24 : IL LEGAL SU BSCRIPT. 25 : SYNTAX E r r @P RROR I N THIS S TATEMENT . 26 : THIS A RRAY PRE VIOUSLY DIMENSIO NED IN D IMENSION , COMMON r r @P G, OR T YPE STAT EMENT, O R PREVIO USLY DEF INED IN AN EXTER NAL STAT EMENT. THE PREV IOUS DIM r r @P rENSION ING OR D EFINING IS RETAI NED AND THE NEW IGNORED. 27 : THIS FIE LD MUST BE A VAR r r @P IABLE OR ARRAY NAME IF PROCESS ING A CO MMON, DA TA, EQUI VALENCE, BYTE, O R SIGNED BYTE ST r r @P ATEMEN T; AN AR RAY NAME IF PROC ESSING A DIMENSI ON STATE MENT; OR AN ARRA Y, VARI ABLE, OR r r @P FUNCT ION NAME IF PROC ESSING A TYPE ST ATEMENT. 28 : LOGICAL IF STATE MENT CON TAINS AN r r @P OTHER LOGICAL IF, DO, DATA, OR FORMAT STATEMEN T. 29 : NAME M UST BE T HE NAME OF AN AR r r @P IRAY. 30 : MU ST BE FI RST STAT EMENT OF PROGRAM UNIT. 31 : 32 : A MISSING COMMA IN r r @P t THIS STATEMEN T IS ASS UMED. 33 : 34 : IL LEGAL CH ARACTER IN THIS STATEMEN T WILL B r r @P E CHAN GED TO A BLANK. 35 : THIS LIN E, WHICH BEGINS A STATEM ENT, HAS OTHER T HAN ZERO r r @P OR BL ANK IN C OLUMN 6; BLANK I S ASSUME D. 36 : TOO MA NY LABEL ED COMMO N BLOCKS DECLARE r r @P D; CON TINUATIO N OF THE LAST DE CLARED B LOCK IS ASSUMED. 37 : THE NAME IN THIS COMMON r r @P STATEM ENT IS E ITHER A FORMAL A RGUMENT OR DEFIN ED IN A PREVIOUS COMMON STATEMEN T. THE r r @P K NAME IS IGNO RED. 3 8 : NAME SPECIFI ED AS TW O DIFFER ENT TYPE S. THIS SPECIFI CATION I r r @P vS IGNO RED. 3 9 : THIS BYTE TY PED AS O THER THA N AN INT EGER, OR IT IS A FORMAL ARGUMENT r r @P . THE BYTE SP ECIFICAT ION IS I GNORED. 40 : THIS BYT E PREVIO USLY SPE CIFIED A S A DIFF r r @P ERENT BYTE. TH E PREVIO US SPECI FICATION IS RETA INED AND THIS ON E IGNORE D. 41 : THE BI r r @P T SPEC IFIED IS NOT WIT HIN BOUN DS OF TH E 1700 W ORD SIZE . 42 : LEAST SIGNIFIC ANT BIT r r @P "IN THI S SPECIF ICATION IS GREAT ER THAN THE MOST SIGNIFI CANT BIT . 43 : NAME M UST BE A r r @P MN EXTE RNAL FUN CTION OR SUBROUT INE NAME . 44 : FIELD MUST BE A NON-ZE RO POSIT IVE INTE r r @P xGER CO NSTANT. 45 : ARRAY HA S MORE T HAN THRE E DIMENS IONS. 46 : DA TA STATE MENT CON r r @P TAINS TOO MANY CONSTAN TS FOR T HE SPACE PROVIDE D. 47 : STATEM ENT HAS MORE THA N FIVE C r r @P ONTINU ATION CA RDS; EXC ESS CARD S ARE IG NORED. 48 : AN INSUFFI CIENT NU MBER OF CONSTANT r r @P S IS P ROVIDED IN THIS DATA STA TEMENT. 49 : 50 : CONSTANT IS NOT SAME TYP E AS COR r r @P $RESPON DING DAT A CELL. 51 : STATEMEN T REDEFI NES DO L OOP PARA METER. 52 : ST ATEMENT r r @P OTYPE I S UNRECO GNIZABLE ; OR IT FOLLOWS AN EXECU TABLE ST ATEMENT. 53 : 54 : STATEMEN r r @P zT LABE L IS MEA NINGLESS ; LABEL IS IGNOR ED. 5 5 : STAT EMENT LA BEL PREV IOUSLY D EFINED; r r @P CURREN T LABEL IS IGNOR ED. 5 6 : A PR OGRAM NA ME WAS E XPECTED IN THIS FIELD. 57 : TO r r @P O MANY DIMENSI ONS CAUS ED TABLE OVERFLO W. 58 : SYMBOL TABLE O VERFLOWE D; COMPI LATION T r r @P ERMINA TES. 5 9 : STAT EMENT LA BEL MAY NOT BE Z ERO. 6 0 : NO A PPARENT EXIT FRO M THIS P r r @P &ROGRAM . 61 : UNCLOS ED DO-IM PLIED LI ST. 6 2 : UNFO RMATTED WRITE MU ST HAVE A LIST. r r @P Q 63 : NAME M UST BE A N INTEGE R VARIAB LE OR IN TEGER CO NSTANT. 64 : NAME NOT IMPLICI r r @P |TLY AN INTEGER VARIABL E. 65 : A RETU RN STATE MENT MAY APPEAR ONLY IN A SUBROU TINE OR r r @P FUNCTI ON DEFIN ITION. A STOP S TATEMENT IS ASSU MED. 6 6 : SUPE RFLUOUS INFORMAT ION IN T r r @P HIS ST ATEMENT IS IGNOR ED. 6 7 : THIS FIELD O N STOP C ARD MUST HAVE AN OCTAL N UMBER NO r r @P T GREA TER THAN 77777. STOP IS ASSUMED . 68 : FIELD MUST BE A POSITI VE INTEG ER. 6 r r @P
(9 : FI ELD MUST BE AN I NTEGER V ARIABLE. 70 : FIELD MU ST BE A STATEMEN T LABEL. 71 : r r @P
STHIS F ORM OF A SSEM STA TEMENT A RGUMENT CAN'T RE FERENCE ELEMENTS IN COMM ON, EXTE RNAL NAM r r @P
~ES OR SUBPROGR AM ARGUM ENTS. 72 : TH IS TYPE OF STATE MENT MAY NOT TER MINATE A DO LOOP r r @P
. 7 3 : THIS STATEME NT TERMI NATES A DO LOOP WHICH IS NOT THE LAST DO ENCOUNT ERED. r r @P
74 : THIS 'GO TO' JUM PS TO IT SELF. 75 : A PROGRAM CONSISTI NG OF ON LY AN EN D CARD I r r @P
S ILLE GAL. 7 6 : 7 7 : 7 8 : LABE L IN A D O STATEM ENT MUST REFEREN CE A STA TEMENT F r r @P *OLLOWI NG IT. 79 : MA XIMUM AL LOWABLE NUMBER O F NESTED DO'S EX CEEDED. THE DO LOOP MAY r r @P U BE IM PLIED IN A DO LI ST. 8 0 : OVER FLOW OF TABLE OF SUBROUT INE PARA METERS. CAUSED B r r @P Y LARG E NUMBER OF DECL ARED PAR AMETERS AND UNIQ UE REFER ENCES TO THEM. 81 : TH IS FORMA r r @P L ARGU MENT WAS PREVIOU SLY SPEC IFIED AS ANOTHER FORMAL ARGUMENT OR THE SUBPROGR AM NAME. r r @P 82 : TOO MA NY FORMA L ARGUME NTS CAUS ED A COM PILER TA BLE OVER FLOW. 83 : TH E ABOVE r r @P NAME I S NOT A VARIABLE OR ARRA Y ELEMEN T. 84 : TWO EL EMENTS O F THE SA ME ARRAY OR COMM r r @P ,ON BLO CK ARE A SSIGNED TO THE S AME STOR AGE UNIT . 85 : BLANK COMMON A ND FORMA L ARGUME r r @P WNTS MA Y NOT BE INITIAL IZED WIT H DATA S TATEMENT S. 86 : 87 : AN ARR AY ELEME NT IN A r r @P BYTE, SIGNED B YTE, DAT A, OR EQ UIVALENC E STATEM ENT EITH ER HAS W RONG NUM BER OF S UBSCRIPT r r @P S OR A SUBSCRI PT IS OU T OF RAN GE. 8 8 : TOO MANY EQU IVALENCE NAMES C AUSED A COMPILER r r @P TABLE OVERFLO W. 89 : AT LEA ST TWO E LEMENTS MUST APP EAR IN A N EQUIVA LENCE ST ATEMENT. r r @P
90 : 91 : DATA S TATEMENT FIELD I S NOT AN INTEGER , REAL, DOUBLE P RECISION OR LITE r r @P
.RAL CO NSTANT. 92 : MISSING TERMINAT ING ASTE RISK OR QUOTE IN A LITER AL STRIN G AS APP r r @P
YROPRIA TE. 9 3 : 9 4 : 9 5 : 9 6 : 9 7 : 9 8 : 9 9 : 10 0 : CATA STROPHIC r r @P
TABLE OVERFLO W; COMPI LATION I S ABANDO NED. COM PILER IS LIMITED TO 300 WORDS OF GENERAT r r @P
ED COD E PER SO URCE STA TEMENT. IF THE O FFENDING STATEME NT IS AR ITHMETIC OR A LO GICAL IF r r @P
, THE STATEMEN T SHOULD BE BROK EN INTO TWO OR M ORE STST ATEMENTS AND THE PROGRAM RECOMPI r r @P LED. 101 : TW O PROGRA M, FUNCT ION, SUB ROUTINE, OR BLOC K DATA S TATEMENT S IN IN ONE PROG r r @P 0RAM UN IT; THE SECOND I S IGNORE D. 102 : 103 : RELATI VE ADDRE SS ARGUM ENT IN A SSEM STA r r @P [TEMENT REQUIRE S PRECED ING CONT ROL INDI CATOR AR GUMENT ( *). (*). 104 : 105 : 106 : r r @P 107 : 108 : 109 : 110 : SYMBOL REFEREN CE TABLE OVERFLO W. SUBSE QUENT RE FERENCES r r @P WILL NOT BE L ISTED BY 'C' OPT ION PROC ESSOR. 111 : TH E INDEX USED IN THIS SUB SCRIPTED r r @P VARIA BLE IS I N CONFLI CT WITH THE DIME NSION DE CLARATIO N. 112 113 : MAXIMUM NUMBER O r r @P F MACR OS EXCEE DED. THI S MACRO DEFINITI ON IS IG NORED. 114 : TH IS MACRO WAS PRE VIOUSLY r r @P 2DEFINE D; THE N EW DEFIN ITION IS IGNORED . 115 : CALL T O AN UND EFINED M ACRO. 116 : NE r r @P ]STED M ACROS AR E ILLEGA L. 117 : 118 : 119 : 120 : 152 : ARITHM ETIC TAB LE OVERF r @PLOW.
PERRMSG
PWRITE ENDLOC P J P $IOPRBD DECK-ID 31F FORTRAN 3.3B SUMMARY-112 J r @P Hw hvhr H
H f gfh
h ZX n
h N HR hW r r @P +H HI hN L HAh0h@ => M h;= 8@h;" 513/ !Hn, ,
q +%s% ̘F r P @P h h Xh r @P w h T " @P TL T
SO " * PIOPR READ %WRITE .RESET EXIT * PMAXSECRPAGCHK e P J P ENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102 J
PENDLOC
P P *T P P *K,I8 P P *N,FTN3ER,,,B P P *Z P P *CTO, FORTRAN 3.3B INSTALL COMPLETE P P *K,I10,P11,L9 P P *Z P P *JOB,INSTAL,RPGII P P *CTO, RPGII V2.1 INSTALL P P *CTO, COPYRIGHT CONTROL DATA CORPORATION 1978 P P *K,I17 P P *LIBEDT P P *K,I17 P P *K,P8 P P *P,F,3,R9BEGN P J P R9CNTR DECK-ID P44 RPGII 2.1 SUMMARY-132 J r @P h4h3 H0 T " hZ hY
hX hWhV hj hg XyhT e 1X]
r r @P +h ` h2H0 h0H) h(/ h.h.h. X/#h T & e 1 " "K hHX3E r r @P V j XM "h `
r r @P
! " h
X
" X X A "T $ H
"
" r @P T J PRPGFIL R9CNTR 6R9JUMP dR9SGTB pR9SGIX fR9CKSG uR9MUNO eATTCHK R9BRAK J J PR9PORT
R9MODE R9UNIT R9USER
SYSMSG PGMIN SLICUP ATTACH JR9RPRT J P J P SR9ROOM DECK-ID R35 RPGII 2.1 SUMMARY-132 J r @P r @P + T @P 4 T r PR9ROOT Y9PFCB Y9FDC1 Y9CMST Y9MMST Y9INMK
Y9MHLD Y9DETL Y9TOTL Y9LSTR
Y9DOTT Y9TOTT Y9EOTT Y9ALSQ r r PY9CARA Y9MARA Y9UDAT Y9UDAY Y9UYER Y9UMTH Y9FDTB Y9TBIO Y9CMOV AY9INTA BY9ITLP CY9LAHD DY9MMOV EY9NSQR Fr r PY9PAGE GY9TBOT HY9INVP Y9DSEQ Y9FBSE POSSPB POSSKB POSSPA POSSKA R9OCOD !R9RECP "R9TANF #R9TFLG $Y9APFX %r r PY9ASPC &Y9COUN 'Y9DTPT *Y9FDPR )Y9FIPR +Y9FIPT ,Y9FLPT -Y9FPTL (Y9FPTR .Y9FSSA /Y9HIND 0Y9HNUM 1Y9IBUF 2Y9KALA 4r r PY9KAPF 5Y9PSFG 6Y9RECP 7Y9RPTR 8Y9TOP1 9Y9VFT1 :Y9XRPF ;Y9XRTE R9ERTN ?Y9LABL r R PY9FTNX JY9FSTL KR9USER LR9UNIT PR9MODE QR9PORT RR9EDT1 R9EDT2 R9EDT3 R9EDT4 R r PR9FSTL KR9FTNX JR9LABL R9TRCE IR9FBSE R9DSEQ R9INVP R9TBIO R9FDTB R9UMTH R9UYER R9UDAY R9UDAT R9MARA r r PR9CARA R9ALSQ R9EOTT R9TOTT R9DOTT R9LSTR
R9TOTL R9DETL R9MHLD R9INMK
R9MMST R9CMST R9FDC1 R9PFCB r P J P R9RPRT DECK-ID R37 RPGII 2.1 SUMMARY-132 J r @P T ...... r , @P + , @P ; @P @ C ^ @P ^ r PR9RPRT R9INTB R9CLIN R9HTIN R9VIND
R9USND R9MRIN R9FCTR "R9STTS :R9HLFJ >R9REPT ?R9RYST @R9ACC1 YACC1B r r PYACC1O bR9AC1S R9AC2S R9AC3S R9AC1N rR9AC2N R9AC3N R9PPUP BR9UPOP aR9INRZ ;R9INRP R9SWCH 4Y9INVP Y9UDAT Y9UYER /Y9UMTH &Y9UDAY !R9OPNF @B P J P R9OPNV DECK-ID R19 RPGII 2.1 SUMMARY-132 J 0 @P 0 PR9OPNV R9TINV r PREAD16
READ15 READ14
READ13 READ12 READ11 READ10 READ09 OPEN08 OPEN07 OPEN06 OPEN05 OPEN04 OPEN03 r POPEN02 OPEN01 P J P
R9SAV1 DECK-ID R41 RPGII 2.1 SUMMARY-132 J @P
PR9SAVP
2 PR9IOCL N9INTA B9INTA N9GETS B9GETS R9GETS 2 P J P R9DUM1 DECK-ID P53 RPGII 2.1 SUMMARY-132 J
PR9NXTX
P J P R9SWCH DECK-ID R58 RPGII 2.1 SUMMARY-132 J
PR9SWCH
P J P R9BINP DECK-ID P27 RPGII 2.1 SUMMARY-135 J r @P Ho hm hlHj
lh ghe d_ ~h^
h]
W HW!
hUHQ QhQJ T lH r r @P +EF HT K*
~ d h9H32
l0/2 9XO ;( h* h'! r r @P VH X, %* H X"l h r r @P h hl h h X h hH
hؠ
l nѐh r r @P B @ ' d
r r @P g i y ` r @P
PR9BINP
" PR9LBY (R9BASE )R9CLR1 2R9ACC1 K" P J P
R9CLRC DECK-ID P38 RPGII 2.1 SUMMARY-132 J @P
@ T PR9CLRC R9CLR1 PR9MIW R9ACC1 P J P /R9FILR DECK-ID P62 RPGII 2.1 SUMMARY-132 J r @P @ D 3
hH
!hH T "
'& #$% r @P + (
PR9FILR
PR9STH0 R9FRMK P J P 3R9FLDL DECK-ID P64 RPGII 2.1 SUMMARY-132 J r @P " h+*
h% h%$ h!-H h h1 h
h @ r @P +
PR9FLDL
PR9BASE Y9FBSE Y9FDTB P J P R9FNBG DECK-ID P67 RPGII 2.1 SUMMARY-132 J
PR9FNBG
P J P ]R9GETS DECK-ID P72 RPGII 2.1 SUMMARY-132 J r @P HV ! HR
O@ LT J T G 1
0B @dR a9: h6h5 D ( r r @P ++ `+)X
& ! `#!X h 0 `X hT hT
h r @P V " PR9GETS B9GETS WN9GETSR9CVAE ;" : PR9LBYT JR9BASE !R9SBYT NR9FILR R9IOCL
R9XLAT AR9TFLG *: P J P R9IDMX DECK-ID P76 RPGII 2.1 SUMMARY-132 J * @P h D h b2@ *
PR9IDMX
P J P R9INTA DECK-ID P80 RPGII 2.1 SUMMARY-132 J r @P h
T | G Z" " d " +HkL gMh\ r r @P +cJ h__H
h]T
V hVT 5 Q@ T K 0. DhF d T r p @P V
6 T S 4h2 ,@ AT C &0 T h
T o p @P PR9INTA B9INTA N9INTA j PY9ITLP R9CNTR R9STH0 |R9MVTA [R9GETS hR9SPTP 6 .T 7/d ;R+ >T B%d F G I T D M ? QT r r @P V T h XT 9 \
d ` cT ^ gd w z T V | r r @P h
d
d T E A "T ~ ʀ/ h ! d r r @P 1Ⱦ /+$ h T h T h ث ثح ȣ/ Ȧ ! Ȣ ! r , @P T . bȋ b
,
PR9MVTA
b PR9LBYT R9MVBT )R9LEL R9STH0 R9BINP OR9UPK1 DR9PCK1 R9LOD1 iR9MINS R9ACC1 R9TANF R9RECP b P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P kR9OPNF DECK-ID R18 RPGII 2.1 SUMMARY-132 J r @P l^
l][ "-LV ?S" "
LO
T
+F@ dRa >
X;% r r @P +
X7 T * /#
< b ', !! @ T T r < @P V T T 0
"2" " <
PR9OPNF
r PY9FIPT bY9PSFG aY9FDPR `Y9ITLP TY9INTA OR9CNTR YR9ITLP WR9STH0 ]R9FILR IR9TSTN R9IOCL FR9INTA RR9OPNV DR9BASE r
PY9FDTB
P J P LR9PACK DECK-ID R25 RPGII 2.1 SUMMARY-132 J r @P hE h h> h>h;
h: 7A4h3
5a
h31h/ .Ġ h,(h'( (dR h# T r Z @P + H h h hh
h T * l Z PR9PCK1 R9PCK2 PR9SBYT @R9AC2S R9AC1S
PEND J P +R9PTCH DECK-ID R30 RPGII 2.1 SUMMARY-132 J r @P T &T &T & T & T & T r PR9LOAD R9PACK R9UNPK B PR9UPK3 (R9UPK2 $R9UPK1 R9PCK2 R9PCK1
R9LOD1 R9AC2S R9AC1S B P J P 8R9SPTP DECK-ID R52 RPGII 2.1 SUMMARY-132 J r @P H h/, T H* (b $T H# h# l H 1 Ah b b 0 r ( @P + h bb (
PR9SPTP
" PR9LOCL R9FLDL Y9FBSE Y9FDTB " P J P LR9STH0 DECK-ID R54 RPGII 2.1 SUMMARY-132 J r @P hBlF H? 7 H55 8r G `- dh T , (% r Z @P +T
*! d d T . A" Z
PR9STH0
: PR9MODE AY9ERCD KERRO46 R9CNCL ;R9CLIN 9R9CNTR =YERRSW 3: P J P R9TSTN DECK-ID R66 RPGII 2.1 SUMMARY-132 J < @P h T h
h
h <
PR9TSTN
PR9IDMX R9INTB
P J P RR9UNPK DECK-ID R69 RPGII 2.1 SUMMARY-132 J r @P hL h hEh h> h< H9'`
T
h0h51/ A,h/H- -T ` l'(h' r h @P + Dh" h D lh h h
1 E L h PR9UPK1 R9UPK2 R9UPK3 * PR9LBYT %R9MIW R9AC3S R9AC2S R9AC1S * PEND J P R9OTMG DECK-ID R20 RPGII 2.1 SUMMARY-132 J H @P dh hT T
H 00 00H H
PR9OTMG
PERRO46
P J P "R9XRSD DECK-ID R73 RPGII 2.1 SUMMARY-132 J \ @P h
! ! h
h
\
PR9XRSD
PR9MNIN
R9MONE R9MZER P J P JOPEN01 DECK-ID S14 RPGII 2.1 SUMMARY-132 J r @P T ` #h T 3 #aT 7 4" &T r P @P + J T * A
! T 0 8 (aT P r @P J3# a )H
A D nB
b b
H: 3#b D fb b b D bb r r @P u2 @0b E Db B B 1 @ h TH r r @P X k Hb b
hh: b c H
h h nC
T E 7 h r r @P 8hT L X< h
hTH
h 8hTL r r @P @0b hh h h " ."H- Q r n @P !B 2 "Š 5@ 0b/
f"
n POPEN01 OPEN08 * PERRPRO =STRACE R9DRTN DMPTLK iROOT44 * P J P OPEN02 DECK-ID S15 RPGII 2.1 SUMMARY-132 J r @P T ` #
T 3#a T < 9 6T 6T r ^ @P + " K
B 1
v T + L 1
(a"D bbbb r r @P Vb
/
B1
C a T H
B1 I
G T k r r @P ;+b
bD b
a $ h
h . H L h y h h v
h h
r r @P hT bbDb RD b d b b 1 " bb bD r r @P b
b b bb bDb bD bT #a 4$ bDa
r R @P (a #a T h 8h T R
POPEN03
B PERRPRO {STRACE
R9DRTN DMPTLK ERRO46 ROOT44 ROOT43 NTAP48 B P J P ,OPEN04 DECK-ID S17 RPGII 2.1 SUMMARY-144 J r @P T ` XJA 12 4 1+ T + $ 1T = r r @P + T ( 2& T 1 X T 8(a T C #
r r @P VT < 3# aT K T W Dc c) c a Aa2
ea5ѳ r r @P , -Ѵ Ah8
! T h & 42
a( $ S r r @P
D R T , *!A
B0 a )h h oh T ( oH {o r r @P : %3 #a h b"( :* a$ 9) aK $5! a5 A hñF r r @PT > 1" ) h oh >T ( oH 8 o 47 53# a: *a r r @P -# #a a H K
A Dn E bbU d5%ad
Ud 7'ad
Ad 6&ad r r @P XD Xb b b D bb 1 E D b B B r r @P T _ ` -T ! 3 #aT h 8& 2 6T - X r r @P
1 T " T $ 7T # u X [T ) T r r @P ` ( 6T * T X a $ @ 4 $a T + B r ( @P T U T , ( F @P T
! HhD nH e cn X T F " POPEN04 OPEN05OPEN06OPEN07" 2 PFMCLR ERRPRO
STRACE)R9DRTN DMPTLK[FMOPEN 2 P J P READ09 DECK-ID S18 RPGII 2.1 SUMMARY-132 J r @P T ` # T
# T
. ;T 3#a r r @P + 5 T # T 1 . :*a / 0 B2a r r @P V2 Db 2 %1 b Xw 2bD bA 2
r r @P b g aBH,HW hP,
hT 3 p 7'a Ϡ2 h=1D r r @P h A 4 h hT *(d hT
b 2 Db 0 r J @P b 1 T Db T E J PREAD09 READ16 * PERRPRO STRACE R9DRTN ROOT44 ROOT43 * P J P READ10 DECK-ID S19 RPGII 2.1 SUMMARY-132 J r @P T ` # T
6T O . ;T 3 #a r r @P +? /b 1 . :*a 0 2 B2 a 2 Db r r @P V ~ 2 1 b Xn 2bD b "Xo hY6 r r @P ? /b
hT " k 7'a Ϡ2h @1D hA 4h hT - r r @P (dhT
b 2
D bb b : 4 D bT r r @P ( D bb b T 1 9b b T r @P h
PREAD10
2 PERRPRO STRACE R9DRTN ROOT45 ROOT44 ROOT43 2 P J P >READ11 DECK-ID S20 RPGII 2.1 SUMMARY-132 J r @P T ` # T
& $T . T B r r @P + G T ,. 0 , T T Bb r r @P V @ b /T ! @ A?b / +
b /h 1) r r @P " b h
h D h h T A2
D
h h r r @P A 4 h h
# 2hT
a
b d m b 1 r r @P b b #A 2 A 2 a !
T a 7' r r @P aa h
!4h h
# 2hT
a
bd r 2 @P -: *a2 a3 #aT 2
PREAD11
J PERRPRO STRACE;R9DRTN ERRO46 ROOT44 4ROOT43NTAP48 MNTAP49 KNTAP55 J P J P READ12 DECK-ID S21 RPGII 2.1 SUMMARY-132 J r @P T ` # T
$ <9 6 T 9 6T r r @P + ?/b 3# aT [ 1 Ϡ2 hh A h r r @P V""
:* b h T A b
"D b r r @P 1 b 1 1 :b k Db A1b 2 h r r @P hT f B2 a3 ) h h h o hT ( oo Q-y + r r @P @0 b"+ B2 a( :* aT 8 3# aF A!7 r @P b "Db 7 PREAD12 READ14 * PFMGETS ERRPRO (STRACE R9DRTN ROOT43 * P J P READ13 DECK-ID S22 RPGII 2.1 SUMMARY-137 J r @P T ` # T
3#a T % & 'T % . r r @P +, T # R b ! [ )h ( # r r @P VH oh
hT ( o oQ% ! %@ 0a 2% >.a 4 r r @P 2 :*a ?/ bDb bh h hT
2 Db r @P bT M PREAD13 READ15 * PFMREAD `ERRPRO /STRACE R9DRTN ROOT43 * P J P jROOT43 DECK-ID S36 RPGII 2.1 SUMMARY-132 J r @P Hdd dh]] d dhU T %r J E" 4hE @ + r r @P + ; 5 2
H/ H-+ (! !n!
r : @P VةF A h
& Ah e f : PROOT43 MOVE P J P ROOT44 DECK-ID S37 RPGII 2.1 SUMMARY-137 J f @P #H T a#H # 2 1 b> .b f r @P ' T Q;h2 h0> b# $ &1 - H , < ,b
01 r r @P RX >.b T N _T
2 " 8 . . , ?/ b$ r r @P }T [ /ؠ @0b ", T > .b
h
r Z @P bX T * PX bB 2b b b Z
PROOT44
PERRPRO STRACE P J P ROOT45 DECK-ID S38 RPGII 2.1 SUMMARY-137 J H @P #H T a#H 1 yA b H r @P h9 A b> .bT ,Q;h) >b # $ 1 1 A1a r 0 @P F03
16 :*a T N V 8 0 r @P W
2" 8 . , $ A1a T R A 1b ?/b 3 r f @P T p :*a A1 b 2Db b b b T ) X f
PROOT45
PERRPRO STRACE P J P 0ERRO46 DECK-ID R91 RPGII 2.1 SUMMARY-132 J r @P d "h% h$h# h"
c dh E" h
"h d T ) * h ` r `P + PERRO46 ERRPRO PSYSMSG Y9IREG &R9ERTN # P J P NTAP48 DECK-ID S39 RPGII 2.1 SUMMARY-141 J r @P XXXXXX XX, MOUN T XXXXXX ON LU XX, RI NG,READY ? HDR1 0001000 r r @P +100 YY DDD YYDD D 000000 R ING #" a# h& h& Dn
q r r @P Vh n
q n
q
n
n
nT ( o
"' $$MOUNTS $$ r r @P h"n
q
HX" 3 1 B2a h hT ( oH
" h r n @P h hT ( o h hX 2% <, b h hT ( o
H h T n r @P +hT
B0F 4Ȁ 00h "
"+ NO h T L T r r @P NO
b! 0T w *h =- b :*bT r r @P -
HT * ' T A Y1 *
HT (
"j h
H
+H r r @P XX* T 6 E 0
H T 0 51
.
! T _ r r @P hm hk
heb a]^
"
H
"HX r r @PT } B HDR1VOL1
"h5 h4$h3
h hD h
h SH BH r r @P ٠
0 hB F h
T C .T h )T T r r @P
) e'
"
"HT @ T 1T H T r r @P / Y TT
"HT B0FHB 0F 00HB0F 4Ȁ 00hT ? r r @PZ %@
HT Y 0 T T b - " hT k 6
* DT G (T 9 r : @P T 8(aT T 4 :
PNTAP48 F
j PERRPRO+STRACEFMDELR FMREAD FMCLOS FMOPEN oERRO46 NTAP55ROOT43uNTAP57/NTAP53hNTAP52%NTAP58j P J P NTAP49 DECK-ID S40 RPGII 2.1 SUMMARY-132 J r @P +#" a#. ) -T : 8 EOȿ V1B 2aE , XCB r r @P Vb @b6 -# / T : , T T g "X" Ab @?b A1 r P @P a , T q X
T T T b P
PNTAP49 -
PSTRACE NTAP55 NTAP56 o P J P NTAP52 DECK-ID S41 RPGII 2.1 SUMMARY-132 J r @P 0 Hoh Xlh HXgh
(h h !2
S
Q H0%A
h^ XJh r r @P 9
H XEhXB h d( h
( h
/ȱ n m"
$ȧ 6 2
2
hHȜ r J @P d- h+
h h "
h 2
ؒ J N @P h
hF 2
N
PNTAP52
P J P tNTAP53 DECK-ID S42 RPGII 2.1 SUMMARY-132 J r @P d 0 hH hh h H0%A 0FhHш Hl
r r @P 9hƐ$ "
u h
h Ȼ 8h 0FhHȵ h hȮ n Ȫh h r 0 @P dȣ nȣ ȥh
hثȘ蘀 0
PNTAP53
P J P NTAP54 DECK-ID S43 RPGII 2.1 SUMMARY-132 J r @P Dh h
h} h|y
B0FHf B0Fb 00H_B 0FH[B0F W 00 HTB0F r r @P +2 00 HL " hT }
F1LB V1h!G b
*D T _ ( T _ h T r r @P V 4 _ ` N EO h *EOV1 r @P PNTAP54 NTAP56 PROOT43 VNTAP55 ONTAP58 K P J P NNTAP55 DECK-ID S44 RPGII 2.1 SUMMARY-137 J @P 6 r @P H L \ H h" a! HA h h
(h &h hh r T @P / a T` Hh A
H h (h T ȼ T
PNTAP55
PROOT43 G
P J P NTAP57 DECK-ID S45 RPGII 2.1 SUMMARY-137 J @ @P a h l lTH
h l @
PNTAP57
P J P NTAP58 DECK-ID S46 RPGII 2.1 SUMMARY-132 J r @P h hH
| HX
hX l
q"
d
*#C :r r r @P />
"
r <
H
E
A
a 1 " @Z {[lP}M] \Nk`Ka r r @P Zz^L~no | _m [ A B C D E F G H I . < ( + &] J K L M N O P r l @P Q R! $ * ) ; ^ -\/ S T U V W X Y Z , % _ > ? 0 1 2 3 4 5 6 7 8 9: # @ ' = " l
PNTAP58
P J P LFMMV63 DECK-ID S51 RPGII 2.1 SUMMARY-132 J r @P X XX XX XX XX XH5 h1A " h- h T l) ( l&% "h! r T @P +l l l T
@P K
J PFMCLR FMCLOS FMDELR FMGETS FMOPEN
FMPUTS FMREAD FMUPDR FMWRIT J R PFMCALL WRITER HUPDREC GREADR FPUTS EOPENFL DGETS CDELREC BCLOSFL ACLEAR @R P J P R9ENDL DECK-ID P58 RPGII 2.1 SUMMARY-132 J @P
PR9ENDL
PR9BEGN
P P *T P P *K,I8 P P *J,RMUOPN,$$ P P *K,I17 P P *K,P8 P P *P,F,3,R9BEGN P J P R9CNTR DECK-ID P44 RPGII 2.1 SUMMARY-132 J r @P h4h3 H0 T " hZ hY
hX hWhV hj hg XyhT e 1X]
r r @P +h ` h2H0 h0H) h(/ h.h.h. X/#h T & e 1 " "K hHX3E r r @P V j XM "h `
r r @P
! " h
X
" X X A "T $ H
"
" r @P T J PRPGFIL R9CNTR 6R9JUMP dR9SGTB pR9SGIX fR9CKSG uR9MUNO eATTCHK R9BRAK J J PR9PORT
R9MODE R9UNIT R9USER
SYSMSG PGMIN SLICUP ATTACH JR9RPRT J P J P SR9ROOM DECK-ID R35 RPGII 2.1 SUMMARY-132 J r @P r @P + T @P 4 T r PR9ROOT Y9PFCB Y9FDC1 Y9CMST Y9MMST Y9INMK
Y9MHLD Y9DETL Y9TOTL Y9LSTR
Y9DOTT Y9TOTT Y9EOTT Y9ALSQ r r PY9CARA Y9MARA Y9UDAT Y9UDAY Y9UYER Y9UMTH Y9FDTB Y9TBIO Y9CMOV AY9INTA BY9ITLP CY9LAHD DY9MMOV EY9NSQR Fr r PY9PAGE GY9TBOT HY9INVP Y9DSEQ Y9FBSE POSSPB POSSKB POSSPA POSSKA R9OCOD !R9RECP "R9TANF #R9TFLG $Y9APFX %r r PY9ASPC &Y9COUN 'Y9DTPT *Y9FDPR )Y9FIPR +Y9FIPT ,Y9FLPT -Y9FPTL (Y9FPTR .Y9FSSA /Y9HIND 0Y9HNUM 1Y9IBUF 2Y9KALA 4r r PY9KAPF 5Y9PSFG 6Y9RECP 7Y9RPTR 8Y9TOP1 9Y9VFT1 :Y9XRPF ;Y9XRTE R9ERTN ?Y9LABL r R PY9FTNX JY9FSTL KR9USER LR9UNIT PR9MODE QR9PORT RR9EDT1 R9EDT2 R9EDT3 R9EDT4 R r PR9FSTL KR9FTNX JR9LABL R9TRCE IR9FBSE R9DSEQ R9INVP R9TBIO R9FDTB R9UMTH R9UYER R9UDAY R9UDAT R9MARA r r PR9CARA R9ALSQ R9EOTT R9TOTT R9DOTT R9LSTR
R9TOTL R9DETL R9MHLD R9INMK
R9MMST R9CMST R9FDC1 R9PFCB r P J P R9RPRT DECK-ID R37 RPGII 2.1 SUMMARY-132 J r @P T ...... r , @P + , @P ; @P @ C ^ @P ^ r PR9RPRT R9INTB R9CLIN R9HTIN R9VIND
R9USND R9MRIN R9FCTR "R9STTS :R9HLFJ >R9REPT ?R9RYST @R9ACC1 YACC1B r r PYACC1O bR9AC1S R9AC2S R9AC3S R9AC1N rR9AC2N R9AC3N R9PPUP BR9UPOP aR9INRZ ;R9INRP R9POSO gN9POSS lB9POSS aR9POSS fR9OV50 eR9NXRC R9LAHD R9IOCL 9N9ICTL PB9ICTL KN9GETS +B9GETS R9GETS %r r PFOV40 dN9FTOV kB9FTOV `R9FTOV cN9FMAL DB9FMAL /R9FMAL 6N9FLOW jB9FLOW _R9FLOW bR9EXIT VR9DSY1 #N9DSPY *B9DSPY r r PN9DIVD [B9DIVD SR9DBG5 "R9DBG4 !R9DBG3 R9DBG2 R9DBG1 N9DEBG )B9DEBG R9CMOV LR9CVEA 5N9BDPR CB9BDPR .R9BDPR 4r PN9ADSB ZB9ADSB R P J P R9ADSB DECK-ID P14 RPGII 2.1 SUMMARY-132 J r @P h] ['hY
hX hVTRhT SN M I HJhJ HGhH hGhFD BT & r r @P +
d ( 5 h32 1h2h1 h1., T %' %
R9SPAC cR9SKIP \R9OCOD r " PR9PLUS rR9ZERO tR9BLNK sR9WOTV S" P J P R9BINP DECK-ID P27 RPGII 2.1 SUMMARY-135 J r @P Ho hm hlHj
lh ghe d_ ~h^
h]
W HW!
hUHQ QhQJ T lH r r @P +EF HT K*
~ d h9H32
l0/2 9XO ;( h* h'! r r @P VH X, %* H X"l h r r @P h hl h h X h hH
hؠ
l nѐh r r @P B @ ' d
r r @P g i y ` r @P
PR9BINP
" PR9LBY (R9BASE )R9CLR1 2R9ACC1 K" P J P R9BINT DECK-ID P28 RPGII 2.1 SUMMARY-132 J r @P HDh hCehCHA
l?> =8 h8[6h7 Wh3Th4 0 Fl.- . %)h#XJ &%F C.@ r r @P +h =h
l X5
h
1
h ! hH r r @P VM
HT h Ȉ A h hH
h
bтb
H r @P
PR9BINT
PR9SBYT [R9ACC1 k P J P )R9BITF DECK-ID P29 RPGII 2.1 SUMMARY-132 J n @P T ' h!H h h hh T hT h
h T n
PR9BITF
2 PR9SBY R9LBY R9BASE R9FLOW R9NXTX "R9AC1S 2 PEND J P *R9BITN DECK-ID P30 RPGII 2.1 SUMMARY-132 J p @P T & h"H h h hh T hT hd Rh T p
PR9BITN
: PR9SBY R9LBY R9BASE !R9FLOW R9NXTX #R9AC2S R9AC1S : PEND J P R9BGCL DECK-ID P25 RPGII 2.1 SUMMARY-132 J
PR9CLBG
P J P R9CALC DECK-ID P31 RPGII 2.1 SUMMARY-132 J N @P T T
T
d N
PR9CALC
: PR9NXTX Y9LSTR Y9TOTL Y9DETL R9PRCL R9FLOW YERRSW : P J P eR9CHAN DECK-ID P32 RPGII 2.1 SUMMARY-132 J r @P T , HYhX UT R HP ! "
T C- 7< ' h8h<&h6 r r @P +2/ h31/@ /T (% #$T h ! h T ` r , @P VT T ,
PR9CHAN
b PR9SBYT KR9BASE %R9FLOW R9CVEA WR9MVBT 4R9PCK1 =R9UPK1 R9BINT R9CNTR YR9NXTX R9ZERO HR9ACC1 @b P J P 9R9CHIN DECK-ID P34 RPGII 2.1 SUMMARY-132 J r @P Wd T ` l% T " ( T T h T
r * @P + T T )T *
PR9CHIN
b PY9FPTL 7R9INMV -R9SETN 2R9STH0 !R9ASQR R9CRIN R9GETS R9CNTR 4R9FRMK R9FCTR
R9INRP 0R9INTV b P J P
R9CLRC DECK-ID P38 RPGII 2.1 SUMMARY-132 J @P
@ T PR9CLRC R9CLR1 PR9MIW R9ACC1 P J P R9CLRE DECK-ID P39 RPGII 2.1 SUMMARY-132 J F @P H Ah d h H l F
PR9CLRE
PR9BLBL
P J P R9CMBD DECK-ID P41 RPGII 2.1 SUMMARY-132 J < @P hH !
<
PR9CMBD
PR9MONE
R9MZER R9ZERO P J P R9CMOV DECK-ID P42 RPGII 2.1 SUMMARY-132 J r @P Hb HaQ% \T hT
HP hP hO HMKIlF EHG hDD = r r @P + 8 h;5D h81H
.+h3 ',h- "18 $# #T T h r r @P Vh < hh! h
T h :h r r @P T h T X(1 T T sX 1 q hT ǐh 1
d j
r P @P ظ y O غ ػȷh P
PR9CMOV
b PR9LBYT R9SBYT R9BASE [R9FLOW R9SETN R9LOD1 QR9UPK1 LR9BYPS R9AC1N R9ACC1 UY9CMST BY9CARA b P J P R9COMP DECK-ID P45 RPGII 2.1 SUMMARY-132 J r @P T hNHLK UGF hGhF ChD A hB>?T 9T h95 6T ( 0T h0 r r @P +
* )h'' .h$"h! !h h v h @h
T
T H c r r @P V T
T a b h hC h !
hT l hؘ!+ r r @P T |
hT { j h˘! T 'h 'h h̺ h صصش r " @P 1
hȥ T "
PR9COMP
r PR9LEL MR9LBY %R9BASE &R9GTL !R9FLOW R9NRMX YSIGNI R9UNPK gR9RSTS R9SHFT R9NXTX R9AC2S R9AC1S Y9ALSQ 2r
PR9BLNK C
P J P R9CRIN DECK-ID P46 RPGII 2.1 SUMMARY-132 J " @P T f H "
PR9CRIN
PR9IDMX R9INTB P J P R9DEBG DECK-ID P47 RPGII 2.1 SUMMARY-132 J r @P d
DEBUG- INDICATO RS ON- N ONE FIEL D ARRA Y TABL E VALUE T /H (
d h #X r r @P +X X " @ \c
H
( h T
1S
h r r @P V O h !
h h X > Ƞ h %h h h H r r @P
l ͜ h ! h
l
h X ` r r @P h \
h
h H T
h J @ h }T r r @P wX } z1o j@ \ X _ BXCZ hfK U @ h^\ HP@ r r @P \HJ FhJhS hE hBK T @0H@ 31h1 -- ,T NXi X8&/ r P @P -X h& h hh h @hT P r @P K h hX 1 @T h r r @P vh Ԉh @ T rʈ h h T X%X ȼ h Xȸh th̷ T r H @P رت ȯ ̪1 T @ T H B PR9DEBG R9DBG13R9DBG2bR9DBG3R9DBG4R9DBG5B9DEBGJN9DEBGB r PR9LEL R9BASE8R9MVBXR9SBYXR9FLOW R9PUTSR9CLREHR9MTRN R9UPK1'R9LOCLR9INDM R9TSTN R9RYST &R9NXTX2r * PR9DBGVR9ZEROR9MINSR9ACC1R9STTS l* P J P 4R9DETP DECK-ID P48 RPGII 2.1 SUMMARY-132 J r @P T
d T d l
l l 1 @ T T r @P + & 2
T PR9DETP YBGCYC
Z PY9HNUM 3Y9HIND 2R9STH0 +R9FLOW R9TP40 R9CNTR /R9VIND
R9OCOD R9VSWT Y9DOTT R9HTIN Z P J P R9DIVD DECK-ID P49 RPGII 2.1 SUMMARY-132 J r @P T heHca T ]
T W hW hVhU Q P
@ T r r @P +
d $ )
d /
h210 h*&h%' T 3
h#"! hh r r @P VT G 1
h
h1 S h
h
N >f s w | r r @P !
h ! 8T X ! h
h u f ǐh r r @P
T W Hȸh T ȯ hȰ T T Hh
HT
@ T ȗ T r
@P
" PR9DIVD R9MVRM B9DIVD gN9DIVD" r PR9MVW R9MIW "R9FLOW R9NRMX R9STH0 R9RSLT R9SHFT R9UNPK R9NXTX R9AC1N R9AC1S R9AC2N R9AC2S R9AC3N r
PR9AC3S
PEND J P ;R9DMND DECK-ID P50 RPGII 2.1 SUMMARY-132 J r @P T l21T T %T
d T hT r 0 @P +
T T T 0
PR9DMND
Z PR9INMV /R9ASQR R9STH0 6R9SETN +R9NXRC
R9CRIN R9BLTR #R9CNTR 1R9INRZ R9FCTR Y9FPTR 9Z P J P -R9DSPY DECK-ID P51 RPGII 2.1 SUMMARY-132 J r @P T . H
d " h H " h @ h T ` ( T
r r @P + b @ %T h X h ~
H }X {@{ T v@ $T p ho r r @P Viq oh1 khdc f@bT f[ `T[ Vh\ YT g NT
hQJhJ IT t r r @P hK ! D! @ @dR 6h: 7 H50
l-$$1 h '$h" r r @P h T h l
T @T r r @P K hh ) b T h h h T s 1! r r @P T hȶ hȹ 1ȵh Ȼ b ȷ@T e @ % T 1 DS PLY r " PR9DSPY B9DSPY N9DSPYR9DSY1 " r PR9LBY R9SBY R9MVB R9BASE R9FLOW R9UPK1 R9PCK1 R9CLR1 xWRIT17,READ09+R9GETS QR9PUTS&R9MTRN (R9CLRE r : PR9RYST R9NXTX R9MINSR9NINE R9ZERO R9BLNK pR9ACC1 : P J P R9ECOD DECK-ID P54 RPGII 2.1 SUMMARY-132 J r @P X HjHi x he'Hd HbHbHl [& g# hW a & hQ hML XYKXWE r r @P +hI hG HE $ ?h?H=6 h= D h9 ,5h*, h*) h.-X3 *h( 3 r r @P V
Q h X% 5
h %
h h JX r r @P H T h h X " H1 Xh h ʠ$ X( r r @P T T hɔ 1 k 6XȹT 1ȵ h T 2 Ȩ T إ r
@P
PR9ECOD R9ECDE r PR9LBYT R9GTL R9SBYT R9OTM1 R9CHAR $R9CHRC !R9ACC1 R9EDT3 Y9INVP UR9EDT4 =< 9h7 5&"h4 ,1 (h&% X,X0! F#! T D
r r @P VX
h ` T h! H T h r * @P HX Dh
t * PR9EDCN R9EDNE r PR9LBYT ~R9SBYT rR9GTL OR9CMBD R9OTM1 R9ACC1 nR9DOLR bR9STAR aR9BLNK cR9ZERO _R9MINS ^R9CHAR ]R9EDT2 R9EDT1 r P J P R9EDIT DECK-ID P56 RPGII 2.1 SUMMARY-132 J , @P T T T T T , " PY9ECDE Y9EDNE Y9YCDE Y9ZCDE " * PR9CNTR R9ZCDE
R9YCDE R9EDNE R9ECDE * P J P R9EXCP DECK-ID P60 RPGII 2.1 SUMMARY-132 J " @P
d T T "
PR9EXCP
" PR9CNTR R9TP40 R9OCOD Y9EOTT " P J P %R9EXIT DECK-ID P61 RPGII 2.1 SUMMARY-132 J d @P T )
T )"
""h
H
" \ d
PR9EXIT
* PR9NXTX Y9LABL #R9PONT !R9FLOW
Y9FTNX * P J P /R9FILR DECK-ID P62 RPGII 2.1 SUMMARY-132 J r @P @ D 3
hH
!hH T "
'& #$% r @P + (
PR9FILR
PR9STH0 R9FRMK P J P 3R9FLDL DECK-ID P64 RPGII 2.1 SUMMARY-132 J r @P " h+*
h% h%$ h!-H h h1 h
h @ r @P +
PR9FLDL
PR9BASE Y9FBSE Y9FDTB P J P R9FLOW DECK-ID P65 RPGII 2.1 SUMMARY-132 J J @P hH h h
T
\
T
J PR9FLOW B9FLOW N9FLOW " PY9TRCE R9REST R9SAVT R9SAVE " P J P AR9FMAL DECK-ID P66 RPGII 2.1 SUMMARY-132 J r @P h< h8 h7H33 h) ` ( T $ @ "T @ T T r > @P + Fh\ T ( h
b > PR9FMAL B9FMAL ;N9FMAL J PR9SAVP 0R9SAVE 'R9REST /Y9IBUF 2Y9FSTL *R9MVBX R9BASE R9PUTS %R9WOTV #J P J P R9FNBG DECK-ID P67 RPGII 2.1 SUMMARY-132 J
PR9FNBG
P J P R9FORC DECK-ID P68 RPGII 2.1 SUMMARY-132 J 4 @P T -H " 0H D 4
PR9FORC
PR9FLOW R9FFCB
R9NXTX P J P :R9FTOV DECK-ID P71 RPGII 2.1 SUMMARY-135 J r @P h5 h4H14b " +T
d X X b 2d "h#` C r , @P +T H A , " PR9FTOV B9FTOV 5N9FTOVFOV40 /" 2 PY9DOTT Y9TOTT R9TSTN R9POSO -R9OCOD R9FTSW !2 P J P ]R9GETS DECK-ID P72 RPGII 2.1 SUMMARY-132 J r @P HV ! HR
O@ LT J T G 1
0B @dR a9: h6h5 D ( r r @P ++ `+)X
& ! `#!X h 0 `X hT hT
h r @P V " PR9GETS B9GETS WN9GETSR9CVAE ;" : PR9LBYT JR9BASE !R9SBYT NR9FILR R9IOCL
R9XLAT AR9TFLG *: P J P GR9GOTO DECK-ID P73 RPGII 2.1 SUMMARY-132 J r @P T + f" b
d T T (
h%$ d T * r N @P + $d + .2 T 0 9" d $ N PR9GOTO R9EXSR R9NDSR ' R PR9FLOW (R9STH0 5R9NXTX ER9STRT &R9UPOP R9PPUP @Y9LABL R9INRZ d : 9 h=74 9h2 +J h2)0 h/ h+
l-
@ T r r @P `Q" :"#3 AR h
h h r r @P T ` h T h1 XDT Ah h hA T T r r @P -A h
q
T (ȼ T H T شhX̲
lȫ
lXT Cآh r @P X ȝ T Ț h
PR9INMV
r PR9SBYT R9LBYTUR9MIW R9BASE R9CRIN RR9LOD1]R9BINP>R9CVEA:R9UPK1,R9PCK1R9LCAE R9FLDL R9SETN MR9TSTN 6r * PR9MINSMR9BLNKR9NINE R9AC1N R9ACC1 * P J P R9IOCL DECK-ID P83 RPGII 2.1 SUMMARY-132 J @ @P H
hD a h T \ T
@ PR9IOCL R9DRTN PR9SAVP R9REST R9SAVE P J P !R9LAHD DECK-ID P87 RPGII 2.1 SUMMARY-132 J Z @P L l ( T @
T ,
@d Ra Z
PR9LAHD
" PY9KALA Y9KAPF R9INMV R9NXRC " P J P `R9LCAE DECK-ID P89 RPGII 2.1 SUMMARY-132 J r @P HR hRHPT HOhOHM #JA GhIHE FhF>> T h< H99h7 60,3 r r @P +/h./ h-,h( + ):"" T B T N T
hT
ld @ r @P V
PR9LCAE
J PR9LEL @R9GTL ;R9CLR1 IR9UPK1 YACC1B MR9ACC1 _R9STH0 CR9LOCL R9FLDL J P J P 3R9LEL DECK-ID P90 RPGII 2.1 SUMMARY-132 J r @P h,H, h&H% H$h$!H "h" H *
h !d #h r @P + PR9LEL R9GTL P J P YR9LKUP DECK-ID P91 RPGII 2.1 SUMMARY-135 J r @P T #
H d "h
" "\Fh
h q
Lo"lo h h
hi Dh la r r @P +h h m\&
h[g \!
hV \
hP
hPI hL .
hG
ChBO MLMlK9 1@ r r @P V
l401 l.T
H "` \p
H "3 l"h hT a
r r @P H t" ` y \T
T hh ch]b bbh`Y YhWQ
YY r r @P "\ JhP EhMh Lh\ hE\d Ah@ <! " Ƚ r r @P - A :\
h̶ <T ȡ T ̩ - r r @P
R h hH ̅\
h \
h1 6 r r @P -T f"" ̾`\ ȿf" "̽`ȹ \T ȷ3
Ad M d r
@P X
PR9LKUP
r PR9MVBT R9CLR1GR9BINT R9NXTX1R9LOCL ~R9PCK1/R9LEL R9GTL R9SETN R9INRZ R9INRM R9CRIN WR9INRP YACC1BTr " PR9LBYT VR9BASE R9RYST R9FLOW " P J P /R9LOAD DECK-ID P92 RPGII 2.1 SUMMARY-132 J r @P h( 4h%T "T T H !H l
h hl h
h H
T h l r @P +
PR9LOD1
" PR9LBYT !R9CLR1 R9XRSD R9AC1S ." P J P R9LOCL DECK-ID P93 RPGII 2.1 SUMMARY-132 J T @P " hA h H @h T
PR9LOCL
PR9BASE Y9FDTB Y9FBSE P J P 6R9LRCK DECK-ID P94 RPGII 2.1 SUMMARY-132 J r @P
h.
h,H, + " 'H'Q
h$ h h dR h0 $
$ r " @P + "
PR9LRCK
PR9LRSW .Y9PFCB P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P R9MMOV DECK-ID P98 RPGII 2.1 SUMMARY-132 J r @P `H{ Ch R H m hig hb h!$ ! r r @P + TT " +"L T JH Ɛh B@ `ȽT ;Ϡ ht 4T 0T
r r @P Vd Ȩ (T Ȥ A#
h! O
XR G% T T hH ! T rh
hH r r @P
h h
X)T z hH
X"4
h
h d !d dR r r @P h
d d " I h1 h h h ! T 0hT زز r > @P ט" Ȭh t ȡ @T E >
PR9MMOV
r PR9MVBT R9SBYT 7R9LBYT R9BASE R9NXFL R9STH0 nR9PCK1 [R9LOD1 PR9UPK1 TY9MHLD Y9MARA R9MRSW R9MRPR R9CFIL r " PY9DSEQ R9ACC1 WY9ALSQ 3Y9MMST " P J P "R9MOVA DECK-ID P99 RPGII 2.1 SUMMARY-132 J \ @P T
d h h 2
h
` T \
PR9MOVA
" PR9MVBT R9FLOW R9NXTX R9RYST " PEND J P R9MOVE DECK-ID R01 RPGII 2.1 SUMMARY-135 J r @P T `
"l# l"l! h h %
LA A "Ah " B \ . \ V \ a \ r r @P + !5 "_ T V WT T d | NL4M hLHhHF FhDEhD BAB@ ?T U r r @P V99" 6h67 4T
0-11 )*T 8% h' '! " " ~ h r r @P 1# h Ȣ / 3 " `2 T T r r @P . %/ -`) "&l& T T " `T T ȿT r @P "ص @
PR9MOVE
r PR9MVW R9MVBT TR9XRSD >R9LBYT T # $7h; 7 h53 2dR h-+T 7 ' #h# dRh r T @P V T I J LT 6 Y h dRh T X _ [ T
PR9MOVZ
2 PR9SBY kR9LBY ^R9BASE lR9FLOW R9NXTX nR9AC1S 2 PEND J P +R9MTRN DECK-ID R03 RPGII 2.1 SUMMARY-132 J r @P H% h" h H T h h
T r
PR9MTRN
" PR9SBY R9LBY R9BASE R9XLAT " P J P 3R9MTWK DECK-ID R04 RPGII 2.1 SUMMARY-141 J r @P T d
d
#T \ h L"h T
,\ lT r @P +
PR9MTWK
Z PR9NXFL Y9PFCB R9CFIL 0R9FLOW R9CNTR +R9LAHD /R9INMV
R9NFCB .R9MRSW R9MRIN Y9LAHD Z P J P uR9MULT DECK-ID R05 RPGII 2.1 SUMMARY-132 J r @P T Hhhh
! @ T _^h_ h^h] [YT S hQ POhP hOhOL JT
hIH r r @P +hF ! BAhA &
h<; 6& 3 4h5 f A
. h, H) 1T C
d O : r T @P V =
d R h
h
d
T T
PR9MULT
r PR9MIW R9FLOW R9SETN R9RSLT hR9NRMX NR9SHFT R9UNPK %R9NXTX jR9HLFJ R9AC3S VYLSPAR dR9AC2S TR9AC1N R9AC1S [r
PYACC1O
PEND J P ;R9MVBX DECK-ID R07 RPGII 2.1 SUMMARY-138 J r @P X X X X & " !
) r 0 @P +A"T : " 0 Z PR9SBYX R9LBYX R9MVBX R9MIBX &R9MVBT R9MVB R9LBY R9SBY R9MIB
R9LBYT R9SBYT Z PR9MODE *SYSMSG .R9BASE 9 P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P iR9NRMX DECK-ID R12 RPGII 2.1 SUMMARY-132 J r @P h
'h_
h^ h\
h[Y 2 V hTR
lPN ! KI FlGF !C
hA? l= r r @P +< !8 d h64 l1/ ++ h)&! %%l#
h" ! l
l
l r 6 @P VȺh
l h 1 ޭ 6
PR9NRMX
PEND J P GR9NSQR DECK-ID R13 RPGII 2.1 SUMMARY-132 J r @P hC HA" h>=@: T h9 41
0) T 9& b$h#
r N @P +
@@ dRa h 9 b b
N
PR9NSQR
PR9RDEN R9STH0 P J P )R9NTOA DECK-ID R14 RPGII 2.1 SUMMARY-132 J n @P h#4 h$$H !T h h T h h
T h T n
PR9NTOA
" PR9LEL R9SBYT R9AC1S (R9CMBD " PEND J P "R9NXFL DECK-ID R15 RPGII 2.1 SUMMARY-132 J \ @P
h "HA d h 0
h \
PR9NXFL
PY9PFCB R9CFIL P J P .R9NXRC DECK-ID R16 RPGII 2.1 SUMMARY-132 J r @P
l+ 0L' ! @ T
l
T @ T 0
l r @P +
PR9NXRC
2 PY9XRTE -Y9XRPF ,R9GETS "R9RCAD R9TRAL R9INTV 2 P J P R9OTMV DECK-ID R21 RPGII 2.1 SUMMARY-132 J r @P Lz lyHr
h
hol Khl )i" . M ` h } f
_ 1n
X U Xb P
r r @P +h
GT C+ @>+ :9 H
3
1 - 1b )
'd $ r r @P Vd QA h T H H
h
B ` Th WX
h r r @P `T d hW hX-hW
hR qhI I
lRA h @T b r r @P LHd 0H7 `3 T H-
+h) *T
h H# h
1 & T r r @P T ȟ ?
}@h Ȗ hp ho "bHf XmA ha T r r @P T Wh
XP$ hNT GEEhC XJB@@ @T < h8 8h8!4 h6 2 r r @P -T / . !h*X # h " T h hX Xw h
A h
r r @P X T mT h X@ T `T h# r r @P h X8
hX h
hX h# hX&
h T HȲ`
q
r b @P ȳ
hȭ
hȧ HȗT . 5O~ b PR9OTMV R9OTM1 R9PGSW r PR9SBYTR9LEL gR9MVBTuR9BASE R9ZCODR9YCODR9EDCNR9BINTR9STH0jR9TSTN 1R9CMBDAR9CVAE{R9PCK1R9CLR1 r r PR9ECOD R9PAGE R9UPK1 R9LOCL R9LCAE R9FLDL R9BLNK+R9PLUSR9ACC1VR9MINSY9PAGE R9EDT4 R9EDT3 R9EDT2 Yr
PR9EDT1 W
P J P R9BGOT DECK-ID P26 RPGII 2.1 SUMMARY-132 J
PR9OTBG
P J P
R9OTPT DECK-ID R22 RPGII 2.1 SUMMARY-132 J @P
PR9OTPT
J PY9EDNE Y9YCDE Y9ZCDE Y9ECDE YBGCYC R9DETP R9EXCP R9OVOP R9TTOP J P J P :R9OVOP DECK-ID R23 RPGII 2.1 SUMMARY-132 J r @P
H6- " "
!
b "
T T r , @P +T T -
d $T ,
PR9OVOP
b PR9FLOW (R9OV50 1R9OCOD R9CNTR 6Y9DOTT /Y9TOTT +R9FTSW 4Y9FDTB R9SKIP R9BASE
R9VIND "R9CLIN b P J P 7R9OV50 DECK-ID R24 RPGII 2.1 SUMMARY-132 J r @P L43 / L.-h* )B " h" ! L " b 2
r & @P +d T H L &
PR9OV50
: PR9POSS .R9FTSW &R9OCOD ,Y9FDTB R9BASE Y9VFT1 6Y9FSSA 5: P J P LR9PACK DECK-ID R25 RPGII 2.1 SUMMARY-132 J r @P hE h h> h>h;
h: 7A4h3
5a
h31h/ .Ġ h,(h'( (dR h# T r Z @P + H h h hh
h T * l Z PR9PCK1 R9PCK2 PR9SBYT @R9AC2S R9AC1S
PEND J P !R9PAGE DECK-ID R26 RPGII 2.1 SUMMARY-132 J Z @P h +H HT h
l T Z
PR9PAGE
* PR9PCK1 R9CLR1 R9ACC1 R9PGSW R9EDT4 * P J P R9POSS DECK-ID R27 RPGII 2.1 SUMMARY-136 J r @P H w Ht
lnlnlo
nlklhl jic e $
lX
lUX! UC lOQM r r @P +lJ
lK KlH
HCBC l>>M l9 6D
T .$ +1( ' r r @P V$C h"T h H% S 1" T @ T r r @P k hh hh hh hh
h T h hh ll r r @P l ll
h H̿ H1 T k H# .H@ dR a ,T r f @P H
T
@T ؓȜ @ hT @T Ȑ f " PR9POSS R9POSO B9POSS yN9POSS" r PR9BASE POSSKA xPOSSPA wPOSSKB vPOSSPB uR9FLOW R9PUTS R9FLDL [R9OTMV R9CLRE R9BDPR qR9TSTN GR9FTOV R9UOTV r PR9WOTV R9AOTV R9OCOD t P J P )R9PRCL DECK-ID R28 RPGII 2.1 SUMMARY-132 J r @P d
@ T
@ T " d T "d " ! r r @P + % T E -T A 2 d 4 (T T B
h \ ; "1k M"h P r r @P V
h P KI h K 3 / @Hh A =T h 6 9h 7 4 !
.! " ( r r @P + ' " R "1 " Ih 3 y
n r r @P " x "" "h 1h &h
h h Ah r r @P h ˨ h -h W 1h 8 l ,h
r r @P b A h u bh D b Ab B h \ r r @P -bv b!@ dR alB hiD ehnT Hlhl^ 1Hh1 c_bc @h[ dRa r r @P XYlSX ` PT HQ OGb K1
E@bB Ab@ Db
83b 5/b 1b r r @P * H ( d "2 ) "h
d 1 +
d ' r r @P "H
d
"d
d H hd ׀ h h r r @P h h0
d
̢ @h T LhH Ⱦ h ظȩ r d @P h h 0 ̠ 蟂lܜ " ȕ hؒ d PR9PRCL R9STRT R9NXTX r PR9BASE+R9LEL 6R9GTL /R9BRAK R9MIW R9LCAER9LOCLaR9FLDLCR9TSTN mR9CNTR FR9PONTR9RYSTR9CLIN =R9STTSr J PR9INRMR9INRPR9INRZR9HLFJR9FCTR R9AC1N R9OPCDY9LSTR 9Y9TOTL +J PEND J P +R9PRFN DECK-ID R29 RPGII 2.1 SUMMARY-135 J r @P l' L%% ! @ l T l T @ T $l b r
PR9PRFN
J PR9SBY R9BASE Y9RECP *Y9COUN )Y9FIPR (R9CLRE R9PUTS R9WOTV R9ZERO J P J P +R9PTCH DECK-ID R30 RPGII 2.1 SUMMARY-132 J r @P T &T &T & T & T & T r PR9LOAD R9PACK R9UNPK B PR9UPK3 (R9UPK2 $R9UPK1 R9PCK2 R9PCK1
R9LOD1 R9AC2S R9AC1S B P J P UR9PUTS DECK-ID R31 RPGII 2.1 SUMMARY-132 J r @P HN +HK *hH .> b#h? > 9h9 h6 `1/ X,`, *X
'@ r p @P +$T "T h 0 `X hT hH
T
h p " PR9PUTS B9PUTS ON9PUTSR9CVEA 2" 2 PR9LBYT AR9BASE R9SBYT GR9FILR 0R9IOCL -R9XLAT 82 P J P R9RCAD DECK-ID R32 RPGII 2.1 SUMMARY-132 J r @P
H_ h_`' W@ T Q 0 HKJG b!GFb" @ T < -A7 r r @P +@ ! T #1 06 ) 'h( 7 h!&h! h h T ?hT M Nh r r @P V!
-@ dR a@a @ - T / 0( r r @P S h' h& @T `' "&T ` T T 0 @d r 2 @P Ra OT 2 PR9RCAD B9RCAD aN9RCAD Z PR9MVB R9LBY RR9BASE R9FILR R9CVEA R9TFLG
SETL33 R9IOCL R9STH0 R9GETS zR9INTV xZ P J P R9RDEN DECK-ID R33 RPGII 2.1 SUMMARY-132 J r @P H[ HZYHYV b hT QbO b hL J EB bA@
e<: h< 5h6 r r @P +
1h4 2T & h0*. 0
h+$ - h$"
h
r r @P V
h
h +h +# h 11 0
r F @P bh {h @ T
h m !
H F
PR9RDEN
J PR9LBY 0R9BASE 1R9MINS JR9ZERO PR9CHRA SR9CHRJ MR9AMPR FR9BLNK BR9TRAL J P J P R9READ DECK-ID R34 RPGII 2.1 SUMMARY-132 J @P T 0 T
PR9READ
PR9FLOW R9CNTR P J P DR9RSLT DECK-ID R38 RPGII 2.1 SUMMARY-132 J r @P H @P T % h h
T >
PR9SETF
2 PR9FLOW R9CRIN R9NXTX R9AC3S R9AC1S R9STTS 2 PEND J P R9SETN DECK-ID R48 RPGII 2.1 SUMMARY-132 J N @P T H@ hdR e
dR d N
PR9SETN
PR9IDMX R9FTSW R9INTB P J P CR9SHFT DECK-ID R49 RPGII 2.1 SUMMARY-132 J r @P H h;5 5h6 41 h1.h0 /l-
l, )*1 'h%" " h
h h r D @P +h l!
l
!
h D PR9SHFT YLSPAR > PEND J P ZR9SKIP DECK-ID R50 RPGII 2.1 SUMMARY-135 J r @P hW HT & JbI2 lGG T DB 1 @ h>=T : h6 3 T !- r r @P +@ T
& b
b# !T b 3 X h & T b" l r @P V " PR9SKIP R9SOVS DB9SKIP WN9SKIP" Z PR9SBY (R9BASE )R9VSWT VR9SETN LR9CLRE R9PUTS /R9PRFN 9R9CRIN R9WOTV -R9ONES %R9OCOD GZ P J P R9SPAC DECK-ID R51 RPGII 2.1 SUMMARY-132 J P @P l bLT
!
b 7 T P
PR9SPAC
* PY9ASPC Y9APFX R9PRFN R9SOVS R9FTSW * P J P R9SQRT DECK-ID R53 RPGII 2.1 SUMMARY-132 J r @P T
hjHg hhdT
@ T \
T TSA hPhOK "hK
FHD r r @P +E
hD
hC hA?
6 5 0h2 1 +T
h)
@ T ! r r @P Vh h f P
h Hq
f ` T
h
h r r @P ; k f !
h
ن f T y K f r r @P Q
Hȿ غ
T J X خȭ ȭ h
T | 1T r @P
ȕT
PR9SQRT
r PR9MIW TR9FLOW R9SHFT R9UPK3 R9RSLT R9STH0 R9NRMX R9NXTX R9AC3N R9AC2N R9AC1N R9AC3S R9AC2S zYACC1B r
PR9AC1S
P J P LR9STH0 DECK-ID R54 RPGII 2.1 SUMMARY-132 J r @P hBlF H? 7 H55 8r G `- dh T , (% r Z @P +T
*! d d T . A" Z
PR9STH0
: PR9MODE AY9ERCD KERRO46 R9CNCL ;R9CLIN 9R9CNTR =YERRSW 3: P J P eR9STLL DECK-ID R55 RPGII 2.1 SUMMARY-132 J r @P T 1 HR"' hM &HIIhJ hI$ CT ? %? h< H9'`
T
h0h51/ A,h/H- -T ` l'(h' r h @P + Dh" h D lh h h
1 E L h PR9UPK1 R9UPK2 R9UPK3 * PR9LBYT %R9MIW R9AC3S R9AC2S R9AC1S * PEND J P R9XCPT DECK-ID R71 RPGII 2.1 SUMMARY-132 J @P T 3 T
PR9XCPT
PR9FLOW R9CNTR P J P mR9XFOT DECK-ID R72 RPGII 2.1 SUMMARY-132 J r @P T h cH `
@ T
d U hS
Qd hOL hNLLT *
hD " r r @P + h<: f 4
H2 1 h,) 6 2 f C
H! ! l r @ @P VT
h T * T @
PR9XFOT
j PR9LEL WR9MIW
R9FLOW R9SETN R9UNPK R9NRMX ]R9RSLT cR9NXTX eR9RYST R9AC2N ER9AC1N GR9AC2S (R9AC1S ^j PEND J P R9OTMG DECK-ID R20 RPGII 2.1 SUMMARY-132 J H @P dh hT T
H 00 00H H
PR9OTMG
PERRO46
P J P "R9XRSD DECK-ID R73 RPGII 2.1 SUMMARY-132 J \ @P h
! ! h
h
\
PR9XRSD
PR9MNIN
R9MONE R9MZER P J P :R9YCOD DECK-ID R74 RPGII 2.1 SUMMARY-132 J r @P X H2 h0H0/ h-, h*&h$ &"T h $ H
T r , @P + T + , PR9YCOD R9YCDE B PR9SBYT 3R9OTM1 R9ACC1 R9ZERO R9PERD %R9SLSH R9BLNK 0Y9INVP !B P J P -R9ZADS DECK-ID R75 RPGII 2.1 SUMMARY-132 J r @P
H'h' %$h% h$h#! T !
d T T h
T r @P + PR9ZADS B9ZADS (N9ZADS * PR9FLOW R9UNPK
R9RSLT %R9NXTX 'R9AC1S * PEND J P 8R9ZCOD DECK-ID R76 RPGII 2.1 SUMMARY-132 J r @P X H. H-*h*H+ )h'& h' h% h ! T h h h
T r ( @P +
( PR9ZCOD R9ZCDE * PR9SBYT *R9OTM1 R9ACC1 R9BLNK 'R9ZERO * P J P READ09 DECK-ID S18 RPGII 2.1 SUMMARY-132 J r @P T ` # T
# T
. ;T 3#a r r @P + 5 T # T 1 . :*a / 0 B2a r r @P V2 Db 2 %1 b Xw 2bD bA 2
r r @P b g aBH,HW hP,
hT 3 p 7'a Ϡ2 h=1D r r @P h A 4 h hT *(d hT
b 2 Db 0 r J @P b 1 T Db T E J PREAD09 READ16 * PERRPRO STRACE R9DRTN ROOT44 ROOT43 * P J P READ10 DECK-ID S19 RPGII 2.1 SUMMARY-132 J r @P T ` # T
6T O . ;T 3 #a r r @P +? /b 1 . :*a 0 2 B2 a 2 Db r r @P V ~ 2 1 b Xn 2bD b "Xo hY6 r r @P ? /b
hT " k 7'a Ϡ2h @1D hA 4h hT - r r @P (dhT
b 2
D bb b : 4 D bT r r @P ( D bb b T 1 9b b T r @P h
PREAD10
2 PERRPRO STRACE R9DRTN ROOT45 ROOT44 ROOT43 2 P J P >READ11 DECK-ID S20 RPGII 2.1 SUMMARY-132 J r @P T ` # T
& $T . T B r r @P + G T ,. 0 , T T Bb r r @P V @ b /T ! @ A?b / +
b /h 1) r r @P " b h
h D h h T A2
D
h h r r @P A 4 h h
# 2hT
a
b d m b 1 r r @P b b #A 2 A 2 a !
T a 7' r r @P aa h
!4h h
# 2hT
a
bd r 2 @P -: *a2 a3 #aT 2
PREAD11
J PERRPRO STRACE;R9DRTN ERRO46 ROOT44 4ROOT43NTAP48 MNTAP49 KNTAP55 J P J P READ12 DECK-ID S21 RPGII 2.1 SUMMARY-132 J r @P T ` # T
$ <9 6 T 9 6T r r @P + ?/b 3# aT [ 1 Ϡ2 hh A h r r @P V""
:* b h T A b
"D b r r @P 1 b 1 1 :b k Db A1b 2 h r r @P hT f B2 a3 ) h h h o hT ( oo Q-y + r r @P @0 b"+ B2 a( :* aT 8 3# aF A!7 r @P b "Db 7 PREAD12 READ14 * PFMGETS ERRPRO (STRACE R9DRTN ROOT43 * P J P READ13 DECK-ID S22 RPGII 2.1 SUMMARY-137 J r @P T ` # T
3#a T % & 'T % . r r @P +, T # R b ! [ )h ( # r r @P VH oh
hT ( o oQ% ! %@ 0a 2% >.a 4 r r @P 2 :*a ?/ bDb bh h hT
2 Db r @P bT M PREAD13 READ15 * PFMREAD `ERRPRO /STRACE R9DRTN ROOT43 * P J P WRIT17 DECK-ID S23 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a T # T - 6T r r @P + 1T !! b Db 1b r r @P V*h* $ ah$ h
hT * e 7'a h
Π1h
A h T r r @P b b
0 A
1XT 9 f # A2
"f" r " @P b ! T " PWRIT17 WRIT24 * PERRPRO jSTRACE R9DRTN ROOT45 ROOT43 ~* P J P WRIT18 DECK-ID S24 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a (T S - T 1 r r @P + q ! ! b Db 1b A
<
hT $ Q > r r @P V7'a DH h
1h
A hT bb
0 A
! r Z @P # A 2
" f" b b bT T _ Z
PWRIT18
* PERRPRO RSTRACE R9DRTN ROOT45 ROOT43 i* P J P WRIT20 DECK-ID S26 RPGII 2.1 SUMMARY-132 J r @P T ` # T
% T - T 3#aT r r @P +1 T ' ! 1 b 8(a T / A 1bD b A r r @P Vh a h A hT b
0 A
2 XT G r r @P b b B8a5 )h 5 h oh a hT (
oo %A 1a %:* r @P a 3#a PWRIT20 ADDT30 * PFMPUTS ERRPRO STRACE {R9DRTN ROOT43 e* P J P MWRIT19 DECK-ID S25 RPGII 2.1 SUMMARY-141 J r @P T ` # T
, $T !- T B r r @P 2+9 / ,A 1a
1f" T T ?b
1"h r r @P ] 1b / +
b/ +
A
;T ( 7'a r r @P a/ A h !4h # 1hh T
a
b A
r r @P b 2 b1 b b T X ls
!A b Db
H r r @P A h
b# 1h
h T h !4h #1 hhT r r @P
a
b+ ++ b Db b 2b 1 b b r F @P 4+ T X T 3#a 8( a F
PWRIT19
B PERRPRO STRACE@R9DRTN ERRO46 ROOT43ROOT45:NTAP49 NNTAP48 PB P J P WRIT21 DECK-ID S27 RPGII 2.1 SUMMARY-132 J r @P T ` # T
& T &
-, T 3#aT r r @P + @ 0aT # ) 1 ! 1 b )h
oh
r r @P V h hT ( oo ! 2! (: *aT + h h h
r r @P hT b
) h
oh h T ( o D b2 DboT t T r @P :* a x
PWRIT21
2 PFMUPDR FMREAD ]ERRPRO 6STRACE R9DRTN ROOT43 2 P J P WRIT23 DECK-ID S28 RPGII 2.1 SUMMARY-132 J r @P T ` # T
6 T / - ) , T 3#a r r @P +T 1 a hh h
aH2 hT h
r r @P VhT L
)h oh h h T ( oo T , &A 1a r 6 @P ! %: *a %=- a 6 " PADDT31 ADDT32 WRIT22 WRIT23 " * PFMWRIT nERRPRO $STRACE vR9DRTN ROOT43 X* P J P UPDT25 DECK-ID S29 RPGII 2.1 SUMMARY-132 J r @P T ` # T
( T P ,T 3#a / r r @P +T ?/ a1 T b .
h T , Q V 7'a? r r @P V 9 )b h hDh h 9 "aH A1hT 7 ! r T @P b 9b T 2 Db ?b T
PUPDT25
* PERRPRO NSTRACE 8R9DRTN ROOT45 ROOT43 q* P J P UPDT26 DECK-ID S30 RPGII 2.1 SUMMARY-132 J r @P T ` # T
B T , T 3#a / r r @P +T ? /a 1T ' ?h
a H!hT o aH 'h r r @P V" Q"
H " T - 3 ;+a r r @P 8(a b A1b Db b h h hT J r n @P )h h oh T ) o b2 D b? bo h:* a n " PUPDT27 UPDT28 UPDT29 UPDT26 " * PERRPRO fSTRACE 9R9DRTN ROOT43 FMUPDR * P J P SETL33 DECK-ID S31 RPGII 2.1 SUMMARY-132 J r @P T ` 6 T
; T 9 3# a a &T ; ! r r @P + )h h o hDa h DbT ( o o"( 1 2 ! (:* aT r r @P V %B2 a3 #a 1 @0b b Db 2b B? bT T r
@P ~
PSETL33
" PFMREAD =ERRPRO #STRACE R9DRTN " P J P jROOT43 DECK-ID S36 RPGII 2.1 SUMMARY-132 J r @P Hdd dh]] d dhU T %r J E" 4hE @ + r r @P + ; 5 2
H/ H-+ (! !n!
r : @P VةF A h
& Ah e f : PROOT43 MOVE P J P ROOT44 DECK-ID S37 RPGII 2.1 SUMMARY-137 J f @P #H T a#H # 2 1 b> .b f r @P ' T Q;h2 h0> b# $ &1 - H , < ,b
01 r r @P RX >.b T N _T
2 " 8 . . , ?/ b$ r r @P }T [ /ؠ @0b ", T > .b
h
r Z @P bX T * PX bB 2b b b Z
PROOT44
PERRPRO STRACE P J P ROOT45 DECK-ID S38 RPGII 2.1 SUMMARY-137 J H @P #H T a#H 1 yA b H r @P h9 A b> .bT ,Q;h) >b # $ 1 1 A1a r 0 @P F03
16 :*a T N V 8 0 r @P W
2" 8 . , $ A1a T R A 1b ?/b 3 r f @P T p :*a A1 b 2Db b b b T ) X f
PROOT45
PERRPRO STRACE P J P 0ERRO46 DECK-ID R91 RPGII 2.1 SUMMARY-132 J r @P d "h% h$h# h"
c dh E" h
"h d T ) * h ` r `P + PERRO46 ERRPRO PSYSMSG Y9IREG &R9ERTN # P J P NTAP48 DECK-ID S39 RPGII 2.1 SUMMARY-141 J r @P XXXXXX XX, MOUN T XXXXXX ON LU XX, RI NG,READY ? HDR1 0001000 r r @P +100 YY DDD YYDD D 000000 R ING #" a# h& h& Dn
q r r @P Vh n
q n
q
n
n
nT ( o
"' $$MOUNTS $$ r r @P h"n
q
HX" 3 1 B2a h hT ( oH
" h r n @P h hT ( o h hX 2% <, b h hT ( o
H h T n r @P +hT
B0F 4Ȁ 00h "
"+ NO h T L T r r @P NO
b! 0T w *h =- b :*bT r r @P -
HT * ' T A Y1 *
HT (
"j h
H
+H r r @P XX* T 6 E 0
H T 0 51
.
! T _ r r @P hm hk
heb a]^
"
H
"HX r r @PT } B HDR1VOL1
"h5 h4$h3
h hD h
h SH BH r r @P ٠
0 hB F h
T C .T h )T T r r @P
) e'
"
"HT @ T 1T H T r r @P / Y TT
"HT B0FHB 0F 00HB0F 4Ȁ 00hT ? r r @PZ %@
HT Y 0 T T b - " hT k 6
* DT G (T 9 r : @P T 8(aT T 4 :
PNTAP48 F
j PERRPRO+STRACEFMDELR FMREAD FMCLOS FMOPEN oERRO46 NTAP55ROOT43uNTAP57/NTAP53hNTAP52%NTAP58j P J P NTAP49 DECK-ID S40 RPGII 2.1 SUMMARY-132 J r @P +#" a#. ) -T : 8 EOȿ V1B 2aE , XCB r r @P Vb @b6 -# / T : , T T g "X" Ab @?b A1 r P @P a , T q X
T T T b P
PNTAP49 -
PSTRACE NTAP55 NTAP56 o P J P NTAP52 DECK-ID S41 RPGII 2.1 SUMMARY-132 J r @P 0 Hoh Xlh HXgh
(h h !2
S
Q H0%A
h^ XJh r r @P 9
H XEhXB h d( h
( h
/ȱ n m"
$ȧ 6 2
2
hHȜ r J @P d- h+
h h "
h 2
ؒ J N @P h
hF 2
N
PNTAP52
P J P tNTAP53 DECK-ID S42 RPGII 2.1 SUMMARY-132 J r @P d 0 hH hh h H0%A 0FhHш Hl
r r @P 9hƐ$ "
u h
h Ȼ 8h 0FhHȵ h hȮ n Ȫh h r 0 @P dȣ nȣ ȥh
hثȘ蘀 0
PNTAP53
P J P NTAP54 DECK-ID S43 RPGII 2.1 SUMMARY-132 J r @P Dh h
h} h|y
B0FHf B0Fb 00H_B 0FH[B0F W 00 HTB0F r r @P +2 00 HL " hT }
F1LB V1h!G b
*D T _ ( T _ h T r r @P V 4 _ ` N EO h *EOV1 r @P PNTAP54 NTAP56 PROOT43 VNTAP55 ONTAP58 K P J P NNTAP55 DECK-ID S44 RPGII 2.1 SUMMARY-137 J @P 6 r @P H L \ H h" a! HA h h
(h &h hh r T @P / a T` Hh A
H h (h T ȼ T
PNTAP55
PROOT43 G
P J P NTAP57 DECK-ID S45 RPGII 2.1 SUMMARY-137 J @ @P a h l lTH
h l @
PNTAP57
P J P NTAP58 DECK-ID S46 RPGII 2.1 SUMMARY-132 J r @P h hH
| HX
hX l
q"
d
*#C :r r r @P />
"
r <
H
E
A
a 1 " @Z {[lP}M] \Nk`Ka r r @P Zz^L~no | _m [ A B C D E F G H I . < ( + &] J K L M N O P r l @P Q R! $ * ) ; ^ -\/ S T U V W X Y Z , % _ > ? 0 1 2 3 4 5 6 7 8 9: # @ ' = " l
PNTAP58
P J P ROOT60 DECK-ID S48 RPGII 2.1 SUMMARY-132 J @ @P @
a
a g @
PROOT60
P J P LFMMV63 DECK-ID S51 RPGII 2.1 SUMMARY-132 J r @P X XX XX XX XX XH5 h1A " h- h T l) ( l&% "h! r T @P +l l l T
@P K
J PFMCLR FMCLOS FMDELR FMGETS FMOPEN
FMPUTS FMREAD FMUPDR FMWRIT J R PFMCALL WRITER HUPDREC GREADR FPUTS EOPENFL DGETS CDELREC BCLOSFL ACLEAR @R P J P R9ENDL DECK-ID P58 RPGII 2.1 SUMMARY-132 J @P
PR9ENDL
PR9BEGN
P P *T P P *K,I8 P P *J,RMUCSW,$$ P P *K,I17 P P *K,P8 P P *P,F,3,R9BEGN P J P R9CNTR DECK-ID P44 RPGII 2.1 SUMMARY-132 J r @P h4h3 H0 T " hZ hY
hX hWhV hj hg XyhT e 1X]
r r @P +h ` h2H0 h0H) h(/ h.h.h. X/#h T & e 1 " "K hHX3E r r @P V j XM "h `
r r @P
! " h
X
" X X A "T $ H
"
" r @P T J PRPGFIL R9CNTR 6R9JUMP dR9SGTB pR9SGIX fR9CKSG uR9MUNO eATTCHK R9BRAK J J PR9PORT
R9MODE R9UNIT R9USER
SYSMSG PGMIN SLICUP ATTACH JR9RPRT J P J P SR9ROOM DECK-ID R35 RPGII 2.1 SUMMARY-132 J r @P r @P + T @P 4 T r PR9ROOT Y9PFCB Y9FDC1 Y9CMST Y9MMST Y9INMK
Y9MHLD Y9DETL Y9TOTL Y9LSTR
Y9DOTT Y9TOTT Y9EOTT Y9ALSQ r r PY9CARA Y9MARA Y9UDAT Y9UDAY Y9UYER Y9UMTH Y9FDTB Y9TBIO Y9CMOV AY9INTA BY9ITLP CY9LAHD DY9MMOV EY9NSQR Fr r PY9PAGE GY9TBOT HY9INVP Y9DSEQ Y9FBSE POSSPB POSSKB POSSPA POSSKA R9OCOD !R9RECP "R9TANF #R9TFLG $Y9APFX %r r PY9ASPC &Y9COUN 'Y9DTPT *Y9FDPR )Y9FIPR +Y9FIPT ,Y9FLPT -Y9FPTL (Y9FPTR .Y9FSSA /Y9HIND 0Y9HNUM 1Y9IBUF 2Y9KALA 4r r PY9KAPF 5Y9PSFG 6Y9RECP 7Y9RPTR 8Y9TOP1 9Y9VFT1 :Y9XRPF ;Y9XRTE R9ERTN ?Y9LABL r R PY9FTNX JY9FSTL KR9USER LR9UNIT PR9MODE QR9PORT RR9EDT1 R9EDT2 R9EDT3 R9EDT4 R r PR9FSTL KR9FTNX JR9LABL R9TRCE IR9FBSE R9DSEQ R9INVP R9TBIO R9FDTB R9UMTH R9UYER R9UDAY R9UDAT R9MARA r r PR9CARA R9ALSQ R9EOTT R9TOTT R9DOTT R9LSTR
R9TOTL R9DETL R9MHLD R9INMK
R9MMST R9CMST R9FDC1 R9PFCB r P J P R9RPRT DECK-ID R37 RPGII 2.1 SUMMARY-132 J r @P T ...... r , @P + , @P ; @P @ C ^ @P ^ r PR9RPRT R9INTB R9CLIN R9HTIN R9VIND
R9USND R9MRIN R9FCTR "R9STTS :R9HLFJ >R9REPT ?R9RYST @R9ACC1 YACC1B r r PYACC1O bR9AC1S R9AC2S R9AC3S R9AC1N rR9AC2N R9AC3N R9PPUP BR9UPOP aR9INRZ ;R9INRP B9SKIP )R9SKIP 5N9RCAD B9RCAD R9RCAD R9PRFN 3N9PUTS =B9PUTS (R9PUTS 4R9POSO YN9POSS ^r r PB9POSS SR9POSS XR9OV50 WR9NXRC R9LAHD R9IOCL /N9ICTL FB9ICTL AN9GETS !B9GETS R9GETS FOV40 VN9FTOV ]B9FTOV Rr r PR9FTOV UN9FMAL :B9FMAL %R9FMAL ,N9FLOW \B9FLOW QR9FLOW TR9EXIT KR9CMOV BR9CVEA +N9BDPR 9B9BDPR $R9BDPR *N9ARTH Nr PB9ARTH HR9ART1 J P J P R9ARTH DECK-ID P16 RPGII 2.1 SUMMARY-132 J r @P X c hX _
dX _^ ]W" " " X M
C GB r r @P +: ŀ ^h Q 74 1/ /h*$ h# a "
T r H @P V
X X Y p { H r @P {
d ȷ
nXL
]X; r r @P
d Ȣh$Ȟh!
X b T b
ȌX
r h @P h "a L h bH _ D
E A"h W hT _ h J PR9ADSB R9ZADS R9MULT R9DIVD R9XFOT R9MVRM B9ARTH eN9ARTHR9ART1J B PY9RPTRR9FLOWR9LEL R9RSTS TR9RYST R9STH0 R9BASE R9NXTX dB P J P !R9ASQR DECK-ID P17 RPGII 2.1 SUMMARY-132 J Z @P
h hH "h @ T h
h Z
PR9ASQR
PR9RDEN
P J P #R9ATON DECK-ID P18 RPGII 2.1 SUMMARY-132 J ^ @P h 2 H hT T Ll h
H
h T T L ^
PR9ATON
" PR9LBYT R9AC1S "R9XRSD R9STTS " PEND J P zR9BDPR DECK-ID P19 RPGII 2.1 SUMMARY-132 J r @P H s
h q H nf i *
l\[aT V SZT X'T @T O r r @P +hL hK
bH @"DT *@< @=:T 3* /- T h+ &@ T r b @P V T T * @d Ra b PR9BDPR B9BDPR uN9BDPR r PR9SBY 6R9BASE 7POSSKA qPOSSPA pPOSSKB oPOSSPB nR9FMAL KY9FSTL @R9PUTS UR9CLRE &R9OTMV >R9SPAC cR9SKIP \R9OCOD r " PR9PLUS rR9ZERO tR9BLNK sR9WOTV S" P J P R9BINT DECK-ID P28 RPGII 2.1 SUMMARY-132 J r @P HDh hCehCHA
l?> =8 h8[6h7 Wh3Th4 0 Fl.- . %)h#XJ &%F C.@ r r @P +h =h
l X5
h
1
h ! hH r r @P VM
HT h Ȉ A h hH
h
bтb
H r @P
PR9BINT
PR9SBYT [R9ACC1 k P J P R9BGCL DECK-ID P25 RPGII 2.1 SUMMARY-132 J
PR9CLBG
P J P R9CALC DECK-ID P31 RPGII 2.1 SUMMARY-132 J N @P T T
T
d N
PR9CALC
: PR9NXTX Y9LSTR Y9TOTL Y9DETL R9PRCL R9FLOW YERRSW : P J P eR9CHAN DECK-ID P32 RPGII 2.1 SUMMARY-132 J r @P T , HYhX UT R HP ! "
T C- 7< ' h8h<&h6 r r @P +2/ h31/@ /T (% #$T h ! h T ` r , @P VT T ,
PR9CHAN
b PR9SBYT KR9BASE %R9FLOW R9CVEA WR9MVBT 4R9PCK1 =R9UPK1 R9BINT R9CNTR YR9NXTX R9ZERO HR9ACC1 @b P J P 9R9CHIN DECK-ID P34 RPGII 2.1 SUMMARY-132 J r @P Wd T ` l% T " ( T T h T
r * @P + T T )T *
PR9CHIN
b PY9FPTL 7R9INMV -R9SETN 2R9STH0 !R9ASQR R9CRIN R9GETS R9CNTR 4R9FRMK R9FCTR
R9INRP 0R9INTV b P J P R9CLPR DECK-ID P37 RPGII 2.1 SUMMARY-132 J r @P d
@ T
f"
<" "d T " bQ! r r @P + %T H 0T D 5d 7 ( T T E
h >" h 1X r r @P V
h I h 3 Hh T h 6 $ r r @P P "1I 3 ~ " hd x _" r r @P 8 "+H s h
h I-G E1* l 9, 6
b r r @P 1A h j * bAb# Db B h }X zb b!@ dRa r r @P B he6 hgT Hehf 1$^ [b^ .lT X ` QT KbN* JFbA r r @P -bGD b@ ;h< 89T 3T h401T %+T h, H'"h% r h @P + &# "h! h h hT
T > T h
PR9COMP
J PR9LEL CR9LBYT #R9GTL R9FLOW R9RSTS GR9NXTX IR9ADSB Y9ALSQ ,R9BLNK 8J P J P R9CRIN DECK-ID P46 RPGII 2.1 SUMMARY-132 J " @P T f H "
PR9CRIN
PR9IDMX R9INTB P J P 4R9DETP DECK-ID P48 RPGII 2.1 SUMMARY-132 J r @P T
d T d l
l l 1 @ T T r @P + & 2
T PR9DETP YBGCYC
Z PY9HNUM 3Y9HIND 2R9STH0 +R9FLOW R9TP40 R9CNTR /R9VIND
R9OCOD R9VSWT Y9DOTT R9HTIN Z P J P ;R9DMND DECK-ID P50 RPGII 2.1 SUMMARY-132 J r @P T l21T T %T
d T hT r 0 @P +
T T T 0
PR9DMND
Z PR9INMV /R9ASQR R9STH0 6R9SETN +R9NXRC
R9CRIN R9BLTR #R9CNTR 1R9INRZ R9FCTR Y9FPTR 9Z P J P R9ECOD DECK-ID P54 RPGII 2.1 SUMMARY-132 J r @P X HjHi x he'Hd HbHbHl [& g# hW a & hQ hML XYKXWE r r @P +hI hG HE $ ?h?H=6 h= D h9 ,5h*, h*) h.-X3 *h( 3 r r @P V
Q h X% 5
h %
h h JX r r @P H T h h X " H1 Xh h ʠ$ X( r r @P T T hɔ 1 k 6XȹT 1ȵ h T 2 Ȩ T إ r
@P
PR9ECOD R9ECDE r PR9LBYT R9GTL R9SBYT R9OTM1 R9CHAR $R9CHRC !R9ACC1 R9EDT3 Y9INVP UR9EDT4 =< 9h7 5&"h4 ,1 (h&% X,X0! F#! T D
r r @P VX
h ` T h! H T h r * @P HX Dh
t * PR9EDCN R9EDNE r PR9LBYT ~R9SBYT rR9GTL OR9CMBD R9OTM1 R9ACC1 nR9DOLR bR9STAR aR9BLNK cR9ZERO _R9MINS ^R9CHAR ]R9EDT2 R9EDT1 r P J P R9EDIT DECK-ID P56 RPGII 2.1 SUMMARY-132 J , @P T T T T T , " PY9ECDE Y9EDNE Y9YCDE Y9ZCDE " * PR9CNTR R9ZCDE
R9YCDE R9EDNE R9ECDE * P J P R9EXCP DECK-ID P60 RPGII 2.1 SUMMARY-132 J " @P
d T T "
PR9EXCP
" PR9CNTR R9TP40 R9OCOD Y9EOTT " P J P %R9EXIT DECK-ID P61 RPGII 2.1 SUMMARY-132 J d @P T )
T )"
""h
H
" \ d
PR9EXIT
* PR9NXTX Y9LABL #R9PONT !R9FLOW
Y9FTNX * P J P /R9FILR DECK-ID P62 RPGII 2.1 SUMMARY-132 J r @P @ D 3
hH
!hH T "
'& #$% r @P + (
PR9FILR
PR9STH0 R9FRMK P J P 3R9FLDL DECK-ID P64 RPGII 2.1 SUMMARY-132 J r @P " h+*
h% h%$ h!-H h h1 h
h @ r @P +
PR9FLDL
PR9BASE Y9FBSE Y9FDTB P J P R9FLOW DECK-ID P65 RPGII 2.1 SUMMARY-132 J J @P hH h h
T
\
T
J PR9FLOW B9FLOW N9FLOW " PY9TRCE R9REST R9SAVT R9SAVE " P J P AR9FMAL DECK-ID P66 RPGII 2.1 SUMMARY-132 J r @P h< h8 h7H33 h) ` ( T $ @ "T @ T T r > @P + Fh\ T ( h
b > PR9FMAL B9FMAL ;N9FMAL J PR9SAVP 0R9SAVE 'R9REST /Y9IBUF 2Y9FSTL *R9MVBX R9BASE R9PUTS %R9WOTV #J P J P R9FNBG DECK-ID P67 RPGII 2.1 SUMMARY-132 J
PR9FNBG
P J P R9FORC DECK-ID P68 RPGII 2.1 SUMMARY-132 J 4 @P T -H " 0H D 4
PR9FORC
PR9FLOW R9FFCB
R9NXTX P J P :R9FTOV DECK-ID P71 RPGII 2.1 SUMMARY-135 J r @P h5 h4H14b " +T
d X X b 2d "h#` C r , @P +T H A , " PR9FTOV B9FTOV 5N9FTOVFOV40 /" 2 PY9DOTT Y9TOTT R9TSTN R9POSO -R9OCOD R9FTSW !2 P J P ]R9GETS DECK-ID P72 RPGII 2.1 SUMMARY-132 J r @P HV ! HR
O@ LT J T G 1
0B @dR a9: h6h5 D ( r r @P ++ `+)X
& ! `#!X h 0 `X hT hT
h r @P V " PR9GETS B9GETS WN9GETSR9CVAE ;" : PR9LBYT JR9BASE !R9SBYT NR9FILR R9IOCL
R9XLAT AR9TFLG *: P J P GR9GOTO DECK-ID P73 RPGII 2.1 SUMMARY-132 J r @P T + f" b
d T T (
h%$ d T * r N @P + $d + .2 T 0 9" d $ N PR9GOTO R9EXSR R9NDSR ' R PR9FLOW (R9STH0 5R9NXTX ER9STRT &R9UPOP R9PPUP @Y9LABL R9INRZ d : 9 h=74 9h2 +J h2)0 h/ h+
l-
@ T r r @P `Q" :"#3 AR h
h h r r @P T ` h T h1 XDT Ah h hA T T r r @P -A h
q
T (ȼ T H T شhX̲
lȫ
lXT Cآh r @P X ȝ T Ț h
PR9INMV
r PR9SBYT R9LBYTUR9MIW R9BASE R9CRIN RR9LOD1]R9BINP>R9CVEA:R9UPK1,R9PCK1R9LCAE R9FLDL R9SETN MR9TSTN 6r * PR9MINSMR9BLNKR9NINE R9AC1N R9ACC1 * P J P R9IOCL DECK-ID P83 RPGII 2.1 SUMMARY-132 J @ @P H
hD a h T \ T
@ PR9IOCL R9DRTN PR9SAVP R9REST R9SAVE P J P !R9LAHD DECK-ID P87 RPGII 2.1 SUMMARY-132 J Z @P L l ( T @
T ,
@d Ra Z
PR9LAHD
" PY9KALA Y9KAPF R9INMV R9NXRC " P J P `R9LCAE DECK-ID P89 RPGII 2.1 SUMMARY-132 J r @P HR hRHPT HOhOHM #JA GhIHE FhF>> T h< H99h7 60,3 r r @P +/h./ h-,h( + ):"" T B T N T
hT
ld @ r @P V
PR9LCAE
J PR9LEL @R9GTL ;R9CLR1 IR9UPK1 YACC1B MR9ACC1 _R9STH0 CR9LOCL R9FLDL J P J P 3R9LEL DECK-ID P90 RPGII 2.1 SUMMARY-132 J r @P h,H, h&H% H$h$!H "h" H *
h !d #h r @P + PR9LEL R9GTL P J P YR9LKUP DECK-ID P91 RPGII 2.1 SUMMARY-135 J r @P T #
H d "h
" "\Fh
h q
Lo"lo h h
hi Dh la r r @P +h h m\&
h[g \!
hV \
hP
hPI hL .
hG
ChBO MLMlK9 1@ r r @P V
l401 l.T
H "` \p
H "3 l"h hT a
r r @P H t" ` y \T
T hh ch]b bbh`Y YhWQ
YY r r @P "\ JhP EhMh Lh\ hE\d Ah@ <! " Ƚ r r @P - A :\
h̶ <T ȡ T ̩ - r r @P
R h hH ̅\
h \
h1 6 r r @P -T f"" ̾`\ ȿf" "̽`ȹ \T ȷ3
Ad M d r
@P X
PR9LKUP
r PR9MVBT R9CLR1GR9BINT R9NXTX1R9LOCL ~R9PCK1/R9LEL R9GTL R9SETN R9INRZ R9INRM R9CRIN WR9INRP YACC1BTr " PR9LBYT VR9BASE R9RYST R9FLOW " P J P /R9LOAD DECK-ID P92 RPGII 2.1 SUMMARY-132 J r @P h( 4h%T "T T H !H l
h hl h
h H
T h l r @P +
PR9LOD1
" PR9LBYT !R9CLR1 R9XRSD R9AC1S ." P J P R9LOCL DECK-ID P93 RPGII 2.1 SUMMARY-132 J T @P " hA h H @h T
PR9LOCL
PR9BASE Y9FDTB Y9FBSE P J P 6R9LRCK DECK-ID P94 RPGII 2.1 SUMMARY-132 J r @P
h.
h,H, + " 'H'Q
h$ h h dR h0 $
$ r " @P + "
PR9LRCK
PR9LRSW .Y9PFCB P J P HR9LSMB DECK-ID P95 RPGII 2.1 SUMMARY-132 J r @P X X X X+ 4 0 X $T + hDa r ( @P +
D a " ( , @P 9 $ T ! + , b PR9SBYX R9LBYX R9MVBX R9MIBX 9R9MVB R9LBY R9SBY R9MIB
R9MVBT R9LBYT R9SBYT R9BYTA b PR9STH0 =R9BASE G P J P R9MMOV DECK-ID P98 RPGII 2.1 SUMMARY-132 J r @P `H{ Ch R H m hig hb h!$ ! r r @P + TT " +"L T JH Ɛh B@ `ȽT ;Ϡ ht 4T 0T
r r @P Vd Ȩ (T Ȥ A#
h! O
XR G% T T hH ! T rh
hH r r @P
h h
X)T z hH
X"4
h
h d !d dR r r @P h
d d " I h1 h h h ! T 0hT زز r > @P ט" Ȭh t ȡ @T E >
PR9MMOV
r PR9MVBT R9SBYT 7R9LBYT R9BASE R9NXFL R9STH0 nR9PCK1 [R9LOD1 PR9UPK1 TY9MHLD Y9MARA R9MRSW R9MRPR R9CFIL r " PY9DSEQ R9ACC1 WY9ALSQ 3Y9MMST " P J P "R9MOVA DECK-ID P99 RPGII 2.1 SUMMARY-132 J \ @P T
d h h 2
h
` T \
PR9MOVA
" PR9MVBT R9FLOW R9NXTX R9RYST " PEND J P R9MOVE DECK-ID R01 RPGII 2.1 SUMMARY-135 J r @P T `
"l# l"l! h h %
LA A "Ah " B \ . \ V \ a \ r r @P + !5 "_ T V WT T d | NL4M hLHhHF FhDEhD BAB@ ?T U r r @P V99" 6h67 4T
0-11 )*T 8% h' '! " " ~ h r r @P 1# h Ȣ / 3 " `2 T T r r @P . %/ -`) "&l& T T " `T T ȿT r @P "ص @
PR9MOVE
r PR9MVW R9MVBT TR9XRSD >R9LBYT =@: T h9 41
0) T 9& b$h#
r N @P +
@@ dRa h 9 b b
N
PR9NSQR
PR9RDEN R9STH0 P J P )R9NTOA DECK-ID R14 RPGII 2.1 SUMMARY-132 J n @P h#4 h$$H !T h h T h h
T h T n
PR9NTOA
" PR9LEL R9SBYT R9AC1S (R9CMBD " PEND J P "R9NXFL DECK-ID R15 RPGII 2.1 SUMMARY-132 J \ @P
h "HA d h 0
h \
PR9NXFL
PY9PFCB R9CFIL P J P .R9NXRC DECK-ID R16 RPGII 2.1 SUMMARY-132 J r @P
l+ 0L' ! @ T
l
T @ T 0
l r @P +
PR9NXRC
2 PY9XRTE -Y9XRPF ,R9GETS "R9RCAD R9TRAL R9INTV 2 P J P R9OTMV DECK-ID R21 RPGII 2.1 SUMMARY-132 J r @P Lz lyHr
h
hol Khl )i" . M ` h } f
_ 1n
X U Xb P
r r @P +h
GT C+ @>+ :9 H
3
1 - 1b )
'd $ r r @P Vd QA h T H H
h
B ` Th WX
h r r @P `T d hW hX-hW
hR qhI I
lRA h @T b r r @P LHd 0H7 `3 T H-
+h) *T
h H# h
1 & T r r @P T ȟ ?
}@h Ȗ hp ho "bHf XmA ha T r r @P T Wh
XP$ hNT GEEhC XJB@@ @T < h8 8h8!4 h6 2 r r @P -T / . !h*X # h " T h hX Xw h
A h
r r @P X T mT h X@ T `T h# r r @P h X8
hX h
hX h# hX&
h T HȲ`
q
r b @P ȳ
hȭ
hȧ HȗT . 5O~ b PR9OTMV R9OTM1 R9PGSW r PR9SBYTR9LEL gR9MVBTuR9BASE R9ZCODR9YCODR9EDCNR9BINTR9STH0jR9TSTN 1R9CMBDAR9CVAE{R9PCK1R9CLR1 r r PR9ECOD R9PAGE R9UPK1 R9LOCL R9LCAE R9FLDL R9BLNK+R9PLUSR9ACC1VR9MINSY9PAGE R9EDT4 R9EDT3 R9EDT2 Yr
PR9EDT1 W
P J P R9BGOT DECK-ID P26 RPGII 2.1 SUMMARY-132 J
PR9OTBG
P J P
R9OTPT DECK-ID R22 RPGII 2.1 SUMMARY-132 J @P
PR9OTPT
J PY9EDNE Y9YCDE Y9ZCDE Y9ECDE YBGCYC R9DETP R9EXCP R9OVOP R9TTOP J P J P :R9OVOP DECK-ID R23 RPGII 2.1 SUMMARY-132 J r @P
H6- " "
!
b "
T T r , @P +T T -
d $T ,
PR9OVOP
b PR9FLOW (R9OV50 1R9OCOD R9CNTR 6Y9DOTT /Y9TOTT +R9FTSW 4Y9FDTB R9SKIP R9BASE
R9VIND "R9CLIN b P J P 7R9OV50 DECK-ID R24 RPGII 2.1 SUMMARY-132 J r @P L43 / L.-h* )B " h" ! L " b 2
r & @P +d T H L &
PR9OV50
: PR9POSS .R9FTSW &R9OCOD ,Y9FDTB R9BASE Y9VFT1 6Y9FSSA 5: P J P LR9PACK DECK-ID R25 RPGII 2.1 SUMMARY-132 J r @P hE h h> h>h;
h: 7A4h3
5a
h31h/ .Ġ h,(h'( (dR h# T r Z @P + H h h hh
h T * l Z PR9PCK1 R9PCK2 PR9SBYT @R9AC2S R9AC1S
PEND J P !R9PAGE DECK-ID R26 RPGII 2.1 SUMMARY-132 J Z @P h +H HT h
l T Z
PR9PAGE
* PR9PCK1 R9CLR1 R9ACC1 R9PGSW R9EDT4 * P J P R9POSS DECK-ID R27 RPGII 2.1 SUMMARY-136 J r @P H w Ht
lnlnlo
nlklhl jic e $
lX
lUX! UC lOQM r r @P +lJ
lK KlH
HCBC l>>M l9 6D
T .$ +1( ' r r @P V$C h"T h H% S 1" T @ T r r @P k hh hh hh hh
h T h hh ll r r @P l ll
h H̿ H1 T k H# .H@ dR a ,T r f @P H
T
@T ؓȜ @ hT @T Ȑ f " PR9POSS R9POSO B9POSS yN9POSS" r PR9BASE POSSKA xPOSSPA wPOSSKB vPOSSPB uR9FLOW R9PUTS R9FLDL [R9OTMV R9CLRE R9BDPR qR9TSTN GR9FTOV R9UOTV r PR9WOTV R9AOTV R9OCOD t P J P +R9PRFN DECK-ID R29 RPGII 2.1 SUMMARY-135 J r @P l' L%% ! @ l T l T @ T $l b r
PR9PRFN
J PR9SBY R9BASE Y9RECP *Y9COUN )Y9FIPR (R9CLRE R9PUTS R9WOTV R9ZERO J P J P UR9PUTS DECK-ID R31 RPGII 2.1 SUMMARY-132 J r @P HN +HK *hH .> b#h? > 9h9 h6 `1/ X,`, *X
'@ r p @P +$T "T h 0 `X hT hH
T
h p " PR9PUTS B9PUTS ON9PUTSR9CVEA 2" 2 PR9LBYT AR9BASE R9SBYT GR9FILR 0R9IOCL -R9XLAT 82 P J P R9RDEN DECK-ID R33 RPGII 2.1 SUMMARY-132 J r @P H[ HZYHYV b hT QbO b hL J EB bA@
e<: h< 5h6 r r @P +
1h4 2T & h0*. 0
h+$ - h$"
h
r r @P V
h
h +h +# h 11 0
r F @P bh {h @ T
h m !
H F
PR9RDEN
J PR9LBY 0R9BASE 1R9MINS JR9ZERO PR9CHRA SR9CHRJ MR9AMPR FR9BLNK BR9TRAL J P J P R9READ DECK-ID R34 RPGII 2.1 SUMMARY-132 J @P T 0 T
PR9READ
PR9FLOW R9CNTR P J P (R9RSTS DECK-ID R39 RPGII 2.1 SUMMARY-132 J l @P h% T T T
! h h
h T l
PR9RSTS
2 PR9SETN $R9CRIN R9STTS R9INRM R9INRP R9INRZ 2 PEND J P R9SETF DECK-ID R47 RPGII 2.1 SUMMARY-132 J > @P T % h h
T >
PR9SETF
2 PR9FLOW R9CRIN R9NXTX R9AC3S R9AC1S R9STTS 2 PEND J P R9SETN DECK-ID R48 RPGII 2.1 SUMMARY-132 J N @P T H@ hdR e
dR d N
PR9SETN
PR9IDMX R9FTSW R9INTB P J P ZR9SKIP DECK-ID R50 RPGII 2.1 SUMMARY-135 J r @P hW HT & JbI2 lGG T DB 1 @ h>=T : h6 3 T !- r r @P +@ T
& b
b# !T b 3 X h & T b" l r @P V " PR9SKIP R9SOVS DB9SKIP WN9SKIP" Z PR9SBY (R9BASE )R9VSWT VR9SETN LR9CLRE R9PUTS /R9PRFN 9R9CRIN R9WOTV -R9ONES %R9OCOD GZ P J P R9SPAC DECK-ID R51 RPGII 2.1 SUMMARY-132 J P @P l bLT
!
b 7 T P
PR9SPAC
* PY9ASPC Y9APFX R9PRFN R9SOVS R9FTSW * P J P LR9STH0 DECK-ID R54 RPGII 2.1 SUMMARY-132 J r @P hBlF H? 7 H55 8r G `- dh T , (% r Z @P +T
*! d d T . A" Z
PR9STH0
: PR9MODE AY9ERCD KERRO46 R9CNCL ;R9CLIN 9R9CNTR =YERRSW 3: P J P eR9STLL DECK-ID R55 RPGII 2.1 SUMMARY-132 J r @P T 1 HR"' hM &HIIhJ hI$ CT ? %? h< H9'`
T
h0h51/ A,h/H- -T ` l'(h' r h @P + Dh" h D lh h h
1 E L h PR9UPK1 R9UPK2 R9UPK3 * PR9LBYT %R9MIW R9AC3S R9AC2S R9AC1S * PEND J P R9XCPT DECK-ID R71 RPGII 2.1 SUMMARY-132 J @P T 3 T
PR9XCPT
PR9FLOW R9CNTR P J P R9OTMG DECK-ID R20 RPGII 2.1 SUMMARY-132 J H @P dh hT T
H 00 00H H
PR9OTMG
PERRO46
P J P "R9XRSD DECK-ID R73 RPGII 2.1 SUMMARY-132 J \ @P h
! ! h
h
\
PR9XRSD
PR9MNIN
R9MONE R9MZER P J P :R9YCOD DECK-ID R74 RPGII 2.1 SUMMARY-132 J r @P X H2 h0H0/ h-, h*&h$ &"T h $ H
T r , @P + T + , PR9YCOD R9YCDE B PR9SBYT 3R9OTM1 R9ACC1 R9ZERO R9PERD %R9SLSH R9BLNK 0Y9INVP !B P J P 8R9ZCOD DECK-ID R76 RPGII 2.1 SUMMARY-132 J r @P X H. H-*h*H+ )h'& h' h% h ! T h h h
T r ( @P +
( PR9ZCOD R9ZCDE * PR9SBYT *R9OTM1 R9ACC1 R9BLNK 'R9ZERO * P J P READ09 DECK-ID S18 RPGII 2.1 SUMMARY-132 J r @P T ` # T
# T
. ;T 3#a r r @P + 5 T # T 1 . :*a / 0 B2a r r @P V2 Db 2 %1 b Xw 2bD bA 2
r r @P b g aBH,HW hP,
hT 3 p 7'a Ϡ2 h=1D r r @P h A 4 h hT *(d hT
b 2 Db 0 r J @P b 1 T Db T E J PREAD09 READ16 * PERRPRO STRACE R9DRTN ROOT44 ROOT43 * P J P READ10 DECK-ID S19 RPGII 2.1 SUMMARY-132 J r @P T ` # T
6T O . ;T 3 #a r r @P +? /b 1 . :*a 0 2 B2 a 2 Db r r @P V ~ 2 1 b Xn 2bD b "Xo hY6 r r @P ? /b
hT " k 7'a Ϡ2h @1D hA 4h hT - r r @P (dhT
b 2
D bb b : 4 D bT r r @P ( D bb b T 1 9b b T r @P h
PREAD10
2 PERRPRO STRACE R9DRTN ROOT45 ROOT44 ROOT43 2 P J P READ12 DECK-ID S21 RPGII 2.1 SUMMARY-132 J r @P T ` # T
$ <9 6 T 9 6T r r @P + ?/b 3# aT [ 1 Ϡ2 hh A h r r @P V""
:* b h T A b
"D b r r @P 1 b 1 1 :b k Db A1b 2 h r r @P hT f B2 a3 ) h h h o hT ( oo Q-y + r r @P @0 b"+ B2 a( :* aT 8 3# aF A!7 r @P b "Db 7 PREAD12 READ14 * PFMGETS ERRPRO (STRACE R9DRTN ROOT43 * P J P READ13 DECK-ID S22 RPGII 2.1 SUMMARY-137 J r @P T ` # T
3#a T % & 'T % . r r @P +, T # R b ! [ )h ( # r r @P VH oh
hT ( o oQ% ! %@ 0a 2% >.a 4 r r @P 2 :*a ?/ bDb bh h hT
2 Db r @P bT M PREAD13 READ15 * PFMREAD `ERRPRO /STRACE R9DRTN ROOT43 * P J P WRIT17 DECK-ID S23 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a T # T - 6T r r @P + 1T !! b Db 1b r r @P V*h* $ ah$ h
hT * e 7'a h
Π1h
A h T r r @P b b
0 A
1XT 9 f # A2
"f" r " @P b ! T " PWRIT17 WRIT24 * PERRPRO jSTRACE R9DRTN ROOT45 ROOT43 ~* P J P WRIT18 DECK-ID S24 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a (T S - T 1 r r @P + q ! ! b Db 1b A
<
hT $ Q > r r @P V7'a DH h
1h
A hT bb
0 A
! r Z @P # A 2
" f" b b bT T _ Z
PWRIT18
* PERRPRO RSTRACE R9DRTN ROOT45 ROOT43 i* P J P WRIT20 DECK-ID S26 RPGII 2.1 SUMMARY-132 J r @P T ` # T
% T - T 3#aT r r @P +1 T ' ! 1 b 8(a T / A 1bD b A r r @P Vh a h A hT b
0 A
2 XT G r r @P b b B8a5 )h 5 h oh a hT (
oo %A 1a %:* r @P a 3#a PWRIT20 ADDT30 * PFMPUTS ERRPRO STRACE {R9DRTN ROOT43 e* P J P WRIT21 DECK-ID S27 RPGII 2.1 SUMMARY-132 J r @P T ` # T
& T &
-, T 3#aT r r @P + @ 0aT # ) 1 ! 1 b )h
oh
r r @P V h hT ( oo ! 2! (: *aT + h h h
r r @P hT b
) h
oh h T ( o D b2 DboT t T r @P :* a x
PWRIT21
2 PFMUPDR FMREAD ]ERRPRO 6STRACE R9DRTN ROOT43 2 P J P WRIT23 DECK-ID S28 RPGII 2.1 SUMMARY-132 J r @P T ` # T
6 T / - ) , T 3#a r r @P +T 1 a hh h
aH2 hT h
r r @P VhT L
)h oh h h T ( oo T , &A 1a r 6 @P ! %: *a %=- a 6 " PADDT31 ADDT32 WRIT22 WRIT23 " * PFMWRIT nERRPRO $STRACE vR9DRTN ROOT43 X* P J P UPDT25 DECK-ID S29 RPGII 2.1 SUMMARY-132 J r @P T ` # T
( T P ,T 3#a / r r @P +T ?/ a1 T b .
h T , Q V 7'a? r r @P V 9 )b h hDh h 9 "aH A1hT 7 ! r T @P b 9b T 2 Db ?b T
PUPDT25
* PERRPRO NSTRACE 8R9DRTN ROOT45 ROOT43 q* P J P SETL33 DECK-ID S31 RPGII 2.1 SUMMARY-132 J r @P T ` 6 T
; T 9 3# a a &T ; ! r r @P + )h h o hDa h DbT ( o o"( 1 2 ! (:* aT r r @P V %B2 a3 #a 1 @0b b Db 2b B? bT T r
@P ~
PSETL33
" PFMREAD =ERRPRO #STRACE R9DRTN " P J P ROOT44 DECK-ID S37 RPGII 2.1 SUMMARY-137 J f @P #H T a#H # 2 1 b> .b f r @P ' T Q;h2 h0> b# $ &1 - H , < ,b
01 r r @P RX >.b T N _T
2 " 8 . . , ?/ b$ r r @P }T [ /ؠ @0b ", T > .b
h
r Z @P bX T * PX bB 2b b b Z
PROOT44
PERRPRO STRACE P J P ROOT45 DECK-ID S38 RPGII 2.1 SUMMARY-137 J H @P #H T a#H 1 yA b H r @P h9 A b> .bT ,Q;h) >b # $ 1 1 A1a r 0 @P F03
16 :*a T N V 8 0 r @P W
2" 8 . , $ A1a T R A 1b ?/b 3 r f @P T p :*a A1 b 2Db b b b T ) X f
PROOT45
PERRPRO STRACE P J P 0ERRO46 DECK-ID R91 RPGII 2.1 SUMMARY-132 J r @P d "h% h$h# h"
c dh E" h
"h d T ) * h ` r `P + PERRO46 ERRPRO PSYSMSG Y9IREG &R9ERTN # P J P ROOT60 DECK-ID S48 RPGII 2.1 SUMMARY-132 J @ @P @
a
a g @
PROOT60
P J P AROOT61 DECK-ID S49 RPGII 2.1 SUMMARY-132 J r @P @2 h0
ah) b[& &d2 h X" H h bT XHh h "H
r @P +h g @P 4 @P 8 B 0% PROOT43 MOVE P J P UPDT62 DECK-ID S50 RPGII 2.1 SUMMARY-132 J r @P T ` # T
B T , T 3#a / r r @P +T ? /a 1T ' ,h
H HHT T - 3 r r @P V;+ a 8(a b r r @P A1 bDb b h h hT )h h oh T ) o r > @P b 2 Db ?bo {: *a > " PUPDT27 UPDT28 UPDT29 UPDT26 " 2 PERRPRO SSTRACE 9R9DRTN ROOT43 ROOT60 JFMUPDR 2 P J P LFMMV63 DECK-ID S51 RPGII 2.1 SUMMARY-132 J r @P X XX XX XX XX XH5 h1A " h- h T l) ( l&% "h! r T @P +l l l T
@P K
J PFMCLR FMCLOS FMDELR FMGETS FMOPEN
FMPUTS FMREAD FMUPDR FMWRIT J R PFMCALL WRITER HUPDREC GREADR FPUTS EOPENFL DGETS CDELREC BCLOSFL ACLEAR @R P J P R9ENDL DECK-ID P58 RPGII 2.1 SUMMARY-132 J @P
PR9ENDL
PR9BEGN
P P *T P P *K,I8 P P *J,RMUCF0,$$ P P *K,I17 P P *K,P8 P P *P,F,3,R9BEGN P J P R9CNTR DECK-ID P44 RPGII 2.1 SUMMARY-132 J r @P h4h3 H0 T " hZ hY
hX hWhV hj hg XyhT e 1X]
r r @P +h ` h2H0 h0H) h(/ h.h.h. X/#h T & e 1 " "K hHX3E r r @P V j XM "h `
r r @P
! " h
X
" X X A "T $ H
"
" r @P T J PRPGFIL R9CNTR 6R9JUMP dR9SGTB pR9SGIX fR9CKSG uR9MUNO eATTCHK R9BRAK J J PR9PORT
R9MODE R9UNIT R9USER
SYSMSG PGMIN SLICUP ATTACH JR9RPRT J P J P SR9ROOM DECK-ID R35 RPGII 2.1 SUMMARY-132 J r @P r @P + T @P 4 T r PR9ROOT Y9PFCB Y9FDC1 Y9CMST Y9MMST Y9INMK
Y9MHLD Y9DETL Y9TOTL Y9LSTR
Y9DOTT Y9TOTT Y9EOTT Y9ALSQ r r PY9CARA Y9MARA Y9UDAT Y9UDAY Y9UYER Y9UMTH Y9FDTB Y9TBIO Y9CMOV AY9INTA BY9ITLP CY9LAHD DY9MMOV EY9NSQR Fr r PY9PAGE GY9TBOT HY9INVP Y9DSEQ Y9FBSE POSSPB POSSKB POSSPA POSSKA R9OCOD !R9RECP "R9TANF #R9TFLG $Y9APFX %r r PY9ASPC &Y9COUN 'Y9DTPT *Y9FDPR )Y9FIPR +Y9FIPT ,Y9FLPT -Y9FPTL (Y9FPTR .Y9FSSA /Y9HIND 0Y9HNUM 1Y9IBUF 2Y9KALA 4r r PY9KAPF 5Y9PSFG 6Y9RECP 7Y9RPTR 8Y9TOP1 9Y9VFT1 :Y9XRPF ;Y9XRTE R9ERTN ?Y9LABL r R PY9FTNX JY9FSTL KR9USER LR9UNIT PR9MODE QR9PORT RR9EDT1 R9EDT2 R9EDT3 R9EDT4 R r PR9FSTL KR9FTNX JR9LABL R9TRCE IR9FBSE R9DSEQ R9INVP R9TBIO R9FDTB R9UMTH R9UYER R9UDAY R9UDAT R9MARA r r PR9CARA R9ALSQ R9EOTT R9TOTT R9DOTT R9LSTR
R9TOTL R9DETL R9MHLD R9INMK
R9MMST R9CMST R9FDC1 R9PFCB r P J P R9RPRT DECK-ID R37 RPGII 2.1 SUMMARY-132 J r @P T ...... r , @P + , @P ; @P @ C ^ @P ^ r PR9RPRT R9INTB R9CLIN R9HTIN R9VIND
R9USND R9MRIN R9FCTR "R9STTS :R9HLFJ >R9REPT ?R9RYST @R9ACC1 YACC1B r r PYACC1O bR9AC1S R9AC2S R9AC3S R9AC1N rR9AC2N R9AC3N R9PPUP BR9UPOP aR9INRZ ;R9INRP R9POSO cN9POSS hr r PB9POSS ]R9POSS bR9OV50 aR9NXRC R9LAHD R9IOCL 9N9ICTL PB9ICTL KN9GETS +B9GETS R9GETS %FOV40 `N9FTOV gB9FTOV \r r PR9FTOV _N9FMAL DB9FMAL /R9FMAL 6N9FLOW fB9FLOW [R9FLOW ^R9EXIT UR9DSY1 #N9DSPY *B9DSPY R9DBG5 "R9DBG4 !R9DBG3 r b PR9DBG2 R9DBG1 N9DEBG )B9DEBG R9CMOV LR9CVEA 5N9BDPR CB9BDPR .R9BDPR 4N9ARTH XB9ARTH RR9ART1 Tb P J P R9ARTH DECK-ID P16 RPGII 2.1 SUMMARY-132 J r @P X c hX _
dX _^ ]W" " " X M
C GB r r @P +: ŀ ^h Q 74 1/ /h*$ h# a "
T r H @P V
X X Y p { H r @P {
d ȷ
nXL
]X; r r @P
d Ȣh$Ȟh!
X b T b
ȌX
r h @P h "a L h bH _ D
E A"h W hT _ h J PR9ADSB R9ZADS R9MULT R9DIVD R9XFOT R9MVRM B9ARTH eN9ARTHR9ART1J B PY9RPTRR9FLOWR9LEL R9RSTS TR9RYST R9STH0 R9BASE R9NXTX dB P J P !R9ASQR DECK-ID P17 RPGII 2.1 SUMMARY-132 J Z @P
h hH "h @ T h
h Z
PR9ASQR
PR9RDEN
P J P #R9ATON DECK-ID P18 RPGII 2.1 SUMMARY-132 J ^ @P h 2 H hT T Ll h
H
h T T L ^
PR9ATON
" PR9LBYT R9AC1S "R9XRSD R9STTS " PEND J P zR9BDPR DECK-ID P19 RPGII 2.1 SUMMARY-132 J r @P H s
h q H nf i *
l\[aT V SZT X'T @T O r r @P +hL hK
bH @"DT *@< @=:T 3* /- T h+ &@ T r b @P V T T * @d Ra b PR9BDPR B9BDPR uN9BDPR r PR9SBY 6R9BASE 7POSSKA qPOSSPA pPOSSKB oPOSSPB nR9FMAL KY9FSTL @R9PUTS UR9CLRE &R9OTMV >R9SPAC cR9SKIP \R9OCOD r " PR9PLUS rR9ZERO tR9BLNK sR9WOTV S" P J P R9BINP DECK-ID P27 RPGII 2.1 SUMMARY-135 J r @P Ho hm hlHj
lh ghe d_ ~h^
h]
W HW!
hUHQ QhQJ T lH r r @P +EF HT K*
~ d h9H32
l0/2 9XO ;( h* h'! r r @P VH X, %* H X"l h r r @P h hl h h X h hH
hؠ
l nѐh r r @P B @ ' d
r r @P g i y ` r @P
PR9BINP
" PR9LBY (R9BASE )R9CLR1 2R9ACC1 K" P J P R9BINT DECK-ID P28 RPGII 2.1 SUMMARY-132 J r @P HDh hCehCHA
l?> =8 h8[6h7 Wh3Th4 0 Fl.- . %)h#XJ &%F C.@ r r @P +h =h
l X5
h
1
h ! hH r r @P VM
HT h Ȉ A h hH
h
bтb
H r @P
PR9BINT
PR9SBYT [R9ACC1 k P J P )R9BITF DECK-ID P29 RPGII 2.1 SUMMARY-132 J n @P T ' h!H h h hh T hT h
h T n
PR9BITF
2 PR9SBY R9LBY R9BASE R9FLOW R9NXTX "R9AC1S 2 PEND J P *R9BITN DECK-ID P30 RPGII 2.1 SUMMARY-132 J p @P T & h"H h h hh T hT hd Rh T p
PR9BITN
: PR9SBY R9LBY R9BASE !R9FLOW R9NXTX #R9AC2S R9AC1S : PEND J P R9BGCL DECK-ID P25 RPGII 2.1 SUMMARY-132 J
PR9CLBG
P J P R9CALC DECK-ID P31 RPGII 2.1 SUMMARY-132 J N @P T T
T
d N
PR9CALC
: PR9NXTX Y9LSTR Y9TOTL Y9DETL R9PRCL R9FLOW YERRSW : P J P eR9CHAN DECK-ID P32 RPGII 2.1 SUMMARY-132 J r @P T , HYhX UT R HP ! "
T C- 7< ' h8h<&h6 r r @P +2/ h31/@ /T (% #$T h ! h T ` r , @P VT T ,
PR9CHAN
b PR9SBYT KR9BASE %R9FLOW R9CVEA WR9MVBT 4R9PCK1 =R9UPK1 R9BINT R9CNTR YR9NXTX R9ZERO HR9ACC1 @b P J P 9R9CHIN DECK-ID P34 RPGII 2.1 SUMMARY-132 J r @P Wd T ` l% T " ( T T h T
r * @P + T T )T *
PR9CHIN
b PY9FPTL 7R9INMV -R9SETN 2R9STH0 !R9ASQR R9CRIN R9GETS R9CNTR 4R9FRMK R9FCTR
R9INRP 0R9INTV b P J P R9CLPR DECK-ID P37 RPGII 2.1 SUMMARY-132 J r @P d
@ T
f"
<" "d T " bQ! r r @P + %T H 0T D 5d 7 ( T T E
h >" h 1X r r @P V
h I h 3 Hh T h 6 $ r r @P P "1I 3 ~ " hd x _" r r @P 8 "+H s h
h I-G E1* l 9, 6
b r r @P 1A h j * bAb# Db B h }X zb b!@ dRa r r @P B he6 hgT Hehf 1$^ [b^ .lT X ` QT KbN* JFbA r r @P -bGD b@ ;h< 89T 3T h401T %+T h, H'"h% r h @P + &# "h! h h hT
T > T h
PR9COMP
J PR9LEL CR9LBYT #R9GTL R9FLOW R9RSTS GR9NXTX IR9ADSB Y9ALSQ ,R9BLNK 8J P J P R9CRIN DECK-ID P46 RPGII 2.1 SUMMARY-132 J " @P T f H "
PR9CRIN
PR9IDMX R9INTB P J P R9DEBG DECK-ID P47 RPGII 2.1 SUMMARY-132 J r @P d
DEBUG- INDICATO RS ON- N ONE FIEL D ARRA Y TABL E VALUE T /H (
d h #X r r @P +X X " @ \c
H
( h T
1S
h r r @P V O h !
h h X > Ƞ h %h h h H r r @P
l ͜ h ! h
l
h X ` r r @P h \
h
h H T
h J @ h }T r r @P wX } z1o j@ \ X _ BXCZ hfK U @ h^\ HP@ r r @P \HJ FhJhS hE hBK T @0H@ 31h1 -- ,T NXi X8&/ r P @P -X h& h hh h @hT P r @P K h hX 1 @T h r r @P vh Ԉh @ T rʈ h h T X%X ȼ h Xȸh th̷ T r H @P رت ȯ ̪1 T @ T H B PR9DEBG R9DBG13R9DBG2bR9DBG3R9DBG4R9DBG5B9DEBGJN9DEBGB r PR9LEL R9BASE8R9MVBXR9SBYXR9FLOW R9PUTSR9CLREHR9MTRN R9UPK1'R9LOCLR9INDM R9TSTN R9RYST &R9NXTX2r * PR9DBGVR9ZEROR9MINSR9ACC1R9STTS l* P J P 4R9DETP DECK-ID P48 RPGII 2.1 SUMMARY-132 J r @P T
d T d l
l l 1 @ T T r @P + & 2
T PR9DETP YBGCYC
Z PY9HNUM 3Y9HIND 2R9STH0 +R9FLOW R9TP40 R9CNTR /R9VIND
R9OCOD R9VSWT Y9DOTT R9HTIN Z P J P ;R9DMND DECK-ID P50 RPGII 2.1 SUMMARY-132 J r @P T l21T T %T
d T hT r 0 @P +
T T T 0
PR9DMND
Z PR9INMV /R9ASQR R9STH0 6R9SETN +R9NXRC
R9CRIN R9BLTR #R9CNTR 1R9INRZ R9FCTR Y9FPTR 9Z P J P -R9DSPY DECK-ID P51 RPGII 2.1 SUMMARY-132 J r @P T . H
d " h H " h @ h T ` ( T
r r @P + b @ %T h X h ~
H }X {@{ T v@ $T p ho r r @P Viq oh1 khdc f@bT f[ `T[ Vh\ YT g NT
hQJhJ IT t r r @P hK ! D! @ @dR 6h: 7 H50
l-$$1 h '$h" r r @P h T h l
T @T r r @P K hh ) b T h h h T s 1! r r @P T hȶ hȹ 1ȵh Ȼ b ȷ@T e @ % T 1 DS PLY r " PR9DSPY B9DSPY N9DSPYR9DSY1 " r PR9LBY R9SBY R9MVB R9BASE R9FLOW R9UPK1 R9PCK1 R9CLR1 xWRIT17,READ09+R9GETS QR9PUTS&R9MTRN (R9CLRE r : PR9RYST R9NXTX R9MINSR9NINE R9ZERO R9BLNK pR9ACC1 : P J P R9ECOD DECK-ID P54 RPGII 2.1 SUMMARY-132 J r @P X HjHi x he'Hd HbHbHl [& g# hW a & hQ hML XYKXWE r r @P +hI hG HE $ ?h?H=6 h= D h9 ,5h*, h*) h.-X3 *h( 3 r r @P V
Q h X% 5
h %
h h JX r r @P H T h h X " H1 Xh h ʠ$ X( r r @P T T hɔ 1 k 6XȹT 1ȵ h T 2 Ȩ T إ r
@P
PR9ECOD R9ECDE r PR9LBYT R9GTL R9SBYT R9OTM1 R9CHAR $R9CHRC !R9ACC1 R9EDT3 Y9INVP UR9EDT4 =< 9h7 5&"h4 ,1 (h&% X,X0! F#! T D
r r @P VX
h ` T h! H T h r * @P HX Dh
t * PR9EDCN R9EDNE r PR9LBYT ~R9SBYT rR9GTL OR9CMBD R9OTM1 R9ACC1 nR9DOLR bR9STAR aR9BLNK cR9ZERO _R9MINS ^R9CHAR ]R9EDT2 R9EDT1 r P J P R9EDIT DECK-ID P56 RPGII 2.1 SUMMARY-132 J , @P T T T T T , " PY9ECDE Y9EDNE Y9YCDE Y9ZCDE " * PR9CNTR R9ZCDE
R9YCDE R9EDNE R9ECDE * P J P R9EXCP DECK-ID P60 RPGII 2.1 SUMMARY-132 J " @P
d T T "
PR9EXCP
" PR9CNTR R9TP40 R9OCOD Y9EOTT " P J P %R9EXIT DECK-ID P61 RPGII 2.1 SUMMARY-132 J d @P T )
T )"
""h
H
" \ d
PR9EXIT
* PR9NXTX Y9LABL #R9PONT !R9FLOW
Y9FTNX * P J P /R9FILR DECK-ID P62 RPGII 2.1 SUMMARY-132 J r @P @ D 3
hH
!hH T "
'& #$% r @P + (
PR9FILR
PR9STH0 R9FRMK P J P 3R9FLDL DECK-ID P64 RPGII 2.1 SUMMARY-132 J r @P " h+*
h% h%$ h!-H h h1 h
h @ r @P +
PR9FLDL
PR9BASE Y9FBSE Y9FDTB P J P R9FLOW DECK-ID P65 RPGII 2.1 SUMMARY-132 J J @P hH h h
T
\
T
J PR9FLOW B9FLOW N9FLOW " PY9TRCE R9REST R9SAVT R9SAVE " P J P AR9FMAL DECK-ID P66 RPGII 2.1 SUMMARY-132 J r @P h< h8 h7H33 h) ` ( T $ @ "T @ T T r > @P + Fh\ T ( h
b > PR9FMAL B9FMAL ;N9FMAL J PR9SAVP 0R9SAVE 'R9REST /Y9IBUF 2Y9FSTL *R9MVBX R9BASE R9PUTS %R9WOTV #J P J P R9FNBG DECK-ID P67 RPGII 2.1 SUMMARY-132 J
PR9FNBG
P J P R9FORC DECK-ID P68 RPGII 2.1 SUMMARY-132 J 4 @P T -H " 0H D 4
PR9FORC
PR9FLOW R9FFCB
R9NXTX P J P :R9FTOV DECK-ID P71 RPGII 2.1 SUMMARY-135 J r @P h5 h4H14b " +T
d X X b 2d "h#` C r , @P +T H A , " PR9FTOV B9FTOV 5N9FTOVFOV40 /" 2 PY9DOTT Y9TOTT R9TSTN R9POSO -R9OCOD R9FTSW !2 P J P ]R9GETS DECK-ID P72 RPGII 2.1 SUMMARY-132 J r @P HV ! HR
O@ LT J T G 1
0B @dR a9: h6h5 D ( r r @P ++ `+)X
& ! `#!X h 0 `X hT hT
h r @P V " PR9GETS B9GETS WN9GETSR9CVAE ;" : PR9LBYT JR9BASE !R9SBYT NR9FILR R9IOCL
R9XLAT AR9TFLG *: P J P GR9GOTO DECK-ID P73 RPGII 2.1 SUMMARY-132 J r @P T + f" b
d T T (
h%$ d T * r N @P + $d + .2 T 0 9" d $ N PR9GOTO R9EXSR R9NDSR ' R PR9FLOW (R9STH0 5R9NXTX ER9STRT &R9UPOP R9PPUP @Y9LABL R9INRZ d : 9 h=74 9h2 +J h2)0 h/ h+
l-
@ T r r @P `Q" :"#3 AR h
h h r r @P T ` h T h1 XDT Ah h hA T T r r @P -A h
q
T (ȼ T H T شhX̲
lȫ
lXT Cآh r @P X ȝ T Ț h
PR9INMV
r PR9SBYT R9LBYTUR9MIW R9BASE R9CRIN RR9LOD1]R9BINP>R9CVEA:R9UPK1,R9PCK1R9LCAE R9FLDL R9SETN MR9TSTN 6r * PR9MINSMR9BLNKR9NINE R9AC1N R9ACC1 * P J P R9IOCL DECK-ID P83 RPGII 2.1 SUMMARY-132 J @ @P H
hD a h T \ T
@ PR9IOCL R9DRTN PR9SAVP R9REST R9SAVE P J P !R9LAHD DECK-ID P87 RPGII 2.1 SUMMARY-132 J Z @P L l ( T @
T ,
@d Ra Z
PR9LAHD
" PY9KALA Y9KAPF R9INMV R9NXRC " P J P `R9LCAE DECK-ID P89 RPGII 2.1 SUMMARY-132 J r @P HR hRHPT HOhOHM #JA GhIHE FhF>> T h< H99h7 60,3 r r @P +/h./ h-,h( + ):"" T B T N T
hT
ld @ r @P V
PR9LCAE
J PR9LEL @R9GTL ;R9CLR1 IR9UPK1 YACC1B MR9ACC1 _R9STH0 CR9LOCL R9FLDL J P J P 3R9LEL DECK-ID P90 RPGII 2.1 SUMMARY-132 J r @P h,H, h&H% H$h$!H "h" H *
h !d #h r @P + PR9LEL R9GTL P J P YR9LKUP DECK-ID P91 RPGII 2.1 SUMMARY-135 J r @P T #
H d "h
" "\Fh
h q
Lo"lo h h
hi Dh la r r @P +h h m\&
h[g \!
hV \
hP
hPI hL .
hG
ChBO MLMlK9 1@ r r @P V
l401 l.T
H "` \p
H "3 l"h hT a
r r @P H t" ` y \T
T hh ch]b bbh`Y YhWQ
YY r r @P "\ JhP EhMh Lh\ hE\d Ah@ <! " Ƚ r r @P - A :\
h̶ <T ȡ T ̩ - r r @P
R h hH ̅\
h \
h1 6 r r @P -T f"" ̾`\ ȿf" "̽`ȹ \T ȷ3
Ad M d r
@P X
PR9LKUP
r PR9MVBT R9CLR1GR9BINT R9NXTX1R9LOCL ~R9PCK1/R9LEL R9GTL R9SETN R9INRZ R9INRM R9CRIN WR9INRP YACC1BTr " PR9LBYT VR9BASE R9RYST R9FLOW " P J P /R9LOAD DECK-ID P92 RPGII 2.1 SUMMARY-132 J r @P h( 4h%T "T T H !H l
h hl h
h H
T h l r @P +
PR9LOD1
" PR9LBYT !R9CLR1 R9XRSD R9AC1S ." P J P R9LOCL DECK-ID P93 RPGII 2.1 SUMMARY-132 J T @P " hA h H @h T
PR9LOCL
PR9BASE Y9FDTB Y9FBSE P J P 6R9LRCK DECK-ID P94 RPGII 2.1 SUMMARY-132 J r @P
h.
h,H, + " 'H'Q
h$ h h dR h0 $
$ r " @P + "
PR9LRCK
PR9LRSW .Y9PFCB P J P HR9LSMB DECK-ID P95 RPGII 2.1 SUMMARY-132 J r @P X X X X+ 4 0 X $T + hDa r ( @P +
D a " ( , @P 9 $ T ! + , b PR9SBYX R9LBYX R9MVBX R9MIBX 9R9MVB R9LBY R9SBY R9MIB
R9MVBT R9LBYT R9SBYT R9BYTA b PR9STH0 =R9BASE G P J P R9MMOV DECK-ID P98 RPGII 2.1 SUMMARY-132 J r @P `H{ Ch R H m hig hb h!$ ! r r @P + TT " +"L T JH Ɛh B@ `ȽT ;Ϡ ht 4T 0T
r r @P Vd Ȩ (T Ȥ A#
h! O
XR G% T T hH ! T rh
hH r r @P
h h
X)T z hH
X"4
h
h d !d dR r r @P h
d d " I h1 h h h ! T 0hT زز r > @P ט" Ȭh t ȡ @T E >
PR9MMOV
r PR9MVBT R9SBYT 7R9LBYT R9BASE R9NXFL R9STH0 nR9PCK1 [R9LOD1 PR9UPK1 TY9MHLD Y9MARA R9MRSW R9MRPR R9CFIL r " PY9DSEQ R9ACC1 WY9ALSQ 3Y9MMST " P J P "R9MOVA DECK-ID P99 RPGII 2.1 SUMMARY-132 J \ @P T
d h h 2
h
` T \
PR9MOVA
" PR9MVBT R9FLOW R9NXTX R9RYST " PEND J P R9MOVE DECK-ID R01 RPGII 2.1 SUMMARY-135 J r @P T `
"l# l"l! h h %
LA A "Ah " B \ . \ V \ a \ r r @P + !5 "_ T V WT T d | NL4M hLHhHF FhDEhD BAB@ ?T U r r @P V99" 6h67 4T
0-11 )*T 8% h' '! " " ~ h r r @P 1# h Ȣ / 3 " `2 T T r r @P . %/ -`) "&l& T T " `T T ȿT r @P "ص @
PR9MOVE
r PR9MVW R9MVBT TR9XRSD >R9LBYT T # $7h; 7 h53 2dR h-+T 7 ' #h# dRh r T @P V T I J LT 6 Y h dRh T X _ [ T
PR9MOVZ
2 PR9SBY kR9LBY ^R9BASE lR9FLOW R9NXTX nR9AC1S 2 PEND J P +R9MTRN DECK-ID R03 RPGII 2.1 SUMMARY-132 J r @P H% h" h H T h h
T r
PR9MTRN
" PR9SBY R9LBY R9BASE R9XLAT " P J P 3R9MTWK DECK-ID R04 RPGII 2.1 SUMMARY-141 J r @P T d
d
#T \ h L"h T
,\ lT r @P +
PR9MTWK
Z PR9NXFL Y9PFCB R9CFIL 0R9FLOW R9CNTR +R9LAHD /R9INMV
R9NFCB .R9MRSW R9MRIN Y9LAHD Z P J P R9MVWD DECK-ID R10 RPGII 2.1 SUMMARY-132 J @P "
PR9MVW
P J P R9MWI DECK-ID R11 RPGII 2.1 SUMMARY-132 J & @P D "2 &
PR9MIW
P J P iR9NRMX DECK-ID R12 RPGII 2.1 SUMMARY-132 J r @P h
'h_
h^ h\
h[Y 2 V hTR
lPN ! KI FlGF !C
hA? l= r r @P +< !8 d h64 l1/ ++ h)&! %%l#
h" ! l
l
l r 6 @P VȺh
l h 1 ޭ 6
PR9NRMX
PEND J P GR9NSQR DECK-ID R13 RPGII 2.1 SUMMARY-132 J r @P hC HA" h>=@: T h9 41
0) T 9& b$h#
r N @P +
@@ dRa h 9 b b
N
PR9NSQR
PR9RDEN R9STH0 P J P )R9NTOA DECK-ID R14 RPGII 2.1 SUMMARY-132 J n @P h#4 h$$H !T h h T h h
T h T n
PR9NTOA
" PR9LEL R9SBYT R9AC1S (R9CMBD " PEND J P "R9NXFL DECK-ID R15 RPGII 2.1 SUMMARY-132 J \ @P
h "HA d h 0
h \
PR9NXFL
PY9PFCB R9CFIL P J P .R9NXRC DECK-ID R16 RPGII 2.1 SUMMARY-132 J r @P
l+ 0L' ! @ T
l
T @ T 0
l r @P +
PR9NXRC
2 PY9XRTE -Y9XRPF ,R9GETS "R9RCAD R9TRAL R9INTV 2 P J P R9OTMV DECK-ID R21 RPGII 2.1 SUMMARY-132 J r @P Lz lyHr
h
hol Khl )i" . M ` h } f
_ 1n
X U Xb P
r r @P +h
GT C+ @>+ :9 H
3
1 - 1b )
'd $ r r @P Vd QA h T H H
h
B ` Th WX
h r r @P `T d hW hX-hW
hR qhI I
lRA h @T b r r @P LHd 0H7 `3 T H-
+h) *T
h H# h
1 & T r r @P T ȟ ?
}@h Ȗ hp ho "bHf XmA ha T r r @P T Wh
XP$ hNT GEEhC XJB@@ @T < h8 8h8!4 h6 2 r r @P -T / . !h*X # h " T h hX Xw h
A h
r r @P X T mT h X@ T `T h# r r @P h X8
hX h
hX h# hX&
h T HȲ`
q
r b @P ȳ
hȭ
hȧ HȗT . 5O~ b PR9OTMV R9OTM1 R9PGSW r PR9SBYTR9LEL gR9MVBTuR9BASE R9ZCODR9YCODR9EDCNR9BINTR9STH0jR9TSTN 1R9CMBDAR9CVAE{R9PCK1R9CLR1 r r PR9ECOD R9PAGE R9UPK1 R9LOCL R9LCAE R9FLDL R9BLNK+R9PLUSR9ACC1VR9MINSY9PAGE R9EDT4 R9EDT3 R9EDT2 Yr
PR9EDT1 W
P J P R9BGOT DECK-ID P26 RPGII 2.1 SUMMARY-132 J
PR9OTBG
P J P
R9OTPT DECK-ID R22 RPGII 2.1 SUMMARY-132 J @P
PR9OTPT
J PY9EDNE Y9YCDE Y9ZCDE Y9ECDE YBGCYC R9DETP R9EXCP R9OVOP R9TTOP J P J P :R9OVOP DECK-ID R23 RPGII 2.1 SUMMARY-132 J r @P
H6- " "
!
b "
T T r , @P +T T -
d $T ,
PR9OVOP
b PR9FLOW (R9OV50 1R9OCOD R9CNTR 6Y9DOTT /Y9TOTT +R9FTSW 4Y9FDTB R9SKIP R9BASE
R9VIND "R9CLIN b P J P 7R9OV50 DECK-ID R24 RPGII 2.1 SUMMARY-132 J r @P L43 / L.-h* )B " h" ! L " b 2
r & @P +d T H L &
PR9OV50
: PR9POSS .R9FTSW &R9OCOD ,Y9FDTB R9BASE Y9VFT1 6Y9FSSA 5: P J P LR9PACK DECK-ID R25 RPGII 2.1 SUMMARY-132 J r @P hE h h> h>h;
h: 7A4h3
5a
h31h/ .Ġ h,(h'( (dR h# T r Z @P + H h h hh
h T * l Z PR9PCK1 R9PCK2 PR9SBYT @R9AC2S R9AC1S
PEND J P !R9PAGE DECK-ID R26 RPGII 2.1 SUMMARY-132 J Z @P h +H HT h
l T Z
PR9PAGE
* PR9PCK1 R9CLR1 R9ACC1 R9PGSW R9EDT4 * P J P R9POSS DECK-ID R27 RPGII 2.1 SUMMARY-136 J r @P H w Ht
lnlnlo
nlklhl jic e $
lX
lUX! UC lOQM r r @P +lJ
lK KlH
HCBC l>>M l9 6D
T .$ +1( ' r r @P V$C h"T h H% S 1" T @ T r r @P k hh hh hh hh
h T h hh ll r r @P l ll
h H̿ H1 T k H# .H@ dR a ,T r f @P H
T
@T ؓȜ @ hT @T Ȑ f " PR9POSS R9POSO B9POSS yN9POSS" r PR9BASE POSSKA xPOSSPA wPOSSKB vPOSSPB uR9FLOW R9PUTS R9FLDL [R9OTMV R9CLRE R9BDPR qR9TSTN GR9FTOV R9UOTV r PR9WOTV R9AOTV R9OCOD t P J P +R9PRFN DECK-ID R29 RPGII 2.1 SUMMARY-135 J r @P l' L%% ! @ l T l T @ T $l b r
PR9PRFN
J PR9SBY R9BASE Y9RECP *Y9COUN )Y9FIPR (R9CLRE R9PUTS R9WOTV R9ZERO J P J P UR9PUTS DECK-ID R31 RPGII 2.1 SUMMARY-132 J r @P HN +HK *hH .> b#h? > 9h9 h6 `1/ X,`, *X
'@ r p @P +$T "T h 0 `X hT hH
T
h p " PR9PUTS B9PUTS ON9PUTSR9CVEA 2" 2 PR9LBYT AR9BASE R9SBYT GR9FILR 0R9IOCL -R9XLAT 82 P J P R9RDEN DECK-ID R33 RPGII 2.1 SUMMARY-132 J r @P H[ HZYHYV b hT QbO b hL J EB bA@
e<: h< 5h6 r r @P +
1h4 2T & h0*. 0
h+$ - h$"
h
r r @P V
h
h +h +# h 11 0
r F @P bh {h @ T
h m !
H F
PR9RDEN
J PR9LBY 0R9BASE 1R9MINS JR9ZERO PR9CHRA SR9CHRJ MR9AMPR FR9BLNK BR9TRAL J P J P R9READ DECK-ID R34 RPGII 2.1 SUMMARY-132 J @P T 0 T
PR9READ
PR9FLOW R9CNTR P J P DR9RSLT DECK-ID R38 RPGII 2.1 SUMMARY-132 J r @P H @P T % h h
T >
PR9SETF
2 PR9FLOW R9CRIN R9NXTX R9AC3S R9AC1S R9STTS 2 PEND J P R9SETN DECK-ID R48 RPGII 2.1 SUMMARY-132 J N @P T H@ hdR e
dR d N
PR9SETN
PR9IDMX R9FTSW R9INTB P J P CR9SHFT DECK-ID R49 RPGII 2.1 SUMMARY-132 J r @P H h;5 5h6 41 h1.h0 /l-
l, )*1 'h%" " h
h h r D @P +h l!
l
!
h D PR9SHFT YLSPAR > PEND J P ZR9SKIP DECK-ID R50 RPGII 2.1 SUMMARY-135 J r @P hW HT & JbI2 lGG T DB 1 @ h>=T : h6 3 T !- r r @P +@ T
& b
b# !T b 3 X h & T b" l r @P V " PR9SKIP R9SOVS DB9SKIP WN9SKIP" Z PR9SBY (R9BASE )R9VSWT VR9SETN LR9CLRE R9PUTS /R9PRFN 9R9CRIN R9WOTV -R9ONES %R9OCOD GZ P J P R9SPAC DECK-ID R51 RPGII 2.1 SUMMARY-132 J P @P l bLT
!
b 7 T P
PR9SPAC
* PY9ASPC Y9APFX R9PRFN R9SOVS R9FTSW * P J P R9SQRT DECK-ID R53 RPGII 2.1 SUMMARY-132 J r @P T
hjHg hhdT
@ T \
T TSA hPhOK "hK
FHD r r @P +E
hD
hC hA?
6 5 0h2 1 +T
h)
@ T ! r r @P Vh h f P
h Hq
f ` T
h
h r r @P ; k f !
h
ن f T y K f r r @P Q
Hȿ غ
T J X خȭ ȭ h
T | 1T r @P
ȕT
PR9SQRT
r PR9MIW TR9FLOW R9SHFT R9UPK3 R9RSLT R9STH0 R9NRMX R9NXTX R9AC3N R9AC2N R9AC1N R9AC3S R9AC2S zYACC1B r
PR9AC1S
P J P LR9STH0 DECK-ID R54 RPGII 2.1 SUMMARY-132 J r @P hBlF H? 7 H55 8r G `- dh T , (% r Z @P +T
*! d d T . A" Z
PR9STH0
: PR9MODE AY9ERCD KERRO46 R9CNCL ;R9CLIN 9R9CNTR =YERRSW 3: P J P eR9STLL DECK-ID R55 RPGII 2.1 SUMMARY-132 J r @P T 1 HR"' hM &HIIhJ hI$ CT ? %? h< H9'`
T
h0h51/ A,h/H- -T ` l'(h' r h @P + Dh" h D lh h h
1 E L h PR9UPK1 R9UPK2 R9UPK3 * PR9LBYT %R9MIW R9AC3S R9AC2S R9AC1S * PEND J P R9XCPT DECK-ID R71 RPGII 2.1 SUMMARY-132 J @P T 3 T
PR9XCPT
PR9FLOW R9CNTR P J P R9OTMG DECK-ID R20 RPGII 2.1 SUMMARY-132 J H @P dh hT T
H 00 00H H
PR9OTMG
PERRO46
P J P "R9XRSD DECK-ID R73 RPGII 2.1 SUMMARY-132 J \ @P h
! ! h
h
\
PR9XRSD
PR9MNIN
R9MONE R9MZER P J P :R9YCOD DECK-ID R74 RPGII 2.1 SUMMARY-132 J r @P X H2 h0H0/ h-, h*&h$ &"T h $ H
T r , @P + T + , PR9YCOD R9YCDE B PR9SBYT 3R9OTM1 R9ACC1 R9ZERO R9PERD %R9SLSH R9BLNK 0Y9INVP !B P J P 8R9ZCOD DECK-ID R76 RPGII 2.1 SUMMARY-132 J r @P X H. H-*h*H+ )h'& h' h% h ! T h h h
T r ( @P +
( PR9ZCOD R9ZCDE * PR9SBYT *R9OTM1 R9ACC1 R9BLNK 'R9ZERO * P J P READ09 DECK-ID S18 RPGII 2.1 SUMMARY-132 J r @P T ` # T
# T
. ;T 3#a r r @P + 5 T # T 1 . :*a / 0 B2a r r @P V2 Db 2 %1 b Xw 2bD bA 2
r r @P b g aBH,HW hP,
hT 3 p 7'a Ϡ2 h=1D r r @P h A 4 h hT *(d hT
b 2 Db 0 r J @P b 1 T Db T E J PREAD09 READ16 * PERRPRO STRACE R9DRTN ROOT44 ROOT43 * P J P READ10 DECK-ID S19 RPGII 2.1 SUMMARY-132 J r @P T ` # T
6T O . ;T 3 #a r r @P +? /b 1 . :*a 0 2 B2 a 2 Db r r @P V ~ 2 1 b Xn 2bD b "Xo hY6 r r @P ? /b
hT " k 7'a Ϡ2h @1D hA 4h hT - r r @P (dhT
b 2
D bb b : 4 D bT r r @P ( D bb b T 1 9b b T r @P h
PREAD10
2 PERRPRO STRACE R9DRTN ROOT45 ROOT44 ROOT43 2 P J P >READ11 DECK-ID S20 RPGII 2.1 SUMMARY-132 J r @P T ` # T
& $T . T B r r @P + G T ,. 0 , T T Bb r r @P V @ b /T ! @ A?b / +
b /h 1) r r @P " b h
h D h h T A2
D
h h r r @P A 4 h h
# 2hT
a
b d m b 1 r r @P b b #A 2 A 2 a !
T a 7' r r @P aa h
!4h h
# 2hT
a
bd r 2 @P -: *a2 a3 #aT 2
PREAD11
J PERRPRO STRACE;R9DRTN ERRO46 ROOT44 4ROOT43NTAP48 MNTAP49 KNTAP55 J P J P READ12 DECK-ID S21 RPGII 2.1 SUMMARY-132 J r @P T ` # T
$ <9 6 T 9 6T r r @P + ?/b 3# aT [ 1 Ϡ2 hh A h r r @P V""
:* b h T A b
"D b r r @P 1 b 1 1 :b k Db A1b 2 h r r @P hT f B2 a3 ) h h h o hT ( oo Q-y + r r @P @0 b"+ B2 a( :* aT 8 3# aF A!7 r @P b "Db 7 PREAD12 READ14 * PFMGETS ERRPRO (STRACE R9DRTN ROOT43 * P J P READ13 DECK-ID S22 RPGII 2.1 SUMMARY-137 J r @P T ` # T
3#a T % & 'T % . r r @P +, T # R b ! [ )h ( # r r @P VH oh
hT ( o oQ% ! %@ 0a 2% >.a 4 r r @P 2 :*a ?/ bDb bh h hT
2 Db r @P bT M PREAD13 READ15 * PFMREAD `ERRPRO /STRACE R9DRTN ROOT43 * P J P WRIT17 DECK-ID S23 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a T # T - 6T r r @P + 1T !! b Db 1b r r @P V*h* $ ah$ h
hT * e 7'a h
Π1h
A h T r r @P b b
0 A
1XT 9 f # A2
"f" r " @P b ! T " PWRIT17 WRIT24 * PERRPRO jSTRACE R9DRTN ROOT45 ROOT43 ~* P J P WRIT18 DECK-ID S24 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a (T S - T 1 r r @P + q ! ! b Db 1b A
<
hT $ Q > r r @P V7'a DH h
1h
A hT bb
0 A
! r Z @P # A 2
" f" b b bT T _ Z
PWRIT18
* PERRPRO RSTRACE R9DRTN ROOT45 ROOT43 i* P J P WRIT20 DECK-ID S26 RPGII 2.1 SUMMARY-132 J r @P T ` # T
% T - T 3#aT r r @P +1 T ' ! 1 b 8(a T / A 1bD b A r r @P Vh a h A hT b
0 A
2 XT G r r @P b b B8a5 )h 5 h oh a hT (
oo %A 1a %:* r @P a 3#a PWRIT20 ADDT30 * PFMPUTS ERRPRO STRACE {R9DRTN ROOT43 e* P J P MWRIT19 DECK-ID S25 RPGII 2.1 SUMMARY-141 J r @P T ` # T
, $T !- T B r r @P 2+9 / ,A 1a
1f" T T ?b
1"h r r @P ] 1b / +
b/ +
A
;T ( 7'a r r @P a/ A h !4h # 1hh T
a
b A
r r @P b 2 b1 b b T X ls
!A b Db
H r r @P A h
b# 1h
h T h !4h #1 hhT r r @P
a
b+ ++ b Db b 2b 1 b b r F @P 4+ T X T 3#a 8( a F
PWRIT19
B PERRPRO STRACE@R9DRTN ERRO46 ROOT43ROOT45:NTAP49 NNTAP48 PB P J P WRIT21 DECK-ID S27 RPGII 2.1 SUMMARY-132 J r @P T ` # T
& T &
-, T 3#aT r r @P + @ 0aT # ) 1 ! 1 b )h
oh
r r @P V h hT ( oo ! 2! (: *aT + h h h
r r @P hT b
) h
oh h T ( o D b2 DboT t T r @P :* a x
PWRIT21
2 PFMUPDR FMREAD ]ERRPRO 6STRACE R9DRTN ROOT43 2 P J P WRIT23 DECK-ID S28 RPGII 2.1 SUMMARY-132 J r @P T ` # T
6 T / - ) , T 3#a r r @P +T 1 a hh h
aH2 hT h
r r @P VhT L
)h oh h h T ( oo T , &A 1a r 6 @P ! %: *a %=- a 6 " PADDT31 ADDT32 WRIT22 WRIT23 " * PFMWRIT nERRPRO $STRACE vR9DRTN ROOT43 X* P J P UPDT25 DECK-ID S29 RPGII 2.1 SUMMARY-132 J r @P T ` # T
( T P ,T 3#a / r r @P +T ?/ a1 T b .
h T , Q V 7'a? r r @P V 9 )b h hDh h 9 "aH A1hT 7 ! r T @P b 9b T 2 Db ?b T
PUPDT25
* PERRPRO NSTRACE 8R9DRTN ROOT45 ROOT43 q* P J P SETL33 DECK-ID S31 RPGII 2.1 SUMMARY-132 J r @P T ` 6 T
; T 9 3# a a &T ; ! r r @P + )h h o hDa h DbT ( o o"( 1 2 ! (:* aT r r @P V %B2 a3 #a 1 @0b b Db 2b B? bT T r
@P ~
PSETL33
" PFMREAD =ERRPRO #STRACE R9DRTN " P J P ROOT44 DECK-ID S37 RPGII 2.1 SUMMARY-137 J f @P #H T a#H # 2 1 b> .b f r @P ' T Q;h2 h0> b# $ &1 - H , < ,b
01 r r @P RX >.b T N _T
2 " 8 . . , ?/ b$ r r @P }T [ /ؠ @0b ", T > .b
h
r Z @P bX T * PX bB 2b b b Z
PROOT44
PERRPRO STRACE P J P ROOT45 DECK-ID S38 RPGII 2.1 SUMMARY-137 J H @P #H T a#H 1 yA b H r @P h9 A b> .bT ,Q;h) >b # $ 1 1 A1a r 0 @P F03
16 :*a T N V 8 0 r @P W
2" 8 . , $ A1a T R A 1b ?/b 3 r f @P T p :*a A1 b 2Db b b b T ) X f
PROOT45
PERRPRO STRACE P J P 0ERRO46 DECK-ID R91 RPGII 2.1 SUMMARY-132 J r @P d "h% h$h# h"
c dh E" h
"h d T ) * h ` r `P + PERRO46 ERRPRO PSYSMSG Y9IREG &R9ERTN # P J P NTAP48 DECK-ID S39 RPGII 2.1 SUMMARY-141 J r @P XXXXXX XX, MOUN T XXXXXX ON LU XX, RI NG,READY ? HDR1 0001000 r r @P +100 YY DDD YYDD D 000000 R ING #" a# h& h& Dn
q r r @P Vh n
q n
q
n
n
nT ( o
"' $$MOUNTS $$ r r @P h"n
q
HX" 3 1 B2a h hT ( oH
" h r n @P h hT ( o h hX 2% <, b h hT ( o
H h T n r @P +hT
B0F 4Ȁ 00h "
"+ NO h T L T r r @P NO
b! 0T w *h =- b :*bT r r @P -
HT * ' T A Y1 *
HT (
"j h
H
+H r r @P XX* T 6 E 0
H T 0 51
.
! T _ r r @P hm hk
heb a]^
"
H
"HX r r @PT } B HDR1VOL1
"h5 h4$h3
h hD h
h SH BH r r @P ٠
0 hB F h
T C .T h )T T r r @P
) e'
"
"HT @ T 1T H T r r @P / Y TT
"HT B0FHB 0F 00HB0F 4Ȁ 00hT ? r r @PZ %@
HT Y 0 T T b - " hT k 6
* DT G (T 9 r : @P T 8(aT T 4 :
PNTAP48 F
j PERRPRO+STRACEFMDELR FMREAD FMCLOS FMOPEN oERRO46 NTAP55ROOT43uNTAP57/NTAP53hNTAP52%NTAP58j P J P NTAP49 DECK-ID S40 RPGII 2.1 SUMMARY-132 J r @P +#" a#. ) -T : 8 EOȿ V1B 2aE , XCB r r @P Vb @b6 -# / T : , T T g "X" Ab @?b A1 r P @P a , T q X
T T T b P
PNTAP49 -
PSTRACE NTAP55 NTAP56 o P J P NTAP52 DECK-ID S41 RPGII 2.1 SUMMARY-132 J r @P 0 Hoh Xlh HXgh
(h h !2
S
Q H0%A
h^ XJh r r @P 9
H XEhXB h d( h
( h
/ȱ n m"
$ȧ 6 2
2
hHȜ r J @P d- h+
h h "
h 2
ؒ J N @P h
hF 2
N
PNTAP52
P J P tNTAP53 DECK-ID S42 RPGII 2.1 SUMMARY-132 J r @P d 0 hH hh h H0%A 0FhHш Hl
r r @P 9hƐ$ "
u h
h Ȼ 8h 0FhHȵ h hȮ n Ȫh h r 0 @P dȣ nȣ ȥh
hثȘ蘀 0
PNTAP53
P J P NTAP54 DECK-ID S43 RPGII 2.1 SUMMARY-132 J r @P Dh h
h} h|y
B0FHf B0Fb 00H_B 0FH[B0F W 00 HTB0F r r @P +2 00 HL " hT }
F1LB V1h!G b
*D T _ ( T _ h T r r @P V 4 _ ` N EO h *EOV1 r @P PNTAP54 NTAP56 PROOT43 VNTAP55 ONTAP58 K P J P NNTAP55 DECK-ID S44 RPGII 2.1 SUMMARY-137 J @P 6 r @P H L \ H h" a! HA h h
(h &h hh r T @P / a T` Hh A
H h (h T ȼ T
PNTAP55
PROOT43 G
P J P NTAP57 DECK-ID S45 RPGII 2.1 SUMMARY-137 J @ @P a h l lTH
h l @
PNTAP57
P J P NTAP58 DECK-ID S46 RPGII 2.1 SUMMARY-132 J r @P h hH
| HX
hX l
q"
d
*#C :r r r @P />
"
r <
H
E
A
a 1 " @Z {[lP}M] \Nk`Ka r r @P Zz^L~no | _m [ A B C D E F G H I . < ( + &] J K L M N O P r l @P Q R! $ * ) ; ^ -\/ S T U V W X Y Z , % _ > ? 0 1 2 3 4 5 6 7 8 9: # @ ' = " l
PNTAP58
P J P ROOT60 DECK-ID S48 RPGII 2.1 SUMMARY-132 J @ @P @
a
a g @
PROOT60
P J P AROOT61 DECK-ID S49 RPGII 2.1 SUMMARY-132 J r @P @2 h0
ah) b[& &d2 h X" H h bT XHh h "H
r @P +h g @P 4 @P 8 B 0% PROOT43 MOVE P J P UPDT62 DECK-ID S50 RPGII 2.1 SUMMARY-132 J r @P T ` # T
B T , T 3#a / r r @P +T ? /a 1T ' ,h
H HHT T - 3 r r @P V;+ a 8(a b r r @P A1 bDb b h h hT )h h oh T ) o r > @P b 2 Db ?bo {: *a > " PUPDT27 UPDT28 UPDT29 UPDT26 " 2 PERRPRO SSTRACE 9R9DRTN ROOT43 ROOT60 JFMUPDR 2 P J P LFMMV63 DECK-ID S51 RPGII 2.1 SUMMARY-132 J r @P X XX XX XX XX XH5 h1A " h- h T l) ( l&% "h! r T @P +l l l T
@P K
J PFMCLR FMCLOS FMDELR FMGETS FMOPEN
FMPUTS FMREAD FMUPDR FMWRIT J R PFMCALL WRITER HUPDREC GREADR FPUTS EOPENFL DGETS CDELREC BCLOSFL ACLEAR @R P J P R9ENDL DECK-ID P58 RPGII 2.1 SUMMARY-132 J @P
PR9ENDL
PR9BEGN
P P *T P P *K,I8 P P *J,RMUCFT,$$ P P *Z P P *CTO, MOUNT 2ND RPGII DISKETTE IN UNIT 0 P P *PAUS P P *LIBEDT P P *K,I17 P P *K,P8 P P *P,F,3,R9BEGN P J P R9CNTR DECK-ID P44 RPGII 2.1 SUMMARY-132 J r @P h4h3 H0 T " hZ hY
hX hWhV hj hg XyhT e 1X]
r r @P +h ` h2H0 h0H) h(/ h.h.h. X/#h T & e 1 " "K hHX3E r r @P V j XM "h `
r r @P
! " h
X
" X X A "T $ H
"
" r @P T J PRPGFIL R9CNTR 6R9JUMP dR9SGTB pR9SGIX fR9CKSG uR9MUNO eATTCHK R9BRAK J J PR9PORT
R9MODE R9UNIT R9USER
SYSMSG PGMIN SLICUP ATTACH JR9RPRT J P J P SR9ROOM DECK-ID R35 RPGII 2.1 SUMMARY-132 J r @P r @P + T @P 4 T r PR9ROOT Y9PFCB Y9FDC1 Y9CMST Y9MMST Y9INMK
Y9MHLD Y9DETL Y9TOTL Y9LSTR
Y9DOTT Y9TOTT Y9EOTT Y9ALSQ r r PY9CARA Y9MARA Y9UDAT Y9UDAY Y9UYER Y9UMTH Y9FDTB Y9TBIO Y9CMOV AY9INTA BY9ITLP CY9LAHD DY9MMOV EY9NSQR Fr r PY9PAGE GY9TBOT HY9INVP Y9DSEQ Y9FBSE POSSPB POSSKB POSSPA POSSKA R9OCOD !R9RECP "R9TANF #R9TFLG $Y9APFX %r r PY9ASPC &Y9COUN 'Y9DTPT *Y9FDPR )Y9FIPR +Y9FIPT ,Y9FLPT -Y9FPTL (Y9FPTR .Y9FSSA /Y9HIND 0Y9HNUM 1Y9IBUF 2Y9KALA 4r r PY9KAPF 5Y9PSFG 6Y9RECP 7Y9RPTR 8Y9TOP1 9Y9VFT1 :Y9XRPF ;Y9XRTE R9ERTN ?Y9LABL r R PY9FTNX JY9FSTL KR9USER LR9UNIT PR9MODE QR9PORT RR9EDT1 R9EDT2 R9EDT3 R9EDT4 R r PR9FSTL KR9FTNX JR9LABL R9TRCE IR9FBSE R9DSEQ R9INVP R9TBIO R9FDTB R9UMTH R9UYER R9UDAY R9UDAT R9MARA r r PR9CARA R9ALSQ R9EOTT R9TOTT R9DOTT R9LSTR
R9TOTL R9DETL R9MHLD R9INMK
R9MMST R9CMST R9FDC1 R9PFCB r P J P R9RPRT DECK-ID R37 RPGII 2.1 SUMMARY-132 J r @P T ...... r , @P + , @P ; @P @ C ^ @P ^ r PR9RPRT R9INTB R9CLIN R9HTIN R9VIND
R9USND R9MRIN R9FCTR "R9STTS :R9HLFJ >R9REPT ?R9RYST @R9ACC1 YACC1B r r PYACC1O bR9AC1S R9AC2S R9AC3S R9AC1N rR9AC2N R9AC3N R9PPUP BR9UPOP aR9INRZ ;R9INRP =8 h8[6h7 Wh3Th4 0 Fl.- . %)h#XJ &%F C.@ r r @P +h =h
l X5
h
1
h ! hH r r @P VM
HT h Ȉ A h hH
h
bтb
H r @P
PR9BINT
PR9SBYT [R9ACC1 k P J P CR9CLOS DECK-ID P36 RPGII 2.1 SUMMARY-132 J r @P l> = " -L85 5" "+L/ L( &@%T " l T " r D @P +@ T + b @ T T D
PR9CLOS
j PR9SBY )Y9RPTR BY9FLPT AY9DTPT @R9FILR =R9IOCL :R9PUTS 0R9CLRE R9TOTV .R9CLSV 8R9BASE *Y9FDTB R9ONES &j P J P R9CLRE DECK-ID P39 RPGII 2.1 SUMMARY-132 J F @P H Ah d h H l F
PR9CLRE
PR9BLBL
P J P
R9CLRC DECK-ID P38 RPGII 2.1 SUMMARY-132 J @P
@ T PR9CLRC R9CLR1 PR9MIW R9ACC1 P J P R9CMBD DECK-ID P41 RPGII 2.1 SUMMARY-132 J < @P hH !
<
PR9CMBD
PR9MONE
R9MZER R9ZERO P J P /R9FILR DECK-ID P62 RPGII 2.1 SUMMARY-132 J r @P @ D 3
hH
!hH T "
'& #$% r @P + (
PR9FILR
PR9STH0 R9FRMK P J P 3R9FLDL DECK-ID P64 RPGII 2.1 SUMMARY-132 J r @P " h+*
h% h%$ h!-H h h1 h
h @ r @P +
PR9FLDL
PR9BASE Y9FBSE Y9FDTB P J P R9IOCL DECK-ID P83 RPGII 2.1 SUMMARY-132 J @ @P H
hD a h T \ T
@ PR9IOCL R9DRTN PR9SAVP R9REST R9SAVE P J P R9IPBG DECK-ID P84 RPGII 2.1 SUMMARY-132 J
PR9IPBG
P J P 3R9LEL DECK-ID P90 RPGII 2.1 SUMMARY-132 J r @P h,H, h&H% H$h$!H "h" H *
h !d #h r @P + PR9LEL R9GTL P J P R9LOCL DECK-ID P93 RPGII 2.1 SUMMARY-132 J T @P " hA h H @h T
PR9LOCL
PR9BASE Y9FDTB Y9FBSE P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P ;R9MVBX DECK-ID R07 RPGII 2.1 SUMMARY-138 J r @P X X X X & " !
) r 0 @P +A"T : " 0 Z PR9SBYX R9LBYX R9MVBX R9MIBX &R9MVBT R9MVB R9LBY R9SBY R9MIB
R9LBYT R9SBYT Z PR9MODE *SYSMSG .R9BASE 9 P J P UR9PUTS DECK-ID R31 RPGII 2.1 SUMMARY-132 J r @P HN +HK *hH .> b#h? > 9h9 h6 `1/ X,`, *X
'@ r p @P +$T "T h 0 `X hT hH
T
h p " PR9PUTS B9PUTS ON9PUTSR9CVEA 2" 2 PR9LBYT AR9BASE R9SBYT GR9FILR 0R9IOCL -R9XLAT 82 P J P LR9STH0 DECK-ID R54 RPGII 2.1 SUMMARY-132 J r @P hBlF H? 7 H55 8r G `- dh T , (% r Z @P +T
*! d d T . A" Z
PR9STH0
: PR9MODE AY9ERCD KERRO46 R9CNCL ;R9CLIN 9R9CNTR =YERRSW 3: P J P eR9TBOT DECK-ID R59 RPGII 2.1 SUMMARY-132 J r @P h h
ɢ h T H +H Mh J r r @P + h H
h XO
h XC @h T h r r @P V |h X\ XV T |r hp j@ T c @ xT r r @P z hU XT HN hWKlL THR1 EAhB A@Ab DT HF DHD8 b?0 09b r r @P h:8 h7)5@ 0T P *! b h h%b h"!-" @ T
r r @P h
Y 2
XI r r @P T
T (X< T 1 T hX& T 1 r r @P-T % & ̩ T Ȫ h
1 ȣ h T T 5 h h̔ r ( @P XT /0؍ ( PR9TBOT B9TBOT N9TBOT r PR9SBY [R9MVB R9GTL nR9BASE\R9BINTDR9UPK1KR9CMBDR9LOCL R9PUTS R9CLRE LR9FLDL R9CLOS R9TOTV R9ZEROXr 2 PR9MINS,R9PLUS"YACC1BR9AC1S(R9ACC1MY9TBIO 2 P J P RR9UNPK DECK-ID R69 RPGII 2.1 SUMMARY-132 J r @P hL h hEh h> h< H9'`
T
h0h51/ A,h/H- -T ` l'(h' r h @P + Dh" h D lh h h
1 E L h PR9UPK1 R9UPK2 R9UPK3 * PR9LBYT %R9MIW R9AC3S R9AC2S R9AC1S * PEND J P R9OTMG DECK-ID R20 RPGII 2.1 SUMMARY-132 J H @P dh hT T
H 00 00H H
PR9OTMG
PERRO46
P J P WRIT17 DECK-ID S23 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a T # T - 6T r r @P + 1T !! b Db 1b r r @P V*h* $ ah$ h
hT * e 7'a h
Π1h
A h T r r @P b b
0 A
1XT 9 f # A2
"f" r " @P b ! T " PWRIT17 WRIT24 * PERRPRO jSTRACE R9DRTN ROOT45 ROOT43 ~* P J P WRIT18 DECK-ID S24 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a (T S - T 1 r r @P + q ! ! b Db 1b A
<
hT $ Q > r r @P V7'a DH h
1h
A hT bb
0 A
! r Z @P # A 2
" f" b b bT T _ Z
PWRIT18
* PERRPRO RSTRACE R9DRTN ROOT45 ROOT43 i* P J P MWRIT19 DECK-ID S25 RPGII 2.1 SUMMARY-141 J r @P T ` # T
, $T !- T B r r @P 2+9 / ,A 1a
1f" T T ?b
1"h r r @P ] 1b / +
b/ +
A
;T ( 7'a r r @P a/ A h !4h # 1hh T
a
b A
r r @P b 2 b1 b b T X ls
!A b Db
H r r @P A h
b# 1h
h T h !4h #1 hhT r r @P
a
b+ ++ b Db b 2b 1 b b r F @P 4+ T X T 3#a 8( a F
PWRIT19
B PERRPRO STRACE@R9DRTN ERRO46 ROOT43ROOT45:NTAP49 NNTAP48 PB P J P WRIT20 DECK-ID S26 RPGII 2.1 SUMMARY-132 J r @P T ` # T
% T - T 3#aT r r @P +1 T ' ! 1 b 8(a T / A 1bD b A r r @P Vh a h A hT b
0 A
2 XT G r r @P b b B8a5 )h 5 h oh a hT (
oo %A 1a %:* r @P a 3#a PWRIT20 ADDT30 * PFMPUTS ERRPRO STRACE {R9DRTN ROOT43 e* P J P WRIT21 DECK-ID S27 RPGII 2.1 SUMMARY-132 J r @P T ` # T
& T &
-, T 3#aT r r @P + @ 0aT # ) 1 ! 1 b )h
oh
r r @P V h hT ( oo ! 2! (: *aT + h h h
r r @P hT b
) h
oh h T ( o D b2 DboT t T r @P :* a x
PWRIT21
2 PFMUPDR FMREAD ]ERRPRO 6STRACE R9DRTN ROOT43 2 P J P WRIT23 DECK-ID S28 RPGII 2.1 SUMMARY-132 J r @P T ` # T
6 T / - ) , T 3#a r r @P +T 1 a hh h
aH2 hT h
r r @P VhT L
)h oh h h T ( oo T , &A 1a r 6 @P ! %: *a %=- a 6 " PADDT31 ADDT32 WRIT22 WRIT23 " * PFMWRIT nERRPRO $STRACE vR9DRTN ROOT43 X* P J P ]CLOS35 DECK-ID S32 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a T 6 T 3 a ! r r @P +1 1
2 b T Db h d H M r @P VbT PCLOS35 CLOS42 * PERRPRO STRACE ZR9DRTN DMPTLK PROOT45 9* P J P |CLOS36 DECK-ID S33 RPGII 2.1 SUMMARY-132 J r @P T ` # T
3#a d 6T R 3a 1 1 r r @P + b !
T ) % 9b hh @ T M * hT r f @P V N 9 :*a Db h d g l bT f
PCLOS36
* PERRPRO USTRACE yR9DRTN DMPTLK oROOT45 7* P J P CLOS37 DECK-ID S34 RPGII 2.1 SUMMARY-132 J r @P T ` # T
{ $T p. @/ + % r r @P + b/ +
bD b 2b T - T T M T r T @P VT Q T T W " h d c
h b T T @P v3a - .T ] T T u3 #a 8(a T
PCLOS37
J PERRPRO STRACE R9DRTN DMPTLK kERRO46 NTAP55 ROOT45 FNTAP56 ZNTAP54 TJ P J P CLOS38 DECK-ID S35 RPGII 2.1 SUMMARY-132 J r @P T ` X& # T
3#aT < 9 6T r r @P +3a 1' 1 Aa h B1a5 )h 5h o hT ( 5 oo r r @P V )h o hT ( oo1
h T & p: *a Db h d r r @P | bT o T `X q T `X h 3 #aT V r @P 6T h 4 " PCLOS38 CLOS39 CLOS40 CLOS41 " 2 PFMCLOS _FMPUTS PERRPRO STRACE R9DRTN DMPTLK 2 P J P jROOT43 DECK-ID S36 RPGII 2.1 SUMMARY-132 J r @P Hdd dh]] d dhU T %r J E" 4hE @ + r r @P + ; 5 2
H/ H-+ (! !n!
r : @P VةF A h
& Ah e f : PROOT43 MOVE P J P ROOT45 DECK-ID S38 RPGII 2.1 SUMMARY-137 J H @P #H T a#H 1 yA b H r @P h9 A b> .bT ,Q;h) >b # $ 1 1 A1a r 0 @P F03
16 :*a T N V 8 0 r @P W
2" 8 . , $ A1a T R A 1b ?/b 3 r f @P T p :*a A1 b 2Db b b b T ) X f
PROOT45
PERRPRO STRACE P J P 0ERRO46 DECK-ID R91 RPGII 2.1 SUMMARY-132 J r @P d "h% h$h# h"
c dh E" h
"h d T ) * h ` r `P + PERRO46 ERRPRO PSYSMSG Y9IREG &R9ERTN # P J P NTAP48 DECK-ID S39 RPGII 2.1 SUMMARY-141 J r @P XXXXXX XX, MOUN T XXXXXX ON LU XX, RI NG,READY ? HDR1 0001000 r r @P +100 YY DDD YYDD D 000000 R ING #" a# h& h& Dn
q r r @P Vh n
q n
q
n
n
nT ( o
"' $$MOUNTS $$ r r @P h"n
q
HX" 3 1 B2a h hT ( oH
" h r n @P h hT ( o h hX 2% <, b h hT ( o
H h T n r @P +hT
B0F 4Ȁ 00h "
"+ NO h T L T r r @P NO
b! 0T w *h =- b :*bT r r @P -
HT * ' T A Y1 *
HT (
"j h
H
+H r r @P XX* T 6 E 0
H T 0 51
.
! T _ r r @P hm hk
heb a]^
"
H
"HX r r @PT } B HDR1VOL1
"h5 h4$h3
h hD h
h SH BH r r @P ٠
0 hB F h
T C .T h )T T r r @P
) e'
"
"HT @ T 1T H T r r @P / Y TT
"HT B0FHB 0F 00HB0F 4Ȁ 00hT ? r r @PZ %@
HT Y 0 T T b - " hT k 6
* DT G (T 9 r : @P T 8(aT T 4 :
PNTAP48 F
j PERRPRO+STRACEFMDELR FMREAD FMCLOS FMOPEN oERRO46 NTAP55ROOT43uNTAP57/NTAP53hNTAP52%NTAP58j P J P NTAP49 DECK-ID S40 RPGII 2.1 SUMMARY-132 J r @P +#" a#. ) -T : 8 EOȿ V1B 2aE , XCB r r @P Vb @b6 -# / T : , T T g "X" Ab @?b A1 r P @P a , T q X
T T T b P
PNTAP49 -
PSTRACE NTAP55 NTAP56 o P J P NTAP52 DECK-ID S41 RPGII 2.1 SUMMARY-132 J r @P 0 Hoh Xlh HXgh
(h h !2
S
Q H0%A
h^ XJh r r @P 9
H XEhXB h d( h
( h
/ȱ n m"
$ȧ 6 2
2
hHȜ r J @P d- h+
h h "
h 2
ؒ J N @P h
hF 2
N
PNTAP52
P J P tNTAP53 DECK-ID S42 RPGII 2.1 SUMMARY-132 J r @P d 0 hH hh h H0%A 0FhHш Hl
r r @P 9hƐ$ "
u h
h Ȼ 8h 0FhHȵ h hȮ n Ȫh h r 0 @P dȣ nȣ ȥh
hثȘ蘀 0
PNTAP53
P J P NTAP54 DECK-ID S43 RPGII 2.1 SUMMARY-132 J r @P Dh h
h} h|y
B0FHf B0Fb 00H_B 0FH[B0F W 00 HTB0F r r @P +2 00 HL " hT }
F1LB V1h!G b
*D T _ ( T _ h T r r @P V 4 _ ` N EO h *EOV1 r @P PNTAP54 NTAP56 PROOT43 VNTAP55 ONTAP58 K P J P NNTAP55 DECK-ID S44 RPGII 2.1 SUMMARY-137 J @P 6 r @P H L \ H h" a! HA h h
(h &h hh r T @P / a T` Hh A
H h (h T ȼ T
PNTAP55
PROOT43 G
P J P NTAP57 DECK-ID S45 RPGII 2.1 SUMMARY-137 J @ @P a h l lTH
h l @
PNTAP57
P J P NTAP58 DECK-ID S46 RPGII 2.1 SUMMARY-132 J r @P h hH
| HX
hX l
q"
d
*#C :r r r @P />
"
r <
H
E
A
a 1 " @Z {[lP}M] \Nk`Ka r r @P Zz^L~no | _m [ A B C D E F G H I . < ( + &] J K L M N O P r l @P Q R! $ * ) ; ^ -\/ S T U V W X Y Z , % _ > ? 0 1 2 3 4 5 6 7 8 9: # @ ' = " l
PNTAP58
P J P LFMMV63 DECK-ID S51 RPGII 2.1 SUMMARY-132 J r @P X XX XX XX XX XH5 h1A " h- h T l) ( l&% "h! r T @P +l l l T
@P K
J PFMCLR FMCLOS FMDELR FMGETS FMOPEN
FMPUTS FMREAD FMUPDR FMWRIT J R PFMCALL WRITER HUPDREC GREADR FPUTS EOPENFL DGETS CDELREC BCLOSFL ACLEAR @R P J P R9ENDL DECK-ID P58 RPGII 2.1 SUMMARY-132 J @P
PR9ENDL
PR9BEGN
P P *T P P *K,I8 P P *J,RMUCLO,$$ P P *K,I17 P P *K,P8 P P *P,F,,R9BASE P J P $RPG DECK-ID P12 RPGII 2.1 SUMMARY-132 J b @P h Dh
h h TZ RPGSM0 Xݐ $ b PRPG "R9BASE $OVLAY PRPG J P RPGDMY DECK-ID P11 RPGII 2.1 SUMMARY-132 J @P
PRPGROT
P J P
R9LBY DECK-ID P88 RPGII 2.1 SUMMARY-132 J ( @P t "H "
(
PR9LBY
P J P R9SBY DECK-ID R46 RPGII 2.1 SUMMARY-132 J 6 @P v H
H l 6
PR9SBY
P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P R9MIB DECK-ID P96 RPGII 2.1 SUMMARY-132 J : @P hH h
T h :
PR9MIB
PR9SBY
P J P R9MVB DECK-ID R06 RPGII 2.1 SUMMARY-132 J J @P hH h hT T h J
PR9MVB
PR9SBY R9LBY P J P R9ARG DECK-ID P15 RPGII 2.1 SUMMARY-132 J D @P hH
h b l
B D
PR9ARG
P J P 7RPGROT DECK-ID P10 RPGII 2.1 SUMMARY-132 J @P
@P O
@P
@P H
r @P r `P 9 @P4?? r @P 9
@ d ?@ r r @P d +h
h r r @P y % " X
h Ř +
@ iT 0 r r @P h T
- T
h X h | h
r r @P @ T
k
@ T
m kh m l !
@ oT P h r r @P h X ' Dh G A
$@ q T 2 7h X r l @P ; 1 h % /
@ sT 0 7h mX f 3 T
X l r @P i RL=PF =TPF=FBP = OP= P C= h I2 +h
4h xI r r @P h
/9FT^hr| 2=HS\ekt r r @P9DpF\f)3 >X c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT P *T P P *K,I8 P P *N,RPGSM0,,,B P P *K,I17 P P *P,F,,OVLYPT P J P $RPG DECK-ID P12 RPGII 2.1 SUMMARY-132 J b @P h Dh
h h TZ RPGSM0 Xݐ $ b PRPG "R9BASE $OVLAY PRPG J P RPGDMY DECK-ID P11 RPGII 2.1 SUMMARY-132 J @P
PRPGROT
P J P
R9LBY DECK-ID P88 RPGII 2.1 SUMMARY-132 J ( @P t "H "
(
PR9LBY
P J P R9SBY DECK-ID R46 RPGII 2.1 SUMMARY-132 J 6 @P v H
H l 6
PR9SBY
P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P R9MIB DECK-ID P96 RPGII 2.1 SUMMARY-132 J : @P hH h
T h :
PR9MIB
PR9SBY
P J P R9MVB DECK-ID R06 RPGII 2.1 SUMMARY-132 J J @P hH h hT T h J
PR9MVB
PR9SBY R9LBY P J P R9ARG DECK-ID P15 RPGII 2.1 SUMMARY-132 J D @P hH
h b l
B D
PR9ARG
P J P 7RPGROT DECK-ID P10 RPGII 2.1 SUMMARY-132 J @P
@P O
@P
@P H
r @P r `P 9 @P4?? r @P 9
@ d ?@ r r @P d +h
h r r @P y % " X
h Ř +
@ iT 0 r r @P h T
- T
h X h | h
r r @P @ T
k
@ T
m kh m l !
@ oT P h r r @P h X ' Dh G A
$@ q T 2 7h X r l @P ; 1 h % /
@ sT 0 7h mX f 3 T
X l r @P i RL=PF =TPF=FBP = OP= P C= h I2 +h
4h xI r r @P h
/9FT^hr| 2=HS\ekt r r @P9DpF\f)3 >X c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P RPGIIH DECK-ID P01 RPGII 2.1 SUMMARY-132 J r @P 4 @11 ,,..$$00 **--CCRR ++}}JJ RR//99AA IIJJ%% /* )** ) 1) D IJ) S) E) F) r r @P +SKIP O N CONDIT ION)RPGO BJR9FRCD R9SNHLR9 BASER9RP RTR9INVP R9ONESR9 COMAR9PE RDR9DOLR R9ZEROR9 r r @P VSTARR9 MINSR9CH RCR9CHAR R9BLNKR9 PLUSR9MZ ERR9MONE R9MNINR9 SLSHR9NI NER9CHRA R9CHRIR9 CHRJR9AM r r @P PRR9BL BLR9XLAT R9TRCER9 RPGXR9RP GOR9FBSE 0000 $<0"<0 0 "* "+"2$"$ $
,^," *,f V r r @P T d V4X TV=
, 4 0X *,!
" 0>"h V4F4H eV4* >+f$+ DVR r r @P *V DVR *V DVR * VD
V( DV)R * V*D
V+ R
*V,D r r @P V0R *V1 D V2D - *V3D << * V4D V=
, 4 0X *,
!VJ R * r r @P -VKD ", \ ^,
/X\ ^,/X(, 6,`/. z n *@@
, t, *@@ p", ^,>-
.^,n r r @P Xt.(,6, >- . .n t. * l * l * l>2 *@ Fn
. H t r r @P *.jF V
DZ
VD Z
VR
2",V \ ^,
= X\ ^,= X(,6, .
r r @P
|@Z {[ll P]}M] \Nkk`` Kaa r r @P zzm^L ~~nnoo | [.< (+^& !$J*_ )';O\m-- r r @P //bbcc ddeeffgg hhiijj,, %%_;>>?? ppqqrrss ttuuvvww xxyy::# @ '=="" r r @P / r r @P Z {#AA BBCCDDEE FFGGHHII })J$ K.LX c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P 5RPGIIF DECK-ID P02 RPGII 2.1 SUMMARY-137 J r @P V N
H t }G MHLDFI LX00 y x } r F @P + V C D w w W W w w W C F m M F 6 F F @P K 6 F r @P T 6 F/* )** )EL I)DCUOI) DTRCSP ) AD) EL) E) FVD) LLR) A PI) IT1 23456789 ) ABCDEF GV) AU) r r @P RUN) 12345678 ) ASCII ) BUFOFF ) SKIP O N CONDIT ION)EBCD IC) R9PFCB R9DSEQYS ETLMR9RC r r @P ADR9DM NDR9CHIN f VT d V T9V=
] 4 0X*] !
"0 >"h V R4Fe V4* r r @P D. >Q "QFf Z
N 4,fX*N VDg P L N h(+VR
0 ^0
V R
1 ǀ1 r r @P 16 K6 K6 0 6K VRk
2 VR
O HHVR 6&Q
3 VZ m
4VZ r r @P +i 5
V R n
6V Zo
7V Rj
.V Rp8 *@@ 6 56
5
8V! D94O X"q r r @P V9 ^9 V#Zr
:V'R / V( FsP LNs H 6;
< 0 4UX, v
>VI r r @P D ; 6 6 6 6 B60 86 86 0 8 6. [ [
] 1 r r @P 6^] ]- ] , 06 &L 16 66 66 6 0 60! >L0 >L <30 060 r r @P 06 6B 0 >L 0 >L 6 B .6 >2>L 16 L 1: 36 60>4 r r @P - 4<5 56 : 0 >4 5 4 84 4 8 58 86
6 . 6 6B 0 6B .6 r r @P X 6B 0>. 0 .6 >7>. 1 8 6 *@ <9 ; 6 / V#D. >0 (X X6 YX W 06 &I 0 6 t tttt tttt r r @P 16 WTR 0
tt tt>9 9t9 * @U >>>t> t[ 16 Ā
= 6 = . :1 r r @P = .6 = 2 = I=t= I ^[
M^0 M^B"M ^M%
Z ( +Z 86Z J 1 6\ r r @P /16 \
PV \
=x=X *Pt 8 6π
= 066 66 6= 36= B6@= 86 = r r @P Z .6 6= B60 = 1 6.&M 66 M= ; 6* =^ ^ 8fj
=t= @544 t5vZ ;6 d55 r r @P Z 4 l65
=t= Z
`vZ *@ ;l
`
k
l =8kkl l k
= ;62= = ;6` == = r r @P Z *@ ; Z `8__ `
Z 86 BvZ >Bx= ZtV6D "= \ ^=
E X\ ^=E X(=6= r r @P `Ep t V/D = =t=tt >BZ5 Zt? B 06 r r @P 188 ZP Zt: @ =t=<= ZZ ; 6ab ZZ"=t rZ.V54K xV6T5 >Q"QT1 TB. r r @P \. (
=r=ti
=r=. ( VX c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P RPGIIE DECK-ID P03 RPGII 2.1 SUMMARY-132 J r @P 4 ( E16 I ^ /* )** )LI ) PBLR) AD)TAB) SKIP ON CONDITIO N)R9TBIO r r @P +R9INTA R9TBOTR9 ITLP "> "?"@
n
70 f VT d VT
V=
3 4 0 r r @P VX*3 !
"0 >"h V R4Ee V4* DVD "5"6V D..V D V. D <D , + r r @P
;tV4 k, 5
6 V.T V!D. J ;
. Z r r @P o 5
5 6
60 V+D V7D "5"6JV$ Zp :
V+ R J >< 7
V7R J r r @P >.V D. V+ ,
0>< V7,
1 > 0 1
= =t= ,
/
=t= H <8 :5:6 @ : <
=t= . , >8} @
A,
>/| B
= (r= r r @P -vA
=r= . P D L N
9 > 2 H V(Z 8V4Z 8 9> 2 P"4F 4Z4 LN
9~
r r @P X P 9<42
2 Z2
X4P B.R 28 6 06 8
5XD r r @P 8 2 Z2 8 XR 2 2 RXD 2 V D 8 F w,
8r @ @ r r @P J 2 V D / Fv,
/ q 2 t *@@&=<> = => X c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P RPGIIL DECK-ID P04 RPGII 2.1 SUMMARY-132 J r @P n /* )** )FL ) OL) SK IP ON CO NDITION) R9INTLR9 OPNVOPEN 04OPEN05 OPEN06OP EN07OPEN r r @P +02OPEN 08OPEN03 OPEN01R9 TINVREAD 12READ13 READ14RE AD15READ 10READ16 READ11RE AD09R9IN IGf VT r r @P V d VT V=
/ 4 0 X*/!
"0>" h V4I 4LeV 4*P L N f
0H @ r r @P J VT VTV Zg<
1VZ h(
. (
/
( r(t.t1r/ 0t
/ 6 H @ r r @P @ /
J 0 *@@n *@@ p n"/ ,B / / 6
/ n
"/ - B/ / 6 r r @P
/
/ HJ */
jIUD ATE UMONTH UD AY UYEAR r @P P P *T P P *K,I8 P P *N,RPGSM4,,,B P P *K,I17 P P *P,F,,OVLYPT P J P $RPG DECK-ID P12 RPGII 2.1 SUMMARY-132 J b @P h Dh
h h TZ RPGSM0 Xݐ $ b PRPG "R9BASE $OVLAY PRPG J P RPGDMY DECK-ID P11 RPGII 2.1 SUMMARY-132 J @P
PRPGROT
P J P
R9LBY DECK-ID P88 RPGII 2.1 SUMMARY-132 J ( @P t "H "
(
PR9LBY
P J P R9SBY DECK-ID R46 RPGII 2.1 SUMMARY-132 J 6 @P v H
H l 6
PR9SBY
P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P R9MIB DECK-ID P96 RPGII 2.1 SUMMARY-132 J : @P hH h
T h :
PR9MIB
PR9SBY
P J P R9MVB DECK-ID R06 RPGII 2.1 SUMMARY-132 J J @P hH h hT T h J
PR9MVB
PR9SBY R9LBY P J P R9ARG DECK-ID P15 RPGII 2.1 SUMMARY-132 J D @P hH
h b l
B D
PR9ARG
P J P 7RPGROT DECK-ID P10 RPGII 2.1 SUMMARY-132 J @P
@P O
@P
@P H
r @P r `P 9 @P4?? r @P 9
@ d ?@ r r @P d +h
h r r @P y % " X
h Ř +
@ iT 0 r r @P h T
- T
h X h | h
r r @P @ T
k
@ T
m kh m l !
@ oT P h r r @P h X ' Dh G A
$@ q T 2 7h X r l @P ; 1 h % /
@ sT 0 7h mX f 3 T
X l r @P i RL=PF =TPF=FBP = OP= P C= h I2 +h
4h xI r r @P h
/9FT^hr| 2=HS\ekt r r @P9DpF\f)3 >X c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P cRPGIII DECK-ID P05 RPGII 2.1 SUMMARY-132 J r @P & i ,f},_ K 7KmsD
)
cAN D)OR) 1 r r @P +234567 ) **) N1 ) O ) P BLR)*ERR OR) /* ) DZZC)CO ) 123456 789)1234 56789R) 12345678 ) N) TR r r @P V) 123 45) PAGE ) SKIP O N CONDIT ION)** ) R9CMSTR9 IPUTR9NS QRR9MMOV R9CMOVR9 LAHDR9TR ALR9BINP r r @P R9MHLD R9MMST R9INMK R9FDC1R9 INTVREAD 12READ13 READ14RE AD15READ 10READ16 READ11RE r r @P AD09R9 IPBG"7f VTA VT8 V=
B 4 0 X*B !
"0>" h VR 4Ie V4*D r r @P >,j $,VT &- T&.- VT/T VD F>1 }}>7 "2"4"5 $/VZ >0T ZV r r @P >8U >88 (
8tt tVD "<. Y >080
0>9 U, (
:0 9, VR
< VR
= r r @P - = <
}t} (
9 v:ttV D , ,!
d (
}t} ,
ttV* R1 6} }}V ,V ,V# r r @P X,V+D $1. VD$>1 }} >998 ,,&T À&XV+R
>4B YV,,k
?V0, l?8n r r @P :?m ?@? DV4>> DXxD EE>X EZ
C
>XN! >8D6
> D Do > 6
>6 r r @P 6 Dp D E r6 0! >8 >66
>8 0
> |+
I I r r @P
H :D D:C @844 >2 ?82 :33>T >X >EB E0Bt B 6D} B@@ r r @P >E 6C ~.>F >E
V5T T59 Ǖ >E C D
JV;"G D4LV< r r @P /
G ^G (GY B@ >6 >5>2 "HV=D 4MV>
H Y J B r r @P Z@ >6>5 >2>X NV?D J
, J
>GH NVA BD "K"L0 DK,
KVCD r r @P L,
LVED M,
MVGD
>J&6J
} X}>N }>P} }
} > E |}t} ?
}t} "B>X2>N r r @P >E >6
>8 06
>
O D (BO: 606"1 G H6
J
?
B >66 E B
J. $, >1>7 r r @P 1}}P Fi L N
{ H 6y
y B
@|@ y J
} }
} ^} A"0 "8"9>U
r r @P \U (
Utt{t tt. >1 >5V D>.V* >-V >.&/ VD . >2 VD V6 4
2>1 r r @P f
} t}
3"4 Y. >2
}t} 0>99 8, 4 3
}t} 3
}t} 6H H (
Q"[ ,
, r r @P ,
Z ^Z [0
",
[
Z ^Z [6 0>[ t (
( r(vQ
(r(
B^B n r r @P 6
>x ^B<\ ^B6\B 0^B
\*B $x 0 6 1H (
Q ,
, , 0
",
Z[( (( Q(( 0
2 VDV 6g>5 r r @P 3 B` VZh$5 "6Y
}t} U ,.
} (
Br}vBrB 2 4H4L 4M4U Z
BB 2 XR r r @P ^0XR" q0X4R 2 XR(0 J2 D ZO8 >OXR-
BX R6} B / r r @P B"/X \ >~ } 6
}4 04&A4- Jb BtB O
}t} 2 V5Dv Tz Z{"F"N "PV6
B 4,X
*B r r @P PV5 L,
| 2 *Bu $FZP BL,
N B B 60$ J0"N40 X*B r r @P |0D P
P ZP(N X*B N 6
N 0,
V 8V V
; ^; V
;^; V 2 62 r r @P
Z2 N +2 6 H 6 0 2 >2 <7 >1} }
B Y B@ B *@
*B r r @P 5*Bn "B"O ^B ]O^B ]O
} t}(B6B O
- n "O
B ^B eV6 @
} t} V@ O*B r r @P `t O l O
,n "B ^B
} t}(B6B
}t}
}t} t *@@ n"} AB } } 6
} r r @P "O 6 H B O 0 >O
jC
B^B "n*B2 8
Z O
B Z r r @P B
}t}
}t} O6^Z n ^Zn> 2 8
Z^Z>n Z
B B ^Z
n 6э>S r r @P ^Z6e Z2 ^Z
e2 R
; ^; R
;^; R2 ", "1"S"A"U "Y"x"y
O^O"\*O $7 " r r @P
* @@n * @@
z *@&~ 6 H B @
} }
}^} A 0 r P P *T P P *K,I8 P P *N,RPGSM5,,,B P P *K,I17 P P *P,F,,OVLYPT P J P $RPG DECK-ID P12 RPGII 2.1 SUMMARY-132 J b @P h Dh
h h TZ RPGSM0 Xݐ $ b PRPG "R9BASE $OVLAY PRPG J P RPGDMY DECK-ID P11 RPGII 2.1 SUMMARY-132 J @P
PRPGROT
P J P
R9LBY DECK-ID P88 RPGII 2.1 SUMMARY-132 J ( @P t "H "
(
PR9LBY
P J P R9SBY DECK-ID R46 RPGII 2.1 SUMMARY-132 J 6 @P v H
H l 6
PR9SBY
P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P R9MIB DECK-ID P96 RPGII 2.1 SUMMARY-132 J : @P hH h
T h :
PR9MIB
PR9SBY
P J P R9MVB DECK-ID R06 RPGII 2.1 SUMMARY-132 J J @P hH h hT T h J
PR9MVB
PR9SBY R9LBY P J P R9ARG DECK-ID P15 RPGII 2.1 SUMMARY-132 J D @P hH
h b l
B D
PR9ARG
P J P 7RPGROT DECK-ID P10 RPGII 2.1 SUMMARY-132 J @P
@P O
@P
@P H
r @P r `P 9 @P4?? r @P 9
@ d ?@ r r @P d +h
h r r @P y % " X
h Ř +
@ iT 0 r r @P h T
- T
h X h | h
r r @P @ T
k
@ T
m kh m l !
@ oT P h r r @P h X ' Dh G A
$@ q T 2 7h X r l @P ; 1 h % /
@ sT 0 7h mX f 3 T
X l r @P i RL=PF =TPF=FBP = OP= P C= h I2 +h
4h xI r r @P h
/9FT^hr| 2=HS\ekt r r @P9DpF\f)3 >X c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P 8RPGIIC DECK-ID P06 RPGII 2.1 SUMMARY-141 J r @P # ! xN 1JiomE+9h 0p55 AN) OR) /* ) ** ) H) r r @P +SR) 01 23456789 +-.)0123 456789) 01234567 89R)ABCD EFGV) 12 345678) TAB)0123 4567) PA GE) 123 r r @P V4567) SKIP ON CONDITIO N)LR) .+ - ,)RLAB L)*ERROR ) TAG ) IN) 1234 56789) R9CA LCR9LABL r r @P R9OPCD R9DETLR9 TOTLR9AD SBR9ZADS R9ADSBR9 ZADSR9MU LTR9DIVD R9XFOTR9 SQRTR9MV RMR9MOVE R9MOVER9 r r @P MOVAR9 MOVZR9MO VZR9MOVZ R9MOVZR9 COMPR9TS TZYTESTN R9TSTBR9 LKUPR9LK UPR9STON R9SETFR9 BITNR9BI r r @P TFR9GO TOR9EXIT R9NDSRR9 EXSRR9CH ANR9FORC R9XCPTR9 DSPYR9DE BGR9READ R9STLLR9 TIMER9FT NX r r @P R9DBGV WRIT20WR IT21WRIT 22WRIT23 WRIT18WR IT24WRIT 19WRIT17 R9CLBGR9 LSTR *@ &i@n7 *@@ r r @P -n":"; "N"l"o * B&YB. ,
p
"T"b "dVT 0 f V T VT8 r r @P XV=
m 4 0 X*m !
"0>" h V4O 4Cx V4*"8 "9>7T &8kT &9PV D &7>o r r @P "o07 LNh H
X,6X 76Xo 6Xo Xoӣo 6Xb 6Xb% 6XV!T) r r @P X J 3^6XY "kV D T
3 TA%4L4 >:$:t n>;>N V TMF +V40( V
h,
r r @P hth $k0 >; >N >:0>N t$N>: $:n8 >;0
>; $;t0 >89| (
SV D ;$k>7 r r @P 5 >8D 4N
h V
,
,h thV D4N
h V
,
, hth VD4N r r @P /
h V,
,hth >7V D*. d
O
]V
U ^U,
n
H
I F
E"G l
O
] V! r r @P Z6V^V ,
0
J
K t
O
] V+
W^W,
L
M 6XB L6"m 6HmmH 6JmJ m L
h th J6 r r @P 6HH
hth H 6͊hh M6"m 6ImmI 6KmK m M
hth K6 6II
hth I6͒ r r @P hh"= ">"? 6V6 D{06, }
>V8, ~
?V:, *B
*
= 6#>=> ?|%6X X
>> r r @P ۿ? E 6F>>? G@ '6XX >= >= >>?> ?V5Rz
< B< y<&6X >LN B@0J4 r r @P 6X<> ?0C0 6X B >:N 09>d 6X3- 6X&d26X B )VD
E8D
V+D r r @P 1 B 8 0 6X G B 0
$6X XX F6 < -6X !6X< X6L 6 6^ r r @P \% < >>? =0
hth > ?
hth>ko . >TT
h th"T. >; >T n
T.
htht) r r @P P8 B h h
h^h l0D
O 2 B
m ZeD TIB ^"[4,X *m"@ r r @P mB
m ^mX B, O
m<[ @ m >2 *m$[ R
@ m ,>
@ B B@ 6 0"A"@40 r r @P ݰX*m |2 D
A@!
AR A(@X*m F]@
hth A 6hh A 6 hh A
hxh0 r r @P 6 2 m
@ ^@ m
B^B m2 R ,O$G 0 ,O GB O
J
F 2 4 r r @P 3,O
G0 ,O GBO
J
F 2 R 4' ,&`
F G BF6 >`0, r r @P ^ G0 , G
V O 2 D
2 PF
D
+ LX4 N
Q
J , 6X7X d6O0 r r @P H,6X 7X&1 @1 16 d6O <S )"V Q2 P F
L N
f |r 2 H r r @P J f 2 D
.4'
m"@X4' R+
A ^A @ *m|*m X^mD
hthx@ $F 2 >ot r r @P >7k>: >N8 >T * @@6n."h lBh/ h 6
h (
(n (
"1 H B
1 r r @P
1 (161H B1 (1 6
0 )m m
H B
, ( ( n
( r r @P 56OH @ 6 v 04H4L 4M4O 4UZ
m m2 X RR0X Rp0X r r @P `4R 2 XR 0XR$ 0D ,
m p6m 8m> 2 m
@ ^@ m
\^\ m2 >
= r r @P ?
>"? 2 DO 2 R ,u B
V1 D%Z 6
m 6m m
e r r @P V4D Z8m
m 6m m
mJ 2 4' ,v B
V1D Z6
r r @P > 6
mV4D J2 , wV1D Z 6 .
mV4D m 8m
ZZ ! B r r @P
Z 8m
Z 6m 6m
m 6Z J6Z
m2 >2 D 2 TPX ,
m r r @P 7m2
h T0X3&_ XP h: L
h 4 , X*h6 X N +
g _ J H X 66 r r @P b6X g<2 "5 "/"c
m 4-
. X "a\ 6p c6p/ 5acR /aC2 >a/X *md6O &! r r @P
j 5 /6 j tj4+- /F6 \ 6p
D R
1B 1mm hhX 0 m.
h xh0>"F 2 d r r @P 6O$
j (
4tj X"m 4' \ >i
hxhX(m 6m|> 2 X 4'm
a^aD (
hr4 m F6 r r @P jtjrh < 2 BEGSR
RLABL 4 TAG
AD D "# Z-ADD "! SUB "#
Z-SU B "!MU r r @P LT "# DIV "#XFOO T "!SQ RT "! MVR " MOVE &aMOVE L &aMO VEA $A MHLZO &A r r @P 9 MLHZ O $a MH HZO $A MLLZO &a COMP '! TEST Z $" TE STN $# TESTB % $ LOKUP '% LOKU r r @P dP )'&! SETON ' SETOF ( BITO N %) BI TOF %* GOTO + EXIT , ENDS R - EX SR . r r @P CHAIN (/FORC E 0 EX CPT 1 DSPLY ( 2DEBUG (3READ 4SE TLL 5 TIME " 6 EXITF r @P 7 P P *T P P *K,I8 P P *N,RPGSM6,,,B P P *K,I17 P P *P,F,,OVLYPT P J P $RPG DECK-ID P12 RPGII 2.1 SUMMARY-132 J b @P h Dh
h h TZ RPGSM0 Xݐ $ b PRPG "R9BASE $OVLAY PRPG J P RPGDMY DECK-ID P11 RPGII 2.1 SUMMARY-132 J @P
PRPGROT
P J P
R9LBY DECK-ID P88 RPGII 2.1 SUMMARY-132 J ( @P t "H "
(
PR9LBY
P J P R9SBY DECK-ID R46 RPGII 2.1 SUMMARY-132 J 6 @P v H
H l 6
PR9SBY
P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P R9MIB DECK-ID P96 RPGII 2.1 SUMMARY-132 J : @P hH h
T h :
PR9MIB
PR9SBY
P J P R9MVB DECK-ID R06 RPGII 2.1 SUMMARY-132 J J @P hH h hT T h J
PR9MVB
PR9SBY R9LBY P J P R9ARG DECK-ID P15 RPGII 2.1 SUMMARY-132 J D @P hH
h b l
B D
PR9ARG
P J P 7RPGROT DECK-ID P10 RPGII 2.1 SUMMARY-132 J @P
@P O
@P
@P H
r @P r `P 9 @P4?? r @P 9
@ d ?@ r r @P d +h
h r r @P y % " X
h Ř +
@ iT 0 r r @P h T
- T
h X h | h
r r @P @ T
k
@ T
m kh m l !
@ oT P h r r @P h X ' Dh G A
$@ q T 2 7h X r l @P ; 1 h % /
@ sT 0 7h mX f 3 T
X l r @P i RL=PF =TPF=FBP = OP= P C= h I2 +h
4h xI r r @P h
/9FT^hr| 2=HS\ekt r r @P9DpF\f)3 >X c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P :RPGIIO DECK-ID P07 RPGII 2.1 SUMMARY-132 J r @P na 4L`X2k ** ) /* )AND) OR) ADD) *PLACE) PBRL) XY r r @P +Z 1234 ABCDJKLM ) '$')'* ') N) 01 23456789 AB) *PRI NT) MR) 1P) 0123 456789R) ABCDEFGV ) 123456 r r @P V78) PA GE) 123 4567) B ) SKIP O N CONDIT ION)*ERR ORR9DOTT R9TOTTR9 EOTTR9OT PTR9ECOD R9EDCNR9 r r @P XCODR9 YCODR9ZC ODR9BINT R9FTOVR9 PAGER9FS TLR9WOTV WRIT20WR IT21WRIT 22WRIT23 WRIT18WR IT24WRIT r r @P 19WRIT 17R9UOTV UPDT26UP DT27UPDT 28UPDT29 UPDT25YU OT06YUOT 07YUOT08 R9AOTVAD DT30YAOT 02ADDT31 r r @P ADDT32 YAOT05YA OT06YAOT 07YAOT08 R9OTBG * @&c@ n( *@@ *B&X $i"."/"0 "I"e"f"g
r r @P VT 0 "if VT VTI V=
d 4 0 X*d!
"0>" h V4Od V4* D>ie r r @P -VT&U VD >i>j
d tdt2V4E 4T 4H Df>. . (. 0>// (/0 >00 r r @P X (0
1 ":"Vt"h t"2VT &3VD y @z V4F&4 IZ6 dd >3 B 3V D , r r @P V ,
@ (
5 "6"_V ,V , V ,>_ "jV D+ {. >: ddVG D>j >4>6 (dd r r @P 7
d (65 6td0>6 ,,": V ,V ,V ,V(4*&Y Zg; 8n"9V PD
' @&= r r @P فI: dd :V-D 9<< I
V T'T
>2 2 8;(2
dtdt;. 02
dtd . $j"^V' r r @P RGV, >94 V'4B. B 4 V&4 < q 01R 4BI RV&4 < r 0!4 V&4 r r @P />=< ><0 4X&^ 4Y^D =Z^ IR8 >< 9V'4B &>
dtd ;822V- TϿ^~ r r @P ZT ѿ^ ~
dtd. >j
dtdt2>. >/ >0 6 H B 6 I 0
A I r r @P @ A *@
*A *A *@@ (n
"d e Bd d 6
dn"d fBd d 6
dn r r @P "d gB d d 6
d *B@ jAP Fx L >iN
a |h. H Bs
d d
d^d r r @P
d @&Kdg BKdf j iU
@
>4 >6(d d7
dtd"4, r r @P "V"h"6 (
5.
d (
ArdvA rA2 A
BD3 B
C^B XD R
dX dB CA r r @P 1
dtd2
AD R A
B X,A
B>B @"@B7 >66t72
AD R A
B X,A
B6 r r @P \
dtd$: 2 V TR t"[
C V!4,X *C0C$[ Z C, k B B@ 6 b
d td0,"F"E r r @P 40X *C|0# D Zl E
EE (FX*C F6
dtd E d d E
d xd E
dxdV r r @P ,j<[ b 9 B
V,4P 04B 8 B
[ b+
` `
H 8;o r r @P 2
"L
M"N "O"P"Q"S V-4'u :Sm X >N 4$ X40>O $,0 , ,
M(L$N "P$O040 r r @P 4* , 04&&d >c , >d4 M PL >P 4' \ >c , 0X4' 04C
\ >c ,X r r @P 34R"Q
R$P0 4-$Q0
>PR Q S
d td 8L 6 Hx 0 (A t ;822 r r @P ^
dtd"B V-4'uV. 4' \ >c
dxd X(B6B |m0
X 4'B
\ ^\D v ( rA8 B
dtd
drd 0Z 0-XZ 0%X 4RX X hR/p0 XR5]&W r r @P X V
6]|
J 08/._
0>W ] 0XR:
J JJ
K ^K J
K ^K J2 HPLN r r @P +
b V T?V$B Nj 2 H2 >Vh ( r5 6>V
dtd
d rd2 (
8 1
drd v8r8 a >3
d r @P
td2
J (S 2 P P *T P P *K,I8 P P *N,RPGSM7,,,B P P *K,I17 P P *P,F,,OVLYPT P J P $RPG DECK-ID P12 RPGII 2.1 SUMMARY-132 J b @P h Dh
h h TZ RPGSM0 Xݐ $ b PRPG "R9BASE $OVLAY PRPG J P RPGDMY DECK-ID P11 RPGII 2.1 SUMMARY-132 J @P
PRPGROT
P J P
R9LBY DECK-ID P88 RPGII 2.1 SUMMARY-132 J ( @P t "H "
(
PR9LBY
P J P R9SBY DECK-ID R46 RPGII 2.1 SUMMARY-132 J 6 @P v H
H l 6
PR9SBY
P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P R9MIB DECK-ID P96 RPGII 2.1 SUMMARY-132 J : @P hH h
T h :
PR9MIB
PR9SBY
P J P R9MVB DECK-ID R06 RPGII 2.1 SUMMARY-132 J J @P hH h hT T h J
PR9MVB
PR9SBY R9LBY P J P R9ARG DECK-ID P15 RPGII 2.1 SUMMARY-132 J D @P hH
h b l
B D
PR9ARG
P J P 7RPGROT DECK-ID P10 RPGII 2.1 SUMMARY-132 J @P
@P O
@P
@P H
r @P r `P 9 @P4?? r @P 9
@ d ?@ r r @P d +h
h r r @P y % " X
h Ř +
@ iT 0 r r @P h T
- T
h X h | h
r r @P @ T
k
@ T
m kh m l !
@ oT P h r r @P h X ' Dh G A
$@ q T 2 7h X r l @P ; 1 h % /
@ sT 0 7h mX f 3 T
X l r @P i RL=PF =TPF=FBP = OP= P C= h I2 +h
4h xI r r @P h
/9FT^hr| 2=HS\ekt r r @P9DpF\f)3 >X c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P RPGIIA DECK-ID P08 RPGII 2.1 SUMMARY-137 J r @P # T5 _/g(J6 MH LDFILX00 /* )** ) *EQUATE r r @P +) *FIL ES ) AL TSEQ ) 01234567 89ABCDEF ) SKIP O N CONDIT ION)}JKL MNOPQR) {ABCDEFG HI) r r @P V R9AL SQR9FDTB YEXENDR9 FBSER9FI NSR9CARA R9MARAR9 CLSVCLOS 38CLOS39 CLOS40CL OS41CLOS 36CLOS42 r r @P CLOS37 CLOS35R9 TOTVWRIT 20WRIT21 WRIT22WR IT23WRIT 18WRIT24 WRIT19WR IT17YCLS 09R9FNBG R9UDATR9 r r @P UMTHR9 UDAYR9UY ER *@@ @n *@@ "]"^"_ 6-H B _
U U
U^U r r @P U] BU^ B@s @ B Àr @|q d 0 *@@n "U ]BU U 6
U r r @P n"U ^ BU U 6
U
*@@ (
n * @&T@
Y
Z "R"W"X". "3VTg r r @P -0$W ,VT
TT =,,>W 6R ,,n "X ".
R B
&0B &1, . >3
>. "X$.>W r r @P X
t$0$1 "3V
4 ,,,n Q64 4,f X (464 3 0>X ".$X$0$1 $V
, n (V r r @P V8+
, . ,$V 6 H @, l (V 0 *B
VT hT n $0"1,V r r @P T Ti,0 ,>- n -6 t0 >, n ,6 t0
\
Y
Z
[ "U 6 r r @P ٯ
(U U 6\U [H B``Y @ n ,6 t0 0
` : H B8@ r r @P @ > ^`n (`0
,J @ l Bk B
/ >T
SxS*/ 0 r r @P /
/0 x*/x . H B@,0 , B B F H,*6 0 F H , *6 . r r @P Z B
?FH
>F
J >G>I
P
>G
J VTdT "O,V T O =
>
r r @P 7 F H >?B, 0,>: (
9 :,P
; G I >@C, 0, (
: 9, *6>O *>0>O r r @P ۬ . ( (n
( 6 H tt 0 6'H "/t
/ / / r r @P / / / B / /t/ 0VT jjMf V T V=
/ 4 0X*/ !
"0 r r @P 1>"h 2 "/ /a
b 6 H 6/
a 6/
b 0>1b >0a
S tS(/ / r r @P \62 V
/, */2 DR
X X X Xm
J 2 >2
[
a r r @P "` V: (`0 ^a [ a
a `^a [`YH J 2 N
V|e 2 H 2 P Q48 L 2 t B r r @P 7 7
/ 8 8
8 0 / / /
S tS / /
StSt/ 6
=
B ( r r @P * 7 0/t/ 7 B
8, @@&F@ &HJ2 B 7t
6
=
B ( 7 *
/t r r @P t/ / 7 B
8, J @@&F @&H 7
/ B >T
SxS */2 */ x0x 2 >O
K
J
<<< T >L
H>J :08n 6L
c xcJ X*<2 >O
D
K
J< M
"N<<
E D 64-E r r @P ^X L >J: r r @P 08p 6L
J
*N 2
K
J
< >J9 >T
cxc*< 2
K
K
J
< 0>JK
cxc*< >J r J @P >K
c xc2 6 (n
2 Be
S (
erS d c
d2 J P P *T P P *K,I8 P P *N,RPGSM8,,,B P P *K,I17 P P *P,F,,OVLYPT P J P $RPG DECK-ID P12 RPGII 2.1 SUMMARY-132 J b @P h Dh
h h TZ RPGSM0 Xݐ $ b PRPG "R9BASE $OVLAY PRPG J P RPGDMY DECK-ID P11 RPGII 2.1 SUMMARY-132 J @P
PRPGROT
P J P
R9LBY DECK-ID P88 RPGII 2.1 SUMMARY-132 J ( @P t "H "
(
PR9LBY
P J P R9SBY DECK-ID R46 RPGII 2.1 SUMMARY-132 J 6 @P v H
H l 6
PR9SBY
P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P J P R9MIB DECK-ID P96 RPGII 2.1 SUMMARY-132 J : @P hH h
T h :
PR9MIB
PR9SBY
P J P R9MVB DECK-ID R06 RPGII 2.1 SUMMARY-132 J J @P hH h hT T h J
PR9MVB
PR9SBY R9LBY P J P R9ARG DECK-ID P15 RPGII 2.1 SUMMARY-132 J D @P hH
h b l
B D
PR9ARG
P J P 7RPGROT DECK-ID P10 RPGII 2.1 SUMMARY-132 J @P
@P O
@P
@P H
r @P r `P 9 @P4?? r @P 9
@ d ?@ r r @P d +h
h r r @P y % " X
h Ř +
@ iT 0 r r @P h T
- T
h X h | h
r r @P @ T
k
@ T
m kh m l !
@ oT P h r r @P h X ' Dh G A
$@ q T 2 7h X r l @P ; 1 h % /
@ sT 0 7h mX f 3 T
X l r @P i RL=PF =TPF=FBP = OP= P C= h I2 +h
4h xI r r @P h
/9FT^hr| 2=HS\ekt r r @P9DpF\f)3 >X c A l k X Y 7 r r @P l c X Q /Ƞl Y X G % =l O K j C j ? ; r r @P w l 5 s *" h & l " ` Zj X Pd r r @P @Rl I @ BdR i = ɪ 5l 1 +l ' r r @P k ! l * l X " H l H *3 r r @P h Al ~ u h r
oh md h k l r r @P b
Wj
Pj H Gj A ; j r r @P l ' ?h * " h h ~ h r r @P h q h T
h W Z W L O N r r @P B " A D ՚ A" 6 9 8 - 0 / $ ' Ƞ h r r @P m d h H @ >T &' 5
p r r @P h h H T h } x v p jDh i d r r @P dh _` T 0 0 r r @P @ @ & " h (
h & #H h H @
T N r r @P u " h
h Hh H @ T V H " r r @PD
h K h d h H l " \T Hh r r @P o
h T ]h ? X
l " }h
r r @P h $ H h Lh eh xH q o _ p 2 H l g kh l r r @P H i ` e Y ^ \ L E j 4 D K ih > : 3j " r r @P - " h /
h - *Hh &H # @ T X /
l : T gxh r r @P h h T # h L
l
H r r @P Fh h Ӑ + h o mT *O hh ' T VW h r r @Pq P d h K h h *" h { h w X
l r r @P i h ! |h T c s h | 0h x 3 q" F r r @P l el c
l u X c (T l j {
H / r r @P h
?@ # T 6 I("! B 1B H T l ; y@Z{[l P}M]\Nk` r r @P Ka z^ L~no| J _'Om-/@@ @@@@@@@, %;>?@@@@ @@@@@@: ="X ) r r @P H " H
@ T
X TH d ( P )X N LX O
( r r @Ps@ P T X H
x@ T
h T 7 BHh p X r r @P T
h | h h X h 2 h ^ h [ rh r r @P l hh g X v
X ) C h @ Wh Q MX [ r r @P
X ( h X I
X h ( X d 5
X r r @P nh X U ! bh X
h X
X
h r r @P Jm " ?X ΐ 6h j h fl~ A h R h
@ r r @PuT w --h F 7 h ?X 8 =h
@ T w E *h y X r r @P 9 A h r R h l B h f B*h ] h X rX r r @P
@ T L 0h <
@ sT ' 7h X T w
X n ** r r @P **** S EGMENT ***X p
@ 5T ..X /+l : X *%l 5 s! dX r r @P ! j T
X 7 " _
h Y Z****** **ERROR O
r r @P Lh h 2 5 h / TL i B
h
B
@ r r @P wT 0
@ T
,@ xT
:@ T tX # _X
B
@ r r @P T xX b
*h ^ 1 RPG I I COMPIL ERPAGE T hv) p hn
8 r r @P
0hki !f hd
9 a2 \ h Y W T &
ɀ @ r r @P d
h 2 T
h X Y r r @P
# "h h h
"
XDh hl r r @P
N
X
bbb H
h ! h TL
l D
B n H r r @P
y /H= h7:o B0%H4" 3h h3 3 h* C. h& #l#$ %h" L !1 h r r @P
l X hADl h /h;
b hQ h P r r @P
DECK ID *** RPGII O BJECT S UMMARY-1 17PR9RP GX@P r `P
) r @P #PABCD EF r `P N
r @P XPABCD EF r `P
r @P X # dhh h `"e" aa a h X
h h` r r @P hHX X ̈` "e"a aȿa ȿ h Xȹ X 1 `
h r r @P h h h T X _/l
X M H 5
S0h X r n @P X ( RPGO S0 j
q
` X X *Th X YA
` n * POVLYPT 7TRACE 4RPGROT}PSRLVL
DCKIDN
* B PR9ARG R9MIW R9LBY R9BASER9MVB UR9SBY
R9MVW OVLAY B PRPGROT J P RPGIIM DECK-ID P09 RPGII 2.1 SUMMARY-132 J r @P { K t
6 "l "m"n ^l ^l^l ^l r r @P +^lm ^l ^l ^l ^l ^ln ^l
(l6l >m , , , d6 ,>n , ,
, r r @P Vd6 , , , d6, 6B, , d6
, 6
E d6
< 6 H 8<6< 8= r r @P 6= :>
2
<
=
> 0 <6
2
H , d<
J 0, , d6
r r @P , d6 . /.@B F
3 6 H 83 63 8464
:5
2
3
4 r r @P
5 0 3 6 2
H
<
=
> BNB AX/
A @XE /
DXE 0B , r r @P B 0/
Hd<
J.
"fH ^f
< (f 6f d< 2
g"h"i "e:ű (e0: (i0: r r @P -(h 00^g
)gg< 2 d6 d6 d62 S O R T E D F r r @P I E L D N A M E S NA ME T YPE LE NGTH DP S O R T E D L A B E L N A M E S NAME r r @P LIN E THE FO LLOWING INDICATO RS WERE SPECIFIE D BUT WE RE NEVER USED TO CONDITIO r r @P N OPER ATIONSTH E FOLLOW ING INDI CATORS W ERE USED TO COND ITION OP ERATIONS BUT WERE NEVER S r r @P ETTHE FOLLOWIN G INDICA TORS APP EARED IN THIS PR OGRAM 01020304 05060708 09101112 13141516 r r @P /171819 20212223 24252627 28293031 32333435 36373839 40414243 44454647 48495051 52535455 56575859 r r @P Z606162 63646566 67686970 71727374 75767778 79808182 83848586 87888990 91929394 95969798 99 r r @P 1PL0L1 L2L3L4L5 L6L7L8L9 LR H1 H2H3H4H5 H6H7H8H9 OAOB r T @P OCODOE OFOGOV U1U2U3U4 U5U6U7U8 MR T P P *T P P *K,I8 P P *N,RPGSM9,,,B P P *K,I17 P P *L,RPGII P J P $RPGII DECK-ID P13 RPGII 2.1 SUMMARY-132 J b @P h Dh
h h TZ RPGSM0 Xݐ $ b " PRPGII RPGXX RPGYY RPGZZ !" PRPGII P *L,CATLOG P J P CATLOG DECK-ID R81 RPGII 2.1 SUMMARY-132 J 2 @P TZ
CA TFIL 2 PCATLOG CATSEG PCATLOG P *L,R9CNTR P J P R9CNTR DECK-ID P44 RPGII 2.1 SUMMARY-132 J r @P h4h3 H0 T " hZ hY
hX hWhV hj hg XyhT e 1X]
r r @P +h ` h2H0 h0H) h(/ h.h.h. X/#h T & e 1 " "K hHX3E r r @P V j XM "h `
r r @P
! " h
X
" X X A "T $ H
"
" r @P T J PRPGFIL R9CNTR 6R9JUMP dR9SGTB pR9SGIX fR9CKSG uR9MUNO eATTCHK R9BRAK J J PR9PORT
R9MODE R9UNIT R9USER
SYSMSG PGMIN SLICUP ATTACH JR9RPRT J P P *L,R9ROOT P J P SR9ROOT DECK-ID R36 RPGII 2.1 SUMMARY-132 J r @P r @P + T @P 4 T r PR9ROOT Y9PFCB Y9FDC1 Y9CMST Y9MMST Y9INMK
Y9MHLD Y9DETL Y9TOTL Y9LSTR
Y9DOTT Y9TOTT Y9EOTT Y9ALSQ r r PY9CARA Y9MARA Y9UDAT Y9UDAY Y9UYER Y9UMTH Y9FDTB Y9TBIO Y9CMOV AY9INTA BY9ITLP CY9LAHD DY9MMOV EY9NSQR Fr r PY9PAGE GY9TBOT HY9INVP Y9DSEQ Y9FBSE POSSPB POSSKB POSSPA POSSKA R9OCOD !R9RECP "R9TANF #R9TFLG $Y9APFX %r r PY9ASPC &Y9COUN 'Y9DTPT *Y9FDPR )Y9FIPR +Y9FIPT ,Y9FLPT -Y9FPTL (Y9FPTR .Y9FSSA /Y9HIND 0Y9HNUM 1Y9IBUF 2Y9KALA 4r r PY9KAPF 5Y9PSFG 6Y9RECP 7Y9RPTR 8Y9TOP1 9Y9VFT1 :Y9XRPF ;Y9XRTE R9ERTN ?Y9LABL r R PY9FTNX JY9FSTL KR9USER LR9UNIT PR9MODE QR9PORT RR9EDT1 R9EDT2 R9EDT3 R9EDT4 R r PR9FSTL KR9FTNX JR9LABL R9TRCE IR9FBSE R9DSEQ R9INVP R9TBOT HR9PAGE GR9NSQR FR9MMOV ER9LAHD DR9ITLP CR9INTA Br r PR9CMOV AR9TBIO R9FDTB R9UMTH R9UYER R9UDAY R9UDAT R9MARA R9CARA R9ALSQ R9EOTT R9TOTT R9DOTT R9LSTR
r B PR9TOTL R9DETL R9MHLD R9INMK
R9MMST R9CMST R9FDC1 R9PFCB B P P *L,R9RPRT P J P R9RPRT DECK-ID R37 RPGII 2.1 SUMMARY-132 J r @P T ...... r , @P + , @P ; @P @ C ^ @P ^ r PR9RPRT R9INTB R9CLIN R9HTIN R9VIND
R9USND R9MRIN R9FCTR "R9STTS :R9HLFJ >R9REPT ?R9RYST @R9ACC1 YACC1B r r PYACC1O bR9AC1S R9AC2S R9AC3S R9AC1N rR9AC2N R9AC3N R9PPUP BR9UPOP aR9INRZ ;R9INRP A1 5 4h2 T q 93T X = 9h" @$ T h h
$ r r @P 9@ D h 9 T iX r r @P n h
h yӠ "= h : h T h T ؿ ȷ/ r r @P
D@
T 9ȶT
-@ KT O N OFF]fpx r r @P !$'*-0369<?BEH r & @P - & r @P ]INPUT RECORD F ROM.SELE CT RECOR D FROM. CONTROL BREAKS. TOTAL CA LCULATIO N.TOTAL OUTPUT. r r @P OVERFL OW OUTPU T.GET IN PUT FIEL DS. DETA IL CALCU LATION. DETAIL O UTPUT.PR INT RECO RD ON.WR r r @P ITE RE CORD ON. ADD RECO RD TO.UP DATE REC ORD ON. LAST REC ORD CALC ULATION. LAST REC ORD OUTP r r @P UT. AD D.Z-ADD. SUB.Z-SU B.MULT. DIV.XFOO T.SQRT. MVR.MOVE . MOVEL. MOVEA.MO VZ0.MLHZ O.MHHZO. r r @P MLLZO. COMP. TE STZ.TEST N.TESTB. LOKUP.SE TON.SETO F.BITON. BITOF.GO TO. EXIT . ENDSR. EXSR. CH r @ @P 4AIN.FO RCE.DSPL Y.DEBUG. READ. SE TLM.TIME . EXCPT. @
PR9TRCE
R PR9MVW R9GTL cR9BASE R9LBYX R9SBYX R9MVBX CR9USND R9INDM vR9TROT R9INTB R P P *L,R9TROT P J P #R9TROT DECK-ID R64 RPGII 2.1 SUMMARY-132 J ^ @P H h
/h hX
T L $ T L " ^
PR9TROT
PR9UNIT WTREAD P P *L,R9INDM P J P ]R9INDM DECK-ID P77 RPGII 2.1 SUMMARY-132 J r @P HV hV
hUHR SQQ( 1L# 5hIH
hH
DhF = = ;h9 h75 0T r r @P +1+
T ) *
( 2 < F P Z o p z 01 10203040 50607080 901PL0LR H1OAOVU1 r @P VMR
PR9INDM
PR9SBY /R9BASE 0R9XLAT $ P P *L,R9LEL P J P 3R9LEL DECK-ID P90 RPGII 2.1 SUMMARY-132 J r @P h,H, h&H% H$h$!H "h" H *
h !d #h r @P + PR9LEL R9GTL P P *L,R9MIW P J P R9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132 J @P D
PR9MIW
P P *L,R9MVBX P J P ;R9MVBX DECK-ID R07 RPGII 2.1 SUMMARY-138 J r @P X X X X & " !
) r 0 @P +A"T : " 0 Z PR9SBYX R9LBYX R9MVBX R9MIBX &R9MVBT R9MVB R9LBY R9SBY R9MIB
R9LBYT R9SBYT Z PR9MODE *SYSMSG .R9BASE 9 P P *L,R9MVW P J P
R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132 J ( @P H H"
f A (
PR9MVW
P P *L,R9FTNX P J P R9FTNX DECK-ID P70 RPGII 2.1 SUMMARY-132 J r @P hO N"
" h_ j[
A h1 H:; " M T H11 j2.j7 j<-'2 T l
r r @P +h%
`D l%+ T 8 A dh T P j h
r `P V `P Y `P ` r @P gT H h" " A hT C P` ݘ T 7 r r @P 9
r `P
@P
PR9FTNX
2 PR9999B (R9LABL CVASEB R9BASE R9FLDL R9MVB 2 P P *L,CVASEB P J P +CVASEB DECK-ID R89 RPGII 2.1 SUMMARY-132 J r @P H% H"" "bR h
{H HX hX n
"
H r
PCVASEB
PR9XLAT
P P *L,R9FLDL P J P 3R9FLDL DECK-ID P64 RPGII 2.1 SUMMARY-132 J r @P " h+*
h% h%$ h!-H h h1 h
h @ r @P +
PR9FLDL
PR9BASE Y9FBSE Y9FDTB P P *L,R9999B P J P *R9999B DECK-ID R77 RPGII 2.1 SUMMARY-132 J p @P (
h#h#
s L
r
B Hh B H h
F FQ d p
PR9999B
PR9BASE %
P P *L,R9UPK1 P J P RR9UNPK DECK-ID R69 RPGII 2.1 SUMMARY-132 J r @P hL h hEh h> h< H9'`
T
h0h51/ A,h/H- -T ` l'(h' r h @P + Dh" h D lh h h
1 E L h PR9UPK1 R9UPK2 R9UPK3 * PR9LBYT %R9MIW R9AC3S R9AC2S R9AC1S * PEND P *L,SUBRFL P J P +SUBRFL DECK-ID S09 RPGII 2.1 SUMMARY-132 J r @P h'" " T !H T ! T % " r
PSUBRFL
PR9FLDL R9BASE 'SYSMSG ! P P *L,SUBRED P J P SUBRED DECK-ID S08 RPGII 2.1 SUMMARY-132 J r @P h } X 1q Hzd w
iX 6u hpX ! `mHk XzT ! Xfh__ _T ` r r @P +X?
SK + .J : 8AA < ": #" 7
H"* r r @P V1
} )! T T c
T i T ~ " r R @P " T R
PSUBRED
J PR9ACC1 DSYSMSG xR9CNTR sR9BLNK ;R9999B R9UPK1 %R9FLDL R9BASE R9EDT4 J P P *L,SUBRMV P J P ^SUBRMV DECK-ID S11 RPGII 2.1 SUMMARY-132 J r @P BHLhH XM!= AHCXG\D !5: 8:h9 X=4H6 X9\6 ! '-Ø+ -+2) h(X,\)! r r @P +%V !3 d !
" T K " r @P V" T PSUBRMV SUBRLM SUBRML " PR9999B RR9BASE SR9FLDL ZSYSMSG G" P P *L,SUBRIN P J P dSUBRIN DECK-ID S10 RPGII 2.1 SUMMARY-132 J r @P hOXX 1F\ShK XSIXP GXM1 ;\H hB XG15\B h=XA1 /\< h8 X;1)\6 h4-
J, r r @P +
'( $
T G T O " r * @P V " T *
PSUBRIN
2 PR9999B XR9FLDL `R9MVB FR9ZERO YR9BASE HSYSMSG K2 P P *L,SUBRAJ P J P SUBRAJ DECK-ID S07 RPGII 2.1 SUMMARY-132 J r @P h{" " ^ T 1Z T 6 hol PT !
^a! H_ h`\ ! 1 =Y r r @P +hO QRM @E KhH ?E ?2 1 '8'
q v.1 , r r @P V| !$" "# T " A r @P
PSUBRAJ
J PR9MZER uR9MONE rR9ZERO }R9MINS +R9BLNK R9999B R9FLDL R9BASE SYSMSG eJ P P *L,Q8PREP P J P $Q8PRMS DECK-ID R99 RPGII 2.1 SUMMARY-132 J b @P h Hq ` `X `HX " h b PQ8PREP Q8PKUP Q9PKUP
PARABS
P P *L,PARABS P J P PARABN DECK-ID S53 RPGII 2.1 SUMMARY-132 J 0 @P Hh B4 "c " 0
PPARABS
P P *L,FMCALL P J P FMCALL DECK-ID R92 RPGII 2.1 SUMMARY-132 J
PFMCALL
P P *K,P8 P P *P,F,,CATSEG P J P CATLOG DECK-ID R81 RPGII 2.1 SUMMARY-132 J 2 @P TZ
CA TFIL 2 PCATLOG CATSEG PCATLOG D P ZCATFIL DECK-ID R79 RPGII 2.1 SUMMARY-132D
@P
@P @P @P @P
@P 9
@P ` l @P y l
@P PP
@P @P *B*K*V *E @P *J008 @P *Z @P ,6 2 @P *CATLO G* NAME , OWNER 2 p @P h h A h h :
h 6h ڨۘ ֨֘ h f
1 p p @P T \ 0 ȸ ȭh
h
h hȬ h
d Ȱ !LT Ȣ T p p @P#
h3Ȕ \
d f x n n n
)"\p p @P N d d
d T ܱ \ nT T d "\p p @P y J l ڜ d ; p B @P .p4 d , h Ș Є l B p @P̳
d f
1 T ̜ T k p p @P
l n
1 w
l˖ { z ̡ y ̻ l
%1 p p @P xd | d d :T \ @
d T \ p L @P> m
d2 0T #
d T\ # \ L
PCATFIL
J PMIBUF DISKRD"CATERRHLIST \CATMODkCATJCRnSQUEEZPUNCH CATOBJ1J PCATFIL J P CATGET DECK-ID R80 RPGII 2.1 SUMMARY-132 J X @P H "h "h hTZ ` **** ** X
PCATGET
P J P CATSKL DECK-ID R85 RPGII 2.1 SUMMARY-132 J n @P H> H&H#
Q
`
&T
#@ n > @P * H H j}
q > r @P A H h n h Q *LIBED T *K,I6 *K ,P8 *P,F ,3,RPGFI r r @P lL *B ' R9CNTR' *B 'R9 ROOT' *B 'R9RP RT' *B 'R9SAVE ' *B ' SYSMSG' *B 'CR EATE' r r @P *B 'PG MIN ' *B 'FMCA LL' *B 'STRACE ' *B ' RPGOBJ' *B 'R9 ELOC' *T *K r n @P ,I8 *J , , *K,I 6 *Z *V *E ND n PCATMOD *CATJCR ASQUEEZ P D P }CATOBJ DECK-ID R84 RPGII 2.1 SUMMARY-132D @P p @P 6 Gh h T #T
h h
hڈ h מ p $ @P 2
1
hhŀ $ H @P B h
Z1 hh \ \ "\ hH L @P ` HT T h hh h 8h # h h\ h\ hŀ L
PCATOBJ b
" PQ8PKUP hQ8PREP eCATGET CATERR " P D P CATERR DECK-ID R78 RPGII 2.1 SUMMARY-132D ( @P p *CATL OG* *** * ERROR **** ( ( @P *CATL OG* REA DY TO IN STALL ( ( @P MASS STORAGE I/O ERRO R ( ( @P REQUI RED PROG RAM NOT FOUND ( ( @P * LIBRA RY PROGR AM NOT V ALID ( ( @P 8 PROGR AM ON LG O NOT VA LID ( ( @P F TOO M ANY PROG RAMS ON LGO ( ( @P T LAST LGO PROG RAM HAS NO XFR( ( @P b INVAL ID CONTR OL STATE MENT ( @P & @P T p
, h\& @P T @P HT T h
PCATERR
" PQ8PKUP Q8PREP LIST DISP " P D P YCATMSG DECK-ID R83 RPGII 2.1 SUMMARY-132D
@P
@P 6 @P 5 ( @P *CATL OG* PRO GRAM ( * @P 7h h
hT 5 6 * * @P I H T T h h h*
PCATMSG K
PQ8PKUP QQ8PREP NFWRITE > P J P CATLU DECK-ID R82 RPGII 2.1 SUMMARY-132 J D @P T T h
"" D D
PCATLU
PLOG1A Q8PKUP Q8PREP P D P 0DISKRD DECK-ID R90 RPGII 2.1 SUMMARY-132D
@P
@P
\ @P h T
T T #T
H
T T h\h\
PDISKRD $
2 PQ8PKUP *Q8PREP 'FREAD DISP LINK CATERR 2 P D P 3LIST DECK-ID R96 RPGII 2.1 SUMMARY-132D
@P
@P b @P
T h h T
T T !
H
T T h\ hb
PLIST '
2 PQ8PKUP -Q8PREP *CATLU FWRITE DISP LINK 2 P D P 1PUNCH DECK-ID R98 RPGII 2.1 SUMMARY-132D
@P
b @P h T
T T #T H T T h\h\ hb
PPUNCH #
2 PQ8PKUP )Q8PREP &FWRITE DISP LINK CATERR 2 P J P FORTN DECK-ID R93 RPGII 2.1 SUMMARY-132 J r @P X/ X+ X' X# X X } X $ X r r @P + ) X a"a X "
XIb
XF b
XCa
X@b
bX @P @ . @P ENTER SWITCH VALUES < XXXXXXXX > . @P
XXXXXX XX @P SWITC H = 0000 0000 @P INVAL ID SWITC H ENTRY @P 2 p @P ChT - 1 7 8 h T 1 2 9 3
: ;
hߪ hʬHh ۨh p @P nИ p @P w ȿ ȼ ȹ س
1
I H l A p p @P l I H lA l I p p @P H lA 묹 l Iw H lAj p p @P l
d L h ̓A l B l C lDp p @P # lE
lF lG lH lT P 1 4 @ Ap . @PN
; T \ 1 5 B A
; .
PSWITCH
" PR9SWCHPGMIN FWTREADHPGMOUTR" PSWITCH J P R9SWCH DECK-ID R58 RPGII 2.1 SUMMARY-132 J
PR9SWCH
P J P (EXENTP DECK-ID A34 ITOS 2.0 SUMMARY-132 J l @P X X
` X X X X X X H
" H
!H HT ` l : PWTREAD SLICUP ATTACH
PGMIN PGMINT CHAIN PGMOUT : P P *T P P *K,I8 P P *J,SWITCH,$$ P P *K,I17 P P *P,F,3 P J P pTRACER DECK-ID S13 RPGII 2.1 SUMMARY-141 J r @P T 4 5 6 ` a b e fX H T i 4 m n X T g hR2 2lO@ H "< *SE r r @P +B 4 l=
OPT ION 0 ,1,2,3 TRACE-RP G RUNTIM E
OPT ION E r H @P VERROR STOP ONL Y
T L H
PTRACER
" PSYSMSG PGMIN WTREAD R9SWCH o" P J P R9SWCH DECK-ID R58 RPGII 2.1 SUMMARY-132 J
PR9SWCH
P J P (EXENTP DECK-ID A34 ITOS 2.0 SUMMARY-132 J l @P X X
` X X X X X X H
" H
!H HT ` l : PWTREAD SLICUP ATTACH
PGMIN PGMINT CHAIN PGMOUT : P P *T P P *K,I8 P P *J,TRACER,$$ P P *K,I17 P P *P,,3 P J P MOUNT DECK-ID R97 RPGII 2.1 SUMMARY-132 J r @P 8 r `P + `P , `P - < @P F D@0000 00 0000 00 * < @P
`P r @P $$MOUN TS$$ bmx7@BJLU r r @P
UNRE COGNIZED PARAMET ERS IN PUT ERRO R. WANT TO CONTI NUE? FILE NAME IS r r @P MISSI NG
FILE MANAGER ERROR
MISSING PARAMETE R. EXPI RATION D ATE WRON G LENGTH . PARA r r @P $METER TOO LONG . CODE NOT A O R B OR E .T c 7T \" Dh . h ;+h AB 2h r r @P U =<,h h2h 5h
h h 0h 2 h
h h1 h -h r r @P
h T " Ѡ0
T ! T ! #2 r > @P hȲ0 1h A h h ȥhH T > r @P 1 T 6T !
A >h Ah h r 0 @P #1 h #
2h H T 0 @P
PMOUNT 8
R PCLEAR AWRITEROPENFL9CLOSFLCM00PTCM00GTIO00WOIO00WRbCM02INROOT43R PMOUNT J P \IO00WR DECK-ID R95 RPGII 2.1 SUMMARY-132 J r @P hX hPD hK
hH HOHNE hBA h> >Bh7A h8X h0T ` L0 5"- ,h)( r r @P +h%% h # h"hT ` LH ! 1 h
@ H r @P VL PIO00WR IO00WO P J P aFMENTP DECK-ID F58 ITOS 2.0 SUMMARY-132 J r @P X% X# X! X X X X X X X X X X
X X X X X X X H7 r r @P +h
H/ 3 2 " 4` aAD e ! aa ݘ AA a a r " @P V V h ` " r PCREATE $CLEAR "DELETE OPENFL CLOSFL LOKFIL UNLFIL GETFCB UPDFCB RENAME PUTS WRITER READR GETS
r * PUPDREC DELREC COMFIL VOLUSE REDUCE * P J P jROOT43 DECK-ID S36 RPGII 2.1 SUMMARY-132 J r @P Hdd dh]] d dhU T %r J E" 4hE @ + r r @P + ; 5 2
H/ H-+ (! !n!
r : @P VةF A h
& Ah e f : PROOT43 MOVE P J P 5CM00PT DECK-ID R86 RPGII 2.1 SUMMARY-132 J r @P
h- h-D h(D Bh&H& H% B h 0$h D l
Ȉ QH
r @P + @ PCM00PT CM00GT P J P iCM02IN DECK-ID R87 RPGII 2.1 SUMMARY-132 J r @P , hHh DhShSh hhh C d h
hH
hh r r @P . hhT h
Øؽ غT e "ȶb ȱbȭb r 0 @P YȬh fl ȡ`Ȝ ب 0 PCM02IN
DELIM PCM03GO MCM00GT 5 P J P mCM03GO DECK-ID R88 RPGII 2.1 SUMMARY-132 J r @P H h` 31hH R4 "D" h$ H" a AA
bD bb
b r r @P 0Db b"
ba @ @ l r `P [ `P l
PCM03GO
P P *K,I8 P P *J,MOUNT,$$ P P *K,I17 P P *P,F,3 P J P SELMU DECK-ID S05 RPGII 2.1 SUMMARY-141 J r @P T ! T T ! " # H " f"
SEL ECT MULT r r @P +IUSER FOR RPG RUNTIME
R EPLY 0 OR 1
(R MUCF0) r r @P V
S MALL, MO ST LARGER, ALL
F EATURES OF r r @P RPG FE ATURES
RPG INC LUDED (MOVZ, BIT
OPS, M r : @P AG TP)
L :
PSELMU
PSYSMSG
PGMIN WTREAD PSELMU J P (EXENTP DECK-ID A34 ITOS 2.0 SUMMARY-132 J l @P X X
` X X X X X X H
" H
!H HT ` l : PWTREAD SLICUP ATTACH
PGMIN PGMINT CHAIN PGMOUT : P P *T P P *K,I8 P P *J,SELMU,$$ P P *Z P P *CTO, RPGII INSTALL COMPLETE P P *K,I10,P11,L9 P P *Z P P *JOB,INSTAL,COBOL1 P P *CTO, COBOL 1.0 INSTALL P P *CTO, COPYRIGHT CONTROL DATA CORPORATION 1978 P P *K,I17 P P *LIBEDT P P *K,I17 P P *L,C4CLOS P t P C4CLOS DECK-ID E02 COBOL 1.0 SUMMARY-132 t t @P
D
D T t t @P
H t t PC4CLOS t t PCLOSFL
t t PC4CLOS t P *L,C4COMP P t P EC4COMP DECK-ID E03 COBOL 1.0 SUMMARY-132 t t @P
h . D D - D D !T t t @P " )
h +
h 4 Ә1
h H H H t t PC4COMP 6 t t PLLT t t PC4COMP t P *L,C4DLNK P t P DC4DLNK DECK-ID E04 COBOL 1.0 SUMMARY-132 t t @P
h h 7D B 2 - L( 2L D C( 2b 7h t t @P /L( 2h H H t t PC4DLNK 8 t t PC4DLNK t P *L,C4DADD P t P 4C4DADD DECK-ID E05 COBOL 1.0 SUMMARY-132 t t @P h D 3 b
D T t t @P L n H H
d t t PC4DADD # t t PLLT t t PC4DADD t P *L,C4DSUB P t P 0C4DSUB DECK-ID E06 COBOL 1.0 SUMMARY-132 t t @P h D / bT L n H H
d t t PC4DSUB t t PLLT t t PC4DSUB t P *L,C4EXCH P t P 5C4EXCH DECK-ID E07 COBOL 1.0 SUMMARY-132 t t @P
h d 3 h D 4 n n 1 H H t t @P 0H t t PC4EXCH % t t PC4EXCH t P *L,C4MOVE P t P ,C4MOVE DECK-ID E08 COBOL 1.0 SUMMARY-132 t t @P
h d * D + n 1 H H H t t PC4MOVE t t PC4MOVE t P *L,C4OPEN P t P xC4OPEN DECK-ID E09 COBOL 1.0 SUMMARY-137 t t @P D t D u j T
h ,
b
t t @P -1
D :
D < T t t @P ; t t @P =" k
D O
!D R
D ST t t @P P v v t t @P TL "b L# b! iT w nT g w H t t @P v t t PC4OPEN o t t PPGMIN OPENFL 9GETFCB NC7EXIT l t t PC4OPEN t P *L,C4RDST P t P WC4RDST DECK-ID E10 COBOL 1.0 SUMMARY-132 t t @P T d U
!
d VT %
b 4 bb bD 3T t t @P 4 H H HH
d
d t t PC4RDST 5 t t PLLT C4READ 2 t t PC4RDST t P *L,C4RDWF P t P WC4RDWF DECK-ID E11 COBOL 1.0 SUMMARY-132 t t @P T d U
!
d VT %
b 4 bb bD 3T t t @P 4 H H HH
d
d t t PC4RDWF 5 t t PLGT C4READ 2 t t PC4RDWF t P *L,C4READ P t P QC4READ DECK-ID E12 COBOL 1.0 SUMMARY-132 t t @P "h D T h
hd O =
D ) D *
D ,T t t @P + t t @P -2 5T P `hT ۘ1
2 I
b H t t @P P ! t t PC4READ J t t PC4DADD 9READR (C7EXIT 3 t t PC4READ t P *L,C4SORT P t P C4SORT DECK-ID E13 COBOL 1.0 SUMMARY-132 t t @P t t @P 2f 2 n 2b 2 b 2h 2 h 2h t t @P 2h 2 b 2b Ȼ2Ƚ bȶ 2ȵb ȁh ȀhT t t @P
!
h
h e Ȑ h _Ȋ 2Γh ȃ2 h 2΅ t t @P=d 2d X T VX V ^ 2 ^X
/ 1
1 t t @P h
l 2
!
d 2
!
T d d t t @P T
d
l
d 2 d 2 d t t @P
d
l
l 2D < 2 Ν 2
D 2
D T M t t @P ̽l ̸2 L̪ 2 d ώ2 ̨lܦ
1 ̗2 ̣ "̎ t t @P 2
D T t t @P X - 2̈2 -Xd p4 d l t t @P Fα h
h D 2h
2 ΜhL D (2 ΏhT DE t t @P q 2 w hL( 2h ȼL (2Ȼ bȴL (2ȱ bȭL (2ȧ b t t @P H H H t t @P
b h
h d D n 1 h
2 t t @P L 2 ηhL D (2 b Χh Π
D t t @P T t t @P T Ήh nș Ȑ 2N
!
l
!
А t t @P 7d n d 2D MT t t @PN
2 Z
b 2D n 2L b εd 2 D zT
t t @P y t t @P{̾d
d l Λd T Αl lל 1
n
2 t t @PT d
b
!
d
!
b
D T
t t @P t t @P D t t @P t t @P t t @P
h
h &
h
h & & t t @P $
h
2 ? " < Ⱦ h ?ȹ h ȶ2 Oȱhȱ d Ȭ O t t @P O H h h T h 2Ε h 2d
d d t t @Pz
" l 2 N
l t t @Pd D 2d d n
d 2 1d L n t t @P L nL D (2 b γ
n
n̂ lT t t @P Λ T
n T
"
d 1l L(2 t t @P & l l nT x T J
2 F
b d D t t @P QԌ n 2D `T 2 t t @Pa m
n d δd n
n
d t t @P Δ d T ll ΅l ڜ1
l lT t t @P l̸l l ̆1 ̥b D ̛n L b
l t t @P̜ d lT l θ lܑ꜏ 1 Q
l ΩlT t t @P
ld Ι l 1 l n
l l C lT t t @P 8 l̺l l ̢1 ̮b Q
b
n gD t t @P cn rL L n ̞n L 2 ̔b ή t t @P " T Η T \ 2Ά
!
d 2
t t @P !
f
2 T : d 2
b
n 2 t t @P ̽2 n̶ 2 b̯ 2n ̨2 b ̽ l t t @P
n - ̎2D ñ 2L b
n
!
d t t @P:
!
J
b
b b
d
n t t @P enT \ 2D {T t t @P| d T z 1
d
d l D 2θlT P t t @P lT _ lL (2 l
l Ԕ 2
d p0 l\ t t @P ̻A l 1 L 2 b L 2 b nT t t @P
2
b ld y t t @P L V t t @P) t t @P- 2 5 l̢ ?
d J d
̔ lp t t @P
l #
D T ` t t @P
D d T t t @P! ̺n l̸ܼ 1 Ad ̗d ̬ ḽ " ̨d d Χ2 L f t t @PL Ξ" k Η d Βd T k l l Ad f t t @PwD n l l " l 2 l
n 2
nT t t @P 2 n lT n l D T t t @P D T t t @P d Κ
!
d Άd T _ ̸d ̤ll t t @P Ad ̩f D n l L nD &T t t @P ' 1 n 4
n
D :T % t t @P ; ML ǀ n b P
b
d d d n
b
b
l t t @P f2
n̕ 2
b d T T
d d
2
b L t t @P D X t t @P
d D T t t @P
d D T
t t @P
d D T t t @P
d D T t t @PT L t t PC4SORT t t PC4RDST
LLT C4DSUB VC4WRST LGT 9C4COMPC7SRCL
C4RDWF C4MOVE SLL C4DLNKC4EXCH C4DADD C4WRWF ^ t t PC4STWK
C4OPENuC4CLOS t t PC4SORT t P *L,C4STWK P t P 'C4STWK DECK-ID E14 COBOL 1.0 SUMMARY-132 t t @P
b b
bD $ D % D & f H H t t PC4STWK t t PC4STWK t P *L,C4WRIT P t P kC4WRIT DECK-ID E15 COBOL 1.0 SUMMARY-132 t t @P "h D T h
hd h V
D *
!D +
D - T t t @P , t t @P .2 6T i
D CD D
D E T t t @P F2 NT 4 jȵ `hT ث1
2 b
b H t t @P i ! " t t PC4WRIT c t t PC4DADD RREADR )C7EXIT LUPDREC B t t PC4WRIT t P *L,C4WRST P t P mC4WRST DECK-ID E16 COBOL 1.0 SUMMARY-132 t t @P D l b L bb D T t t @P D % D &T t t @P 'L d j
!
d k
D ?
D @T $ t t @P A S L nL b D YT t t @P Z H HH H t t PC4WRST [ t t PC4WRIT LLT >C4DSUB W t t PC4WRST t P *L,C4WRWF P t P bC4WRWF DECK-ID E17 COBOL 1.0 SUMMARY-132 t t @P T d _
!
d `
!
d aT /
b > b t t @P 3b bD =T t t @P > H H HH
d
d t t PC4WRWF ? t t PLGT C4WRIT < t t PC4WRWF t P *L,C7ACDT P t P 9C7ACDT DECK-ID E18 COBOL 1.0 SUMMARY-132 t t @P0 h hT
h , D 7 d 6 " D 8
1 t t @P 1T t t PC7ACDT 4 t t PASCDAT C7RCTL 2 t t PC7ACDT t P *L,C7ACDY P t P C7ACDY DECK-ID E19 COBOL 1.0 SUMMARY-132 t t @P ; Z x 0 N t t @P d oL h
D p D q p0
0
L"
Lp 8"p8 t t @P B 0 ] " `
L"L p0 d 0 t t @P d H H t t @P0 r hΦh T ȅh p0
!
d
"
!
X X t t @P T t t @P t t PC7ACDY t t PDATTIM zC7RCTL t t PC7ACDY t P *L,C7ACPC P t P C7ACPC DECK-ID E20 COBOL 1.0 SUMMARY-132 t t @P
t t @P0 h d
d 0 d
d 0
d wd 00d
6̰d D t t @P 1d 9 ld 0 d 0
d
P 2 J
PlT 0 Z l ] t t @P \l A"μh A h، "p0 hT 1 Ȉ lƜ2 Pd 2 t t @P ̷l 0 T t t @P t t @P t t PC7ACPC t t PC7RTIO KC7MOVE rC7RCTL t t PC7ACPC t P *L,C7ACPS P t P aC7ACPS DECK-ID E21 COBOL 1.0 SUMMARY-132 t t @P0 d "d 0
d 0Dd !l T _
P " - h : t t @P - " 7
P h : h A hd ^T ` ^ Pl !ܯ T t t @P X t t @P Z t t @P _ t t PC7ACPS Z t t PC7RTIO "C7MOVE FC7RCTL U t t PC7ACPS t P *L,C7ACTM P t P tC7ACTM DECK-ID E22 COBOL 1.0 SUMMARY-132 t t @P d IL h
D J D K p0
0
L"
Lp 8 0 t t @P 6] t t @P > H H t t @P0 L hh T Ȱ "p 0 hX p X q X r X s T t t PC7ACTM n t t PDATTIM TC7RCTL l t t PC7ACTM t P *L,C7ALTS P t P $C7ALTS DECK-ID E23 COBOL 1.0 SUMMARY-132 t t @P0 h N lT t t @P t t PC7ALTS t t PC7RCTL t t PC7ALTS t P *L,C7BLDI P t P 3C7BLDI DECK-ID E24 COBOL 1.0 SUMMARY-132 t t @P0 h " 2
l T t t @P - t t PC7BLDI - t t PC7RCTL % t t PC7BLDI t P *L,C7BLDX P t P .C7BLDX DECK-ID E25 COBOL 1.0 SUMMARY-132 t t @P0 hN 0"
D -
lT t t @P ' t t PC7BLDX ' t t PC7RCTL t t PC7BLDX t P *L,C7BRST P t P .C7BRST DECK-ID E26 COBOL 1.0 SUMMARY-132 t t @P0 hN "D +
D , D - f lT t t @P ' t t PC7BRST ' t t PC7RCTL " t t PC7BRST t P *L,C7BSAV P t P .C7BSAV DECK-ID E27 COBOL 1.0 SUMMARY-132 t t @P0 h
N D + "D , D - 0 n lT t t @P ' t t PC7BSAV ' t t PC7RCTL " t t PC7BSAV t P *L,C7BSTM P t P -C7BSTM DECK-ID E28 COBOL 1.0 SUMMARY-132 t t @P0 h
f h b%D D T t t @P l T t t @P ) t t PC7BSTM ) t t PBSTORE C7RCTL $ t t PC7BSTM t P *L,C7BSTX P t P +C7BSTX DECK-ID E29 COBOL 1.0 SUMMARY-132 t t @P0 hN 0"
D * b lT t t @P $ t t PC7BSTX $ t t PC7RCTL t t PC7BSTX t P *L,C7BVAL P t P JC7BVAL DECK-ID E30 COBOL 1.0 SUMMARY-132 t t @P LD h 2
h 2
h
h h
߈D I "
t t @P /d H L"
h t t @P @ H t t PC7BVAL @ t t PC7BVAL t P *L,C7CALL P t P C7CALL DECK-ID E31 COBOL 1.0 SUMMARY-132 t t @P0 hN h n lT t t @P t t PC7CALL t t PC7RCTL t t PC7CALL t P *L,C7CLSA P t P mC7CLSA DECK-ID E35 COBOL 1.0 SUMMARY-132 t t @P 0 h h hd k h
d $ ט" t t @P / `
D l " p0
L l D"ʺ wR
ta q
2 Zت _ t t @P ZȨ h
lܴ T t t @P g t t PC7CLSA g t t PC7RCTL b t t PC7CLSA t P *L,C7CLSN P t P C7CLSN DECK-ID E36 COBOL 1.0 SUMMARY-132 t t @P0 h h h Dh 3
D h t t @P 1 B h
L"
] h̰ bȽ
!
d ȵ
!
`
d $ t t @P \ ` Ȣ "
!
l
9 "
!
d ȓ "
!
l
Z"
!
lȂ
! t t @P
l
!
к
l l L d l 2
t t @P D "
!
Ll
9 l d"
!
F
l
t t @P0 d $ 0 T t t @P t t PC7CLSN t t PC7RCTL t t PC7CLSN t P *L,C7DBIN P t P
C7DBIN DECK-ID E38 COBOL 1.0 SUMMARY-132 t t @P0 d T t t PC7DBIN t t PC7RCTL t t PC7DBIN t P *L,C7DBMR P t P
C7DBMR DECK-ID E39 COBOL 1.0 SUMMARY-132 t t @P
d T t t PC7DBMR t t PC7RCTL t t PC7DBMR t P *L,C7DBSU P t P GC7DBSU DECK-ID E40 COBOL 1.0 SUMMARY-132 t t @P PERFOR M LOOP USE PROC EDURE ST ART PROG RAM FALL THROUGH SORT I NPUT SORT OUT PUT ME t t @P 6RGE OU TPUT t t @P = t t @P0 A hN h hh ȵ h h hȪ h h hT t t @P l B C ȗ h h h h &T kBB D D Ad @ t t @P dd d AT t t @P @AD s
!
l s
!
T BB 3 d > t t @P d ? d @D T B t t @P E @ 3 l lD T B t t @P @ sb
r " &" s
! 0
l d < s lT B t t @PF < & d @, 3 l T t t @P 9 A t t @P B t t PC7DBSU9 t t PC7MOVEWTD C7RCTL1 t t PC7DBSU t P *L,C7DBTM P t P C7DBTM DECK-ID E41 COBOL 1.0 SUMMARY-137 t t @P0 " h t t PC7DBTM t t PC7DBTM t P *L,C7DBTS P t P HC7DBTS DECK-ID E42 COBOL 1.0 SUMMARY-132 t t @P h h
!
d G
!
l ( = 2 2 t t @P -l =%D ;%
D t t PC7DBTS t P *L,C7DBUG P t P jC7DBUG DECK-ID E43 COBOL 1.0 SUMMARY-144 t t @P MSG.FI LE$$ SYSVOL t t @P
t t @P
t t @P Z
CDC COBOL IN TERACTIV E DEBUGG ER(03-27 -01-78) t t @P t t @P t t @P t t @P
ME SSAGE FI LE NOT A VAILABLE t t @P D.BUGG ERSYSVOL t t @P
t t @P t t @P
MANU AL BREAK ENCOUNT ERED. t t @P (
I/O ERROR XX XX AT XX XX.
ER ROR XXXX AT XXXX . t t @PB h h h n 2 lT ('PQT U(@RQT ST(UTSS l t t @Pm ȳ hT
T aST VTSST |ST WTSS T [5'XQT t t @P5@YQT ST5ZTSS
lT ST VTSS E d T STZ t t @PTSS "
E Y d D & L B t t @P
> "
d d :
2 d T v
Z
XS E l
t t @P l
l :T ST[TZ\ /T ST
[TSS " ̙
ld t t @P ; C܇
h lh
d d ȑ 2
!
l
9 2
!
lȂ 2
!
t t @Pfd
Z 2
!
F 2
!
l
92
!
0d
A l t t @P E ܴܳE Zl "
!
l
!
l
9"
!
l ̵ "
!
t t @P еl
Z "
!
Ь ̟ l̔
!
l̍
!
l "
t t @P µ
!
Ёl
!
Í l t t @P ܹ bܱE Zl 2
!
l
9 2
!
l 2
!
l
F2 t t @P =
!
и Mܿ܈ l
2 Y
d `T Zd
l t t @Ph m ̇l̇
!
l̀
!
F 2
!
l
9 d d2
t t @P !
0l t t @P ah l h d T
T S `h & lT
\Sl t t @PD n L b n H t t @P d 0 K t t @P h l
hhT
\S
h 4 2 % nވh ; t t @P ! / nΎ h ; h
_1 Ⱥ HH t t @P H t t @P0X h Hl h h h hh h b s " " h t t @P lT (h
h ȷh\ 0h ȯh
h \ Ȩ hD d p< h
h t t @P
ôؠ
1T SQ]T %ST VTSST ST ]TSS t t @P h h h h h h h h h h Vd D F D G X t t @P
LINE NUMBER XXXXX,($ XXXX) T =h
h
1 T ^] d M t t @P+T MUQ :
h <
hT ST TSS H t t @P Y hp 0 [ z p8l d T
T Sp 8h t t @P H
l
h ' (h lȾhX Sh" D T t t @P_`h h lȗhX Ph" hȏ2 ȏ Ȇ h
hX t t @PPd Q Ȁ D T t t @P_`d T" D T t t @P_`l l̕ d U" Εl OD " D T t t @PSQ f D "T t t @P#a[ = D /T ! t t @P0S` ;
n = ̗" D DT . t t @PEQVd Rp0 ` d T q
T S N d L P p8" n
2 t t @Pp y
d Td T
!
l
"
!
T Z t t @Pd Q2 d V . l\ʜ 2 ̼ \̵ D t t @P D f ̬ l A l p0 d Nn
d t t @P LD O t t @P
'2
h c F )h d T R
T Sp 0 _h ( t t @P- 4 F D " ?
h D "h ch lT
\S D j t t @P Xp0 " f Ȟ H t t @Pm
!
d
"
!
h D T Z nϔ %"
! t t @P
l "
!
h Lγ n p0 ` d T L
T t t @PS Lp 8"̐ n
hș H t t @P p 8Ĕ p 8l lT
\ Sp 8d" `h H t t @P
n ld '
h
h
hh
"
!
d
!
?
h
} 2 t t @P D ȗ &h E Zh V ؊ fȕ 2 b Ȃ d f l | t t @P of ߌl
l
l } D
n L (n t t @P lT CSad p0 ` d T
T S p8 "l
d
T t t @P
l " p0 l ̌ d
\
쉞
܂ߜ1 t t @P
L̰ l\
lT
bQn
L ̟ l\
lT
bQ
!\l t t @P
d
} 'L l\
lT
Sbf (T ̑
!
l E Z
!
t t @P
Fl"
!
l
!
d
"
!
F
{
1 t t @P
q2
x
l
} \
l̠ D t t @P
h
h E
!
d
!
h
!
l "
! t t @P
hȻ hh
l +h
h
hhȦh phث ȡb s " t t @P
" wȕ
hh lT ȁ - d
\
t t @P ! l\ . .l\
!
d
"
!
t t @P GlE Z
!
l
!
b T Zd
d
D t t @P r,b " 0 =
d
d 0
l L t t @P D
D
D
t t @P
* &f l
hT c` # d T
\S ` l
h t t @P E
hE d 2 E Z
س똱 1T
Z\ t t @P S !T =ST [TZd "
h ȉ D t t @P 1 t t @P <
d "
E Y
d " ` d T ɔ
" `T G0 \̻ g t t @P g« h "
!
d
X"
!
T cc \ȯb Xs B" " t t @P ̽ \cV ̹ h T ; T
6 \c] t t @P T e ; \c_
l b T 6 a1 d 2 \ t t @P cQ lT * n \c]
f ̙d T
4 t t @P
!
l
"
!
+T ce T cZd 7
6
l
E T S t t @P
>T VTSS
d 8
` lT , 6[QT
<ST ]TSS ܪ 1
T
6 t t @P
il
!
Ѐ
y\c[ T 5 7
\c_ T 5 7 T t t @P
d
T ;
\ 6 d
!
lT e ;
T t t @P
c] l
\cf
ld
d T
\S t t @P
2
T
UST VTSST
ST WTSS T S t t @PTgTSS
l X lT
\ST ST VTSST 2ST t t @P@ )TS Sބ `l T <ST VTSS 6 a 1 lT t t @P kE Z t\ T ce d f
!
d
!
t t @P \cX l̽d 4 \
!
l̻"
º
!
l
!
t t @P \T
8l
!
о \c[ T 5 8 \c_ T 5 8 6 4 t t @P \cX \cf
d d ; 7T ; t t @P 7\ 6 'T c] RT e ; 7\c]
l H b G t t @PBT 6 a1\cV U\c] l
!
d E Z t t @P m
!
l"
!
d
l T G l t t @P D \ t t @P ܣ
1
l D \ t t @P ܔ㜒 1 T cc $ o $ H$$$ $r $$a $$ t t @PT ` Пd T = d 6̓ 0\ D 3 < t t @P0
d l0T G XT T MSTZhTSS
l
d a
d d d Y t t @P* 1
f
1
d ld d
l N
f
f
1 T t t @PU 2 jT STgTSS
d l
l
l { D OE E ܮ
1T t t @PS
2 T caT
d T )
\Sd d d d t t @Pd % d d d d
d Y lT
\S
d t t @P ` lT
\S
1
d &T ST T T \STiTSS t t @PT G
lT T
l b \Y a1 >T = l
! t t @P ,
F > l\ >\T "p 0 l f t t @P P K P
O - t t PC7DBUGL t t PWTX
OWTREADREADR XTW ZUPDRECC7PSTM`C7DSPCkC7DBTM
WTD !EXTRCT
,DTW
,PGMOUTC7PB ?OPENFL t t PPGMINT t t PC7DBUG t P *L,C7DEXT P t P
C7DEXT DECK-ID E44 COBOL 1.0 SUMMARY-132 t t @P0 d 00 " t t PC7DEXT t t PC7DEXT t P *L,C7DLRL P t P C7DLRL DECK-ID E46 COBOL 1.0 SUMMARY-132 t t @P d 0 T 0 "n 0
d D T t t @P0 h d " l > lT Sn
l
b
D =T t t @P >h d S l
b t t @P S t t @P Y
h 2 t T X 2 ~T q X 2 t t @P T { X 2 T X 2 T X 2 T X
hT X t t @P
D
D D l "D L "
L t t @P Y t t @P D W Z t t @P "
!
d h "
!
hl ! lT [Ԁ t t @P# X Md T ( bn d ? l KE
D IE
D JT t t @PKT ld b l [T t t @P b t t @P i̯ܰl
|T Y T z
%D
m@ t t @P
!
d
!
D E
D T t t @PT ST " D T t t @P 0X l lT L t t @P t t @P \ b c
t t PC7DLRL t t PINCSTK+DELT59 READ13 L L t t @P 1
d 0 d 0
d wd 0
d 0
d " , ܽοd 0
h ṵ t t @P \d < l Dd ̥J 2 s Jh | lݔ ld 0 ̒ "
!
l t t @P "
!
0L L D ? ] > C = l l "
t t @P !
l "
!
L
0 l
!
l̏
!
t t @P d <
!
d ̬
!
'̡d 0 T @ '
l L L E t t @P ÒL L Æ 2 " ̓ 2 ' ̨ l 0 G d T t t @P3 t t @P 7 t t @P @ t t PC7DSPC7 t t PC7RTIO C7RCTL2 t t PC7DSPC t P *L,C7DSPS P t P 0C7DSPS DECK-ID E48 COBOL 1.0 SUMMARY-137 t t @P0 d h d 0
d 0 "d T --3-. 0
d " d 0
h t t @P . P d ) Ќl Ďd 0 ԥ J2 N ԥJ h W lݶ l t t @P0 Yd 0 | hD *
D + n
L
Ï ̓ "
!
l t t @P ՜"
!
0L L D , ] ̷ l l "
!
t t @P l "
!
L
0 lȘ T /
lT --;-. t t @P0 0 2 2 T / 0 d
D * t t @P D + Β Í l ! d 0 T t t @P " t t @P- t t PC7DSPS" t t PC7MOVE C7RTIO C7RCTL t t PC7DSPS t P *L,C7EXIT P t P sC7EXIT DECK-ID E49 COBOL 1.0 SUMMARY-137 t t @P C7ERRM SG$$ SYSVOL 'd 00 # d
l 0d $ 0 h D m D nf t t @P . T oT 2 pT 5 q
d
d & d
0
Id
d w 0d
d T 88 r t t @P Y d h
l " f T H t t @P o t t PC7EXIT g t t PC7RTIO TPGMOUT e t t PC7EXIT t P *L,C7EXP P t P C7EXP DECK-ID E50 COBOL 1.0 SUMMARY-132 t t @P \ ! t t @P
t t @P
t t @P t t @P t t @P t t @P $
h h hT D
D f %
f 0 0 h
h L t t @P O L j
h w
f ; lT T i # d # t t @P z ~
h # d #؛
1ؕ
1 t t @P
h "D D (2L
D ΐn
1 t t @P
h D (2 L(" D
D % f
1 t t @P
0 f ;T D
D n
nT mT T
$! t t @P t t @P A t t @P hD _
D ` γn T T 'T L
LΞ nT T t t @PAT /T
0E /T
0Αf % ̳ t t @P0a 0l d d d
d
d d 0 d t t @P N D "D
D λ n L("L
LΫ n T L
L t t @P n T $
d
l
d
l L
L βf 0 0T t t @P
d T + L
L % n ̷ ̸ t t @P
l
d !
ḷ 8T D
D f t t @P 8
Τf 0; @ d
d L
n
1 T P0 $ vT & T Q t t @Pc i t r tT ] T Z T ^
" T T L
L t t @P %n ̈ T w T < L
L 0 n T "D D
D t t @P n 0 lT t t @P a t t @P t t PC7EXP t t PDECBIN /MULTPYDLOAD SUBTRCHCOMPAR{DIVIDEADD @TESTZRC7RCTL t t PC7EXP t P *L,C7GDPS P t P C7GDPS DECK-ID E51 COBOL 1.0 SUMMARY-132 t t @P0 h hN 2
!
d
ΐ2
!
;
h " t t @P 4n b ~ D
lD d2 P
h `
l Dd 2 ^
h `
t t @P _h
h zD D Ȕl ौ" Ì؇ ȉ1 ȅ Ah
d "
t t @P !
l΄
!
"
!
d
2
!
l " t t @P
!
0 l lT l d lT t t @P E D E
D T t t @P t t @P t t PC7GDPS t t PC7RCTL C7SEGO t t PC7GDPS t P *L,C7GODP P t P C7GODP DECK-ID E52 COBOL 1.0 SUMMARY-132 t t @P0 h hN 2
!
d
ΐ2
!
;
h " t t @P 4n b ~ D
lD d2 P
h `
l Dd 2 ^
h `
t t @P _h
h zD D Ȕl ौ" Ì؇ ȉ1 ȅ Ah
d "
t t @P !
l΄
!
"
!
d
2
!
l " t t @P
!
0 l d lT t t @P t t PC7GODP t t PC7RCTL t t PC7GODP t P *L,C7GOSG P t P C7GOSG DECK-ID E53 COBOL 1.0 SUMMARY-132 t t @P0 h% D %
D T t t @P t t @P t t PC7GOSG t t PC7SEGO t t PC7GOSG t P *L,C7INDX P t P gC7INDX DECK-ID E54 COBOL 1.0 SUMMARY-132 t t @P0 h
h
h
h (
ۂh M t t @P - d d h
A D e D f E n p0 ̰ lT t t @P X t t @P ^ t t PC7INDX ^ t t PC7RCTL V t t PC7INDX t P *L,C7INIT P t P %C7INIT DECK-ID E55 COBOL 1.0 SUMMARY-132 t t @P0 hN d d d d lT t t @P ! t t PC7INIT ! t t PC7RCTL t t PC7INIT t P *L,C7ISPT P t P $C7ISPT DECK-ID E56 COBOL 1.0 SUMMARY-132 t t @P t t @P B t t @P H L d r D hD cT t t @P d B
D } D t t @P t t @P H H H t t @P " 0
f "
f 0
H t t @P D X t t @P 9 d % h l D &D ' D ( t t @P ט1
h L Ո" L̿ L" ث ̴1 " t t @P X H t t @P )}JKLMN OPQR t t @P/ D D "E TT " LD t t @P ZD ] " 2
!
d
R2
!
l
!
t t @P L LL "E l l L"p 0 t t @P n l lੌ Ad .Dl D Dd
D T # t t @P t t @P . t t @P / t t @P0 d d D T t t @P d l̰ . d # dl DҜ lD t t @P & d ̿d d `d
d d E 0
f 1 ̤ l " t t @P Q X
@ l0 С Όd D l\ t t @Pm 0̋ l˄ d " d
d
LD D ! ] d t t @Pm 0̋ l˄ d " d
d
LD D ! ] d t t @P d " 0 ̒" ň "̋ f
́ " n " t t @P ̴n ܴ ܶ 0 "f "̚ n T " n" t t @P ̉n d p J d ̬l
l d D D "Χ "
!
d ̶" t t @P
!
-ۜ ) ̹l ̵ ll L H
Ι 2 H t t @PD\ ܩ d ܤ d " d
d d d lD i T t t @Pj ' d
d "
!
L D D !l ® d C ¦ d
t t @P !
F l̩ "
2
!
Ȝ" D T t t @P T ̰ 2 ̪l ܠܢ l "
!
l " ̎2
t t @P !
б T
lǜ2 l Ь T t t @P d T t t @P t t @P" t t PC7ISPT t t PMVALPH bC7EXITRC7MOVETALLY C7RCTL t t PC7ISPT t P *L,C7JET P t P C7JET DECK-ID E57 COBOL 1.0 SUMMARY-132 t t @P0 h hD n l T t t PC7JET t t PC7RCTL t t PC7JET t P *L,C7LINK P t P NC7LINK DECK-ID E58 COBOL 1.0 SUMMARY-132 t t @P0 h h
h N d M 7
h b 0 b h t t @P / ۘ1 l T t t @P G t t PC7LINK G t t PC7RCTL ? t t PC7LINK t P *L,C7MVAE P t P C7MVAE DECK-ID E59 COBOL 1.0 SUMMARY-132 t t @P t t @P 0/ t t @P0 h h h J Jd D h h hD t t @P C FT t t @P G P h hȻ h
hh
h Al Ȩ h ο
h Ȝ2 d t t @P rș2
D
ȋd ࡌ"
Ú
L
l " D t t @P D l l " ̸ 1 E d
l t t @P 2 l
L
̽l ͌" ܲ̌ 1 2 ^ 0 lT t t @P t t @P t t PC7MVAE t t PMVALPH EC7RCTL t t PC7MVAE t P *L,C7MVAJ P t P C7MVAJ DECK-ID E60 COBOL 1.0 SUMMARY-132 t t @P0 hM E
ԥ Jd D h D > T t t @P ? h H h h hh
h h
hȤh 2 vț Ah t t @P jȖ" p0 hȑh T
ȃA h "p8 l d T w
t t @P lT t t @P t t @P t t PC7MVAJ t t PMVALPH =C7MOVE C7RCTL t t PC7MVAJ t P *L,C7MVFE P t P C7MVFE DECK-ID E61 COBOL 1.0 SUMMARY-132 t t @P 0/ t t @P0 h h h
hh h
hAd h u
h t t @P 72 d o
D
d ͌"D D D p 8
l t t @P b" ± ì ؙ̘ 1 h
h Ȉ2 l
L
l t t @P " Á ̡ 1 ̇1 l T t t @P t t PC7MVFE t t PC7RCTL t t PC7MVFE t P *L,C7MVFJ P t P aC7MVFJ DECK-ID E62 COBOL 1.0 SUMMARY-132 t t @P0 hM hh
h N
D ^
d ] "D _ D ` t t @P / l " HȾh Kȹ hȵ h 1̴ lT t t @P Y t t PC7MVFJ Y t t PC7RCTL T t t PC7MVFJ t P *L,C7PCSQ P t P C7PCSQ DECK-ID E66 COBOL 1.0 SUMMARY-132 t t @P0 h d T t t PC7PCSQ t t PC7RCTL t t PC7PCSQ t P *L,C7PFMS P t P ,C7PFMS DECK-ID E67 COBOL 1.0 SUMMARY-132 t t @P0 h V %D %
D T t t @P t t @P & t t PC7PFMS & t t PC7SEGO t t PC7PFMS t P *L,C7PSTM P t P -C7PSTM DECK-ID E68 COBOL 1.0 SUMMARY-132 t t @P0 h
f h b%D D T t t @P l T t t @P ) t t PC7PSTM ) t t PC7DUN C7RCTL $ t t PC7PSTM t P *L,C7RDRL P t P C7RDRL DECK-ID E70 COBOL 1.0 SUMMARY-132 t t @P T 0 n 0
d L
!
d h 0 )d b t t @P ,2 Q
b @ @
@ I
D HT t t @P ID PT t t @P Q f
D dD eT t t @P f r rl
D qT O t t @P0 r h d ̊ l
@ t t @P t t @P
h 2 T 2 T 2 L t t @P
!
d G
!
d H T T 2 t t @P T 2 T 2 T
hT 3
D I
t t @PD J D K "D L ×L "
L Æ t t @P 9 t t @P < D t t @PN "
!
d "
!
l "
!
hlL t t @Py lT Ԁ 0d T 0 nd 0 l E
D t t @P E
D T t t @PT ld l T t t @P t t @P ̯ܰl
T d T
%D р t t @P
!
l l
!
d ˬ $@ $
D " E
D # t t @P T t t @P$T
!
l Ƭl
!
Оl
!
YE
t t @POD W
D XT c t t @P YD _T < t t @P` eT d lT t t @P y t t @P
b c t t PC7RDRLy t t PINCSTKINCRCN GREAD13 pRRNKEYVCNVSET C7RCTLqC7SEGOC7EXITKEYRRN! t t PC7RDRL t P *L,C7RETN P t P C7RETN DECK-ID E72 COBOL 1.0 SUMMARY-132 t t @P0 h
" RN l
h
h
h
2 A D t t @P 0D D
" P h
n ]
]T t t @P [ ̨ l p
n
̚ b }
L L% nT t t @P t t @P t t PC7RETN t t PC7EXIT [C7RCTL ~ t t PC7RETN t P *L,C7RLSE P t P C7RLSE DECK-ID E73 COBOL 1.0 SUMMARY-132 t t @P t t @P0 h
T
h
h
h
V 2 e E2
D t t @P l Z L"L L "] d ̷1
l , l t t @P i y
n
b
D L% n
" 0 d t t @P
n T t t @P t t @P t t PC7RLSE t t PC7EXIT DECBINC7RCTL t t PC7RLSE t P *L,C7RSTR P t P .C7RSTR DECK-ID E75 COBOL 1.0 SUMMARY-132 t t @P0 hN "D +
D ,
D - f % lT t t @P ' t t PC7RSTR ' t t PC7RCTL " t t PC7RSTR t P *L,C7RTSQ P t P AC7RTSQ DECK-ID E76 COBOL 1.0 SUMMARY-132 t t @P d 0 T 0 #n 0
d D T t t @P0 h d # l t t @P & "
!
d T h l G lT Ԁ } 8 rd T t t @P Q nd 0 d l p E
D n E
D o T t t @P pT D̦ hΓd ̐ l T > t t @P t t @P ܊̉d
% D :
D ;
D <D = "
1 t t @P ] L "
2 X T ~? T @
T # t t @P D T t t @P X
d d 9
LL
L
L ¬" § t t @P â 1 l lT q t t @P 2 t t @P> t t PC7RTSQ2 t t PINCSTK QREAD11 C7RCTL*C7SEGO mC7EXIT C70IOS t t PC7RTSQ t P *L,C7RWGI P t P +C7RWGI DECK-ID E77 COBOL 1.0 SUMMARY-132 t t @P0 h h h
2 0 ! d ' #T t t @P ' t t PC7RWGI ' t t PC7RCTL " t t PC7RWGI t P *L,C7RWGN P t P C7RWGN DECK-ID E78 COBOL 1.0 SUMMARY-132 t t @P
REPO RT NOT I NITIATED t t @P T d 0d T H h h h h HT t t @P = T
h d c D
ة 1
t t @P h
0
`
@
%
D X t t @P T
%
D X t t @P T
0
l
l
D T t t @P T
D \ t t @P T ̋ 1
l
d
n 1 %
D \ t t @P T
n %
D \ t t @PT
!
lΓ
!
P ^
l
l Z
t t @P 1 @
D l 1
P
l
νl
ζ
D }\ t t @P~T U 1 %
D \ t t @PT
l
Αl
nܦ̸ 1
0l l %
t t @PD \ t t @PT ܉̛1
0 % 2
D T t t @PT
f
@ d T t t @P & t t @P t t PC7RWGN t t PSAVE12 C7RCTLWTREAD =PGMOUT GREST12 t t PC7RWGN t P *L,C7RWGR P t P 6C7RWGR DECK-ID E79 COBOL 1.0 SUMMARY-132 t t @P T h ld 0 T H
4%
D .X t t @P /T l
`
n
b
h
D
b ȯ a
L t t @P Z
ν n
`
t %
D n X t t @P oT 0 ȓl
@
t t @P t t @P ܍̌d Ώd ܅Ί d ܀ 0 l
!
d 5 &
t t @P 2 & X &
@ & t t @P
2 &X @ &
# t t @P P d l
d " # &T d T t t @P 0 t t PC7RWGR0 t t PSAVE12
C7RCTL+REST12 p t t PC7RWGR t P *L,C7RWIN P t P C7RWIN DECK-ID E80 COBOL 1.0 SUMMARY-132 t t @P
REPO RT ALREA DY INITI ATED t t @P T -d 0d T H h h h PT t t @P K T t
h
d p
o
D k X t t @P lT ت꘨1
n
b
n
b
nȌlT + t t @P t t @P t t @P t t PC7RWIN t t PSAVE12 !C7RCTL WTREAD EPGMOUT OREST12 m t t PC7RWIN t P *L,C7RWRL P t P C7RWRL DECK-ID E82 COBOL 1.0 SUMMARY-132 t t @P d 0 T 0 "n 0
d D T t t @P0 h d " l > lT Sn
l
b
D =T t t @P >h d S l
b t t @P S t t @P Y
h 2 t T X 2 ~T q X 2 t t @P T { X 2 T X 2 T X 2 T X
hT X t t @P
D
D D l "D L "
L t t @P Y t t @P D W Z t t @P "
!
d h "
!
hl ! lT [Ԁ t t @P# X Md T ( bn d ? l KE
D IE
D JT t t @PKT ld b l [T t t @P b t t @P i̯ܰl
|T Y T z
%D
m@ t t @P
!
d
!
D E
D T t t @PT ST " D T t t @P 0X l lT L t t @P t t @P \ b c t t PC7RWRL t t PINCSTK+UPDT27 READ13 H H t t @P K t t PKEYRRN > t t PC7MOVE 0 t t PKEYRRN t P *L,LGT P J P LGT DECK-ID B47 COBOL 1.0 SUMMARY-132 J 2 @P " !h "!"
2
PLGT
P P *L,LLT P J P LLT DECK-ID B48 COBOL 1.0 SUMMARY-132 J 2 @P " !h "!"
2
PLLT
P P *L,MP10 P J P (MP10 DECK-ID B50 COBOL 1.0 SUMMARY-132 J l @P h h " H(
H/
l
PMP10
P P *L,REST12 P J P REST12 DECK-ID B53 COBOL 1.0 SUMMARY-132 J @P " i"*
PREST12
P P *L,RRNKEY P t P IRRNKEY DECK-ID F28 COBOL 1.0 SUMMARY-132 t t @P h h
h
d GT D d 2 h ) D 2 )
hl T H t t @P 0 G t t @P ; H H t t @P H t t PRRNKEY ; t t PC7MOVE - t t PRRNKEY t P *L,SAVE12 P J P SAVE12 DECK-ID B54 COBOL 1.0 SUMMARY-132 J @P " i"*
PSAVE12
P P *L,SLL P J P ISHIFTS DECK-ID B55 COBOL 1.0 SUMMARY-132 J r @P 5 41 B>* ) (% H4 82 : r R @P + @ @ ? ? R PSLL SRL EXTRCT P P *L,TALLY P t P :TALLY DECK-ID F30 COBOL 1.0 SUMMARY-132 t t @P t t @P h
% jT 8 D "T 9 t t @P #T 9 8D - T 9 t t @P .
n H t t PTALLY 3 t t PLOAD ADD $STORE + t t PTALLY t P *L,WTD P t P WTD DECK-ID D62 COBOL 1.0 SUMMARY-132 t t @P "
!
h dh hh d ~ @D D p0
0 ] t t @P 1p8h = h \ h 1Ⱦ h l V L
* Ȱ h1
hh t t @P \Ȩ kȢL "
- ] Ț H H H H t t PWTD m t t PWTD t P *L,WTX P J P 0WTX DECK-ID B57 COBOL 1.0 SUMMARY-132 J r @P - h ) h h !
Dh
01234567 r @P +89ABCD EF
PWTX
P P *L,XTW P t P pXTW DECK-ID D63 COBOL 1.0 SUMMARY-132 t t @P
h h d m S D o h 2
!
d n
9 2
!
5Ĉ t t @P 1 h R 2
!
l
F2
!
MȾ h Rȵn ^ر̽ 1 Lΰ t t @P \nȦ h HH H t t PXTW a t t PXTW t P *L,BINCON P J P jC70BCN DECK-ID B21 COBOL 1.0 SUMMARY-132 J r @P
h] "h[ W O"" hShR "" "AAhC "E" 3
@h= "
h87Ch6 r r @P +"-- h/" h5h4T g ` W ` h f
h+#'! h' d j T X ]T 0 _ b}
b
ت r & @P V 0 \ & @P f b
PBINCON
PCONVBP MLOAD IC7MOVE 6 P P *L,BINCMP P J P +C70BCP DECK-ID B22 COBOL 1.0 SUMMARY-132 J r @P H&" f" bH " f"b T ' ( ' ( ) *
$ 0 $dl r
PBINCMP
PCMPALN
P P *L,BSTORE P J P C70BST DECK-ID B23 COBOL 1.0 SUMMARY-132 J r @P H5" e h#Hd " ha "Jh^ "[h[ hZ R 1 N F hT r r @P + $
d 0 5<
T } T j n i)
h2 +h1" h1h0( $
h& &
-
h r T @P V h
h h #
hhT i s o s t r 1 y w T J @P y c ' B? ; J J @P y c ' B? ; J
PBSTORE
" PDECBIN ;C7MOVE aBINCON 7BINCMP )" P P *L,C7MOVE P J P C70CIS DECK-ID B24 COBOL 1.0 SUMMARY-132 J r @P Xr T f 0 Xg
_ ^Y Y
d $ \ ` " hB " h? r r @P +h?<" :h;
h< H
h5h504 ;""0 "n" n"h& #&; """ n"n "h r r @P V 1
l 2
l
l T `"h " " r r @P 2H " "2 H" h "h f" h h h\T n r r @P \ T f 3h 0hh \\ h#\ h $ !
0 r r @P ,
T -
\ 0
} Xr\ T } T Xm XdXq \ r r @P \h " Jh" h
\ z d 0
XM XB "hXZ XH X; r r @P - X2X?-XK- XQX/ X&X3 9h X/ 9h "
0b
0 b
r r @P X
d 0 $X
&h
Fh "" """h ( 0 % """ r ( @P " "
h "1 ( Z PC7MOVE CMPALN ADD SUBTRC MULTPY DIVIDE LOAD STORE DPACK DUNPAK-COMPAR9Z
PSIZERR
P P *L,DECBIN P J P C70DBN DECK-ID B25 COBOL 1.0 SUMMARY-132 J r @P
hm hohohoho hp" hmhh "h_3 !Z "T k Y2 6 T k
hPO(B r r @P +BhM3
R
hI hI
hH: 8 JhB4 h<>h; 0 T x {d 0 m
. h.
h.) ,!-' r N @P V!! "D h" T r 3 % N r @P v r
% dj ( "f" b% h
h h" ) H r F @P #
h
`l "" ÿ
Ő1 F F
PDECBIN
" PMP10 dSIZERR ELOAD $C7PACK " P P *L,C70IOS P J P eC70IOK DECK-ID B27 COBOL 1.0 SUMMARY-132 J r @P
h> H; h76 4 .#
'( !X6h$ 00 Q" 1 r r @P +f" @ h0
- a"t e" 00000000 99980030 21212223 00 9110 h" r , @P V
" 3424 , PC70IOS C70IOI P P *L,C7DUN P J P C70DUN DECK-ID B26 COBOL 1.0 SUMMARY-132 J r @P
+h~ "h} (zz"
"
-hs hth| "hp" ho
hm
hk
hi
hg
he Jhc r r @P +haZ ^\hU ShY 0 T d 0 ?MG hLCD DD< >h:81 h6@T :` r r @P V1 0/ *+ .
% }"
} I} "}" 0F } " r , @P0 % ,
PC7DUN
PSIZERR 9DUNPAK Q P P *L,MVALPH P J P C70MPH DECK-ID B28 COBOL 1.0 SUMMARY-132 J r @P hz"" hu
hl
hj h
he
hc
ha Jh_ h]XY WYR hW
OhN r r @P + hS"" hNhJ T x } ~ 9 ? ;!2h= 32 1 h5+
h10$ r r @P V( F (# # 1 #d h`
0}"
r @P
PMVALPH
PC7MOVE 7
P P *L,C7PACK P J P C70PCK DECK-ID B29 COBOL 1.0 SUMMARY-132 J r @P "Hu "hs" hrhqo kho
hx j hu fhsc 131 D1 e T r r @P +_Mh] N\hLZ hX/V VD O=hM %K
I7 " 1 3?-h= /h:h. h: ! r r @P V
h3h' h3$ A h h)(
`F
T { h r @P
PC7PACK
PDPACK t
P P *L,SIZERR P J P AC70SZR DECK-ID B30 COBOL 1.0 SUMMARY-132 J r @P "" H5(22h3 "
1
)
* Bh,
h( h(&$
B
r > @P +1
h
2
% >
PSIZERR
P P *L,TESTZR P J P C70TSZ DECK-ID B31 COBOL 1.0 SUMMARY-132 J @ @P "("
0
2
d 0 $ % @
PTESTZR
P P *L,C7CJMP P J P C7CJMP DECK-ID B04 COBOL 1.0 SUMMARY-132 J @P
PC7CJMP
PC7CNTR
P P *L,C7CNTR P J P QC7CNTR DECK-ID B59 COBOL 1.0 SUMMARY-137 J r @P hDHD C8
T = B8 h8
h56 65 1 ) d R "
h&h!h h " h " "% r r @P +Z 6 bb
0b
bX< " T \ = B " T QAV" r r @P V"2- 2""
h"( ۸ h\ = B K̪ `"
d S h{" " r r @P ) [ h ^h T NZ \] r r @P _`
`
iT dcx ah bhT c kT cf c h
Yh Xh T r r @P H STH
( sKTL B sC Z"/h hT \ $ r r @P "/ h h hTH "/h h hT L$ d ]
ahT r b @P- bdȽ` :
COBOL E RROR-COM MERCIAL PACKAGE NOT SELE CTED b R PC7CNTR C7RCE0 LC7RCE1 IC7RCE2 HC7RCE3 GC7RCTL KC7RTIO pMURIDX =MUTAB >ILOC BR B PPGMOUT 7WTREAD SLICUP PREADR -OPENFL C7MAIN CLOSFL ATTACH B P P *L,C7ENTR P J P #C7ENTR DECK-ID B09 COBOL 1.0 SUMMARY-132 J ^ @P ! j
v"j hT 0 4 l ^
PC7ENTR
PC7RCE0 !
P P *L,C7LNGX P J P C7LNGX DECK-ID B11 COBOL 1.0 SUMMARY-137 J 6 @P d
d T 8 " 6
PC7LNGX
" PILOC MUTAB MURIDX ATTACH
" P P *L,ASCDAT P J P ASCDAT DECK-ID B32 COBOL 1.0 SUMMARY-132 J " @P
"
PASCDAT
P P *L,DATTIM P J P DATTIM DECK-ID B42 COBOL 1.0 SUMMARY-132 J & @P
&
PDATTIM
P P *L,R9DRTN P t P R9DRTN DECK-ID F29 COBOL 1.0 SUMMARY-132 t t @P0 " t t PR9DRTN t t PR9DRTN t P *L,STRACE P J P STRACE DECK-ID B56 COBOL 1.0 SUMMARY-136 J `P 0 @P Hh
j
qh 0
PSTRACE
P P *L,READ11 P J P HREAD11 DECK-ID Z05 COBOL 1.0 SUMMARY-132 J r @P T ` # T
0 $T %. T B r r @P + Q T 6. 0 , T T Bb r r @P V @ b /T ! @ , T A? b/ +
b/ r r @P h 1) " b h
h Dh hT A 2
D r r @P
h h A4 h h
#2 hT
a
bd r r @P m b 1 b b # A 2 A 2 a r r @P !
T a 7'a a h
!4 h h
#2 hT
a
r J @P - b d :*a 2a 3#aT J
PREAD11
J PERRPROSTRACEER9DRTN ERRO46 ROOT44 4ROOT43#NTAP48 MNTAP49 KNTAP55 mJ P P *L,READ12 P J P READ12 DECK-ID Z06 COBOL 1.0 SUMMARY-132 J r @P T ` # T
$ <9 6 T 9 6T r r @P + ?/b 3# aT E 1 Ϡ2 hh
A h r r @P V hT Ab
"Db 1 b r r @P 2 D b A 1b 2 h hT Y B 2a3 )h h r r @P h ohT ( ooQ- y+ @ 0b" +B 2a (: *aT 8 r R @P ' 3#a F A !7 b"D b M R PREAD12 READ14 * PFMGETS ERRPRO (STRACE R9DRTN ROOT43 * P P *L,READ13 P J P READ13 DECK-ID Z07 COBOL 1.0 SUMMARY-132 J r @P T ` # T
3#a T % & 'T % . r r @P +, T # O b ! X )h ( H r r @P V oh
hT ( ooQ% ! % @0a 2 %>. a 42 r r @P :*a ? /bDb b h h hT
2 D b b r @P T P PREAD13 READ15 * PFMREAD ]ERRPRO /STRACE R9DRTN ROOT43 * P P *L,WRIT17 P J P WRIT17 DECK-ID Z08 COBOL 1.0 SUMMARY-132 J r @P T ` # T
3#a T # T - 6T r r @P + 1T !! b Db 1b r r @P V*h* $ ah$ h
hT * e 7'a h
Π1h
A h T r r @P b b
0 A
1XT 9 f # A2
"f" r " @P b ! T " PWRIT17 WRIT24 * PERRPRO jSTRACE R9DRTN ROOT45 ROOT43 ~* P P *L,WRIT19 P J P EWRIT19 DECK-ID Z09 COBOL 1.0 SUMMARY-132 J r @P T ` # T
$ $T - T B r r @P 25 / , A1 a T T Ab ?b r r @P ]1b / +
b/ +
A
;T ( 7'a a/ r r @P ? h !4h # 1hh T
a
b A
b r r @P 2 b1 b b T q
! A bDb
H A h
r r @P b #1h
hT h !4 h # 1h hT
a
r r @P b +) + bDb b 2 b1 b b + T r 2 @P 4 T 3#a 8( a 2
PWRIT19
B PERRPRO |STRACE8R9DRTN ERRO46 ROOT43 ROOT454NTAP49 INTAP48 KB P P *L,WRIT21 P J P WRIT21 DECK-ID Z11 COBOL 1.0 SUMMARY-132 J r @P T ` # T
& T &
-, T 3#aT r r @P + @ 0aT # ) 1 ! 1 b )h
oh
r r @P V h hT ( oo7 ! 2! ( :*aT + h h h r r @P
hT b
)h
o h hT ( o Db2 Dbo T u r @P S: *a w
PWRIT21
2 PFMUPDR FMREAD ]ERRPRO 6STRACE R9DRTN ROOT43 2 P P *L,UPDT26 P J P UPDT26 DECK-ID Z13 COBOL 1.0 SUMMARY-132 J r @P T ` # T
B T , T 3#a / r r @P +T ? /a 1T ' ?h
a H!hT o aH 'h r r @P V" Q"
H " T - 3 ;+a r r @P 8(a b A1b Db b h h hT J r n @P )h h oh T ) o b2 D b? bo h:* a n " PUPDT27 UPDT28 UPDT29 UPDT26 " * PERRPRO fSTRACE 9R9DRTN ROOT43 FMUPDR * P P *L,ROOT43 P J P jROOT43 DECK-ID Z17 COBOL 1.0 SUMMARY-132 J r @P Hdd dh]] d dhU T %r J E" 4hE @ + r r @P + ; 5 2
H/ H-+ (! !n!
r : @P VةF A h
& Ah e f : PROOT43 MOVE P P *L,ROOT44 P J P ROOT44 DECK-ID Z18 COBOL 1.0 SUMMARY-132 J f @P #H T a#H # 2 1 b> .b f r @P ' T Q;h2 h0> b# $ &1 - N , < ,b
01 r r @P R^ >.b T N _Z ". " 2" 8 . . , r r @P }?/b $ T [ -/ Ҡ @ 0b" ,T >.b
h r h @P
bXT * JX b B2b b b h
PROOT44
PERRPRO STRACE P P *L,ROOT45 P J P ROOT45 DECK-ID Z19 COBOL 1.0 SUMMARY-132 J H @P #H T a#H 1 A b H r @P h9 A b> .bT ,Q;h) >b # $ 1 1 A1a r 0 @P F03
1< :*a T N V > 0 r @P W " ." 2 " 8 . , $A 1aT R A1b ?/ r r @P b 3 T v : *a A1b 2 Db b b b T ) r
@P R
PROOT45
PERRPRO STRACE P P *L,ERRO46 P J P ERRO46 DECK-ID B46 COBOL 1.0 SUMMARY-132 J @P PERRO46 ERRPRO P P *L,NTAP48 P J P NTAP48 DECK-ID Z20 COBOL 1.0 SUMMARY-132 J r @P XXXXXX XX, MOUN T XXXXXX ON LU XX, RI NG,READY ? HDR1 0001000 r F @P +100 YY DDD YYDD D 000000 HDR1 VOL1 F r @P o RIN G # " a# h+hN h*hN hJ r r @P D n!
q h h@ n
q n
q
n
n
nT ( o ' ? r r @P $$MOUN TS$$ n
q X" /2 .B2 a ) T ( s o hT s * r d @P h h hh hT ( s oX 2% <, bT ( o
H h T d r @P T . ""B 0F4 00h D+ NO h TL E r r @PB T !BH > (! 0T =- b * :* bT U T g D r r @P m'T A 1 * T D ( h C A`
h h
r r @P ` ` h E `
h h
` ` T p E KT j r r @P D4 1 . T 2 * T ~ D ( h C ?`
r r @P h h
` ` h E { `
h h
` r r @P `
/H b(R 4T B
h Qh Dh
h SH BH r r @P D
0hB Fh T ( C . T ) T a T i r r @P o ( ) V 8 h C ?`
h h
`` T r r @P \ l@ T l 1T X H T F U RT l T | B0FH B0F r r @P 00 H B0F 4Ȁ 00h T l %@ T y 0 T lT l - "h T 6 r r @P
*DT (T T 8(a T T T I T U r @P
PNTAP48
j PERRPROSTRACEFMDELR FMREAD FMCLOS FMOPEN ERRO46 NTAP55 ROOT43NTAP57NTAP53NTAP52NTAP58j P P *L,NTAP49 P J P NTAP49 DECK-ID Z21 COBOL 1.0 SUMMARY-132 J r @P +#" a#. ) -T : 8 EOȿ V1B 2aH , XFB r r @P Vb @b9 -& / T : T g , T T j "X" Ab @?b r X @P A1 a ,T t X
T T T b X
PNTAP49 -
PSTRACE NTAP55 NTAP56 r P P *L,NTAP52 P J P NTAP52 DECK-ID Z22 COBOL 1.0 SUMMARY-132 J r @P 0 Hoh Xlh HXgh
(h h !2
S
Q H0%A
h^ XJh r r @P 9
H XEhXB h d( h
( h
/ȱ n m"
$ȧ 6 2
2
hHȜ r J @P d- h+
h h "
h 2
ؒ J N @P h
hF 2
N
PNTAP52
P P *L,NTAP53 P J P tNTAP53 DECK-ID Z23 COBOL 1.0 SUMMARY-132 J r @P d 0 hH hh h H0%A 0FhHш Hl
r r @P 9hƐ$ "
u h
h Ȼ 8h 0FhHȵ h hȮ n Ȫh h r 0 @P dȣ nȣ ȥh
hثȘ蘀 0
PNTAP53
P P *L,NTAP54 P J P NTAP54 DECK-ID Z24 COBOL 1.0 SUMMARY-132 J r @P Dh h
h} h|y
B0FHf B0Fb 00H_B 0FH[B0F W 00 HTB0F r r @P +2 00 HL " hT }
F1LB V1h!G b
*D T _ ( T _ h T r r @P V 4 _ ` N EO h *EOV1 r @P PNTAP54 NTAP56 PROOT43 VNTAP55 ONTAP58 K P P *L,NTAP55 P J P LNTAP55 DECK-ID Z25 COBOL 1.0 SUMMARY-132 J @P 6 r @P H L \ H h" a! HA h h
(h &h hh r P @P / a T` Hh A
Hh (hT Ⱦ P
PNTAP55
PROOT43 E
P P *L,NTAP57 P J P NTAP57 DECK-ID Z26 COBOL 1.0 SUMMARY-132 J T @P a h l lT H $ h l u"% Al T
PNTAP57
P P *L,NTAP58 P J P NTAP58 DECK-ID Z27 COBOL 1.0 SUMMARY-132 J r @P h hH
| HX
hX l
q"
d
*#C :r r r @P />
"
r <
H
E
A
a 1 " @Z {[lP}M] \Nk`Ka r r @P Zz^L~no | _m [ A B C D E F G H I . < ( + &] J K L M N O P r l @P Q R! $ * ) ; ^ -\/ S T U V W X Y Z , % _ > ? 0 1 2 3 4 5 6 7 8 9: # @ ' = " l
PNTAP58
P P *L,DELT59 P J P RDELT59 DECK-ID Z28 COBOL 1.0 SUMMARY-132 J r @P T ` # T
B T I , T 3#a '/ r h @P +T T ? /a )h
H o hT ?bo :*aT h
PDELT59
" PERRPRO -STRACE OR9DRTN FMDELR @" P P *L,FMCLR P J P LFMMV63 DECK-ID Z29 COBOL 1.0 SUMMARY-132 J r @P X XX XX XX XX XH5 h1A " h- h T l) ( l&% "h! r T @P +l l l T
@P K
J PFMCLR FMCLOS FMDELR FMGETS FMOPEN
FMPUTS FMREAD FMUPDR FMWRIT J R PFMCALL WRITER HUPDREC GREADR FPUTS EOPENFL DGETS CDELREC BCLOSFL ACLEAR @R P P *Z P P *CTO, MOUNT 2ND COBOL DISKETTE IN UNIT 0 P P *PAUS P P *LIBEDT P P *K,I17 P P *L,COBOL P J P @COBOL DECK-ID B37 COBOL 1.0 SUMMARY-132 J r @P TZ G > T
T 4 H52 h3 0 h-\) TZ , G # T r X @P +
h h TZ = w T
\
T
COPS CNCOPINT @ X
@P @
PCOBOL
PCOBOL P *K,P8 P P *P,F,,COBSCN P J P HCOBSCN DECK-ID B38 COBOL 1.0 SUMMARY-132 J
@P G
PCOBSCN G
PSCAN G
P t P
G GLOBL$ DECK-ID D16 COBOL 1.0 SUMMARY-132 t t @P0 t t @P0 t t @P8 t t @P0 t t @P0 t t @P0 t t @P0 t t @P0 t t @P0 t t @P0 I t t @P0 t t t @P0 5 t t @P0 ` ` t t @P0 ` ` t t @P8 t t @P0 1 CYBER 18 COBOL 1 .0 PROGRAM LISTING JAN 01, 1977 WEDNES DAY 00 t t @P0 :00:00 PA GE 1 t t @P0 0 LIN E SEQ I[-A-[- --B---20 -------- 30------ --40---- ----50-- ------60 -------- 70-[--ID t t @P0 --- R ECORD F ROM t t @P0 t t @P0 ' 7 t t @P8 H t t @P0 0/ 0- 0/ 0 t t @P0 t t @P8 t t @P0 t t @P0 @ t t @P0 Z " t t @P0 t t @P8 _ t t @P8 c t t @P0` t t @P0
HJ N !E Q2" Q~%) Q V 1 b X id sV# t $+
uD ."
^ t t @P0 =$ s # f" r "m 5Z E2 G10 Gu1 H 0 V1 t t @P0 h ] 0 ]0 ^0y ^7 1 ^3 !c0| " q0 #~ 0 $0 %?1 & R1 'm 25 (1% )3 * t t @P0 3e + BU ,G8 C -H C@ .P Aa /R Z@@ 0R LBA 1R @ 2V CCQ 3V Z@A 4X BE 5] t t @P0 Z@A= 6 _A 7 bZ@B 8 dL`@ 9 tA1 : {RB ; E < -AU = :8A > Z@@ ? |@ @ t t @P0 KZ@D A]Z@A BA C@ D&Z@Aq E֩8B F TD7 GB HZ@A ITAA JBB t t @P0 KUZ@ @ L1 A ML A- NN B OZ@ A P_ @ Q Au R˴ B1 SZ@ A TOZ@ B UJ t t @P0 ?Ai V @ Wª @ X k,B Y1 Q ZFU ^P [G9 ^R- \H H$Q] ]L HQQ ^L R P QodI R )b R wdm R x` W ^` W t t @P0 F` Wsb \ F Gtt
G9^HZ H2^ t Q jY R냣t W >t t t @P0 W ttK WttY W^t _^a tŐ {R s?
Qg \ t t @P0
FW t t Y qHZ G5m^N Q֥j Y8 W -uz` W - Z@ t t @P0
EW - Z@ W QqWe YwHZ 8 n6 ksG:Z@
8 Qgީ8L i⇚ T t t @P0
p^(8 " 1^Z@
ޏJ R|R=JP W -
W -< W - t t @P0
b WH^ ^^ g ^u8 n6 ksG:^ qґ _ _ t t @P0
< _b VZ U W
H^ bZt } t+ Et t ZtY t t @P0
Gzқt &Zt Y Qr# R9r ! R+H^j "R bڱ #R t t @P0 AWe $VZt StJT %W
tl 7& ٯtt 'J QGP8 (W - RUP )sb t t @P0 GH^^ *Fl U^ + R+H^j ,R +H^j -\s ҋY .4 Y / )e̲ t t @P8 rFl t t @P0 U C [ } R 5 O gtI M e 7 S j
e = ) ` t t @P0 ! % I ^ @ p ) ao U 4
. ! t t @P0 q 91 d ( " 3 : = vz = 0 L + FM
m t t @P0
W %Q R+ Z@ Z 0 Z 6 Z t t @P0
< Z X e X < Xb X X X t t @P0 5 X X HB] c 6 VH4 H2 s t t @P0 6 H ` k & t t @P0 a N + t t @P0 T B ! q Z t t @P8 w t t @P0 COBOLSSP COBLCOMP Ѐ t t @P8 t t @P0 u t t @P0 t t @P0 t t @P0 t t @P0 7 t t @P0 b t t @P0 t t @P0 t t @P0 y t t @P0 DT/EP TE XTST TEX T OP T EXT t t @P8 " t t @P8 t t @P0
! " t t @P0 # $ % t t @P0 t t @P0
t t @P0 t t @P0 ]COBOLX R0COBLCO MP t t PGLOBL$ t t P ADVNCE DECK-ID D01 COBOL 1.0 SUMMARY-132 t t @P0 00d d 0
d d lT t t PADVNCE t t PSETCOL t t PADVNCE t t P ADVNC1 DECK-ID D02 COBOL 1.0 SUMMARY-132 t t @P0 " d 0 d 0d 0
d d 0
l t t PADVNC1 t t PADVNC1 t t P ALFALI DECK-ID D03 COBOL 1.0 SUMMARY-132 t t @P ] $
!
d
!
" 0d T & l
t t @P ,hT 0
d ^d 0
ET
x " S IT 5 I v
̹E T A ʜ t t @P W aT P Ü a vT T Y ̷ nT e T ḽ v
ľ
!
d
F̄ t t @P T T 00d
d T ̙ l
d D t t @P t t PALFALI t t PERHERE bSVCOL .NXTCHR oPEEK ADVNCE SETCOL t t PALFALI t t P XCRASH DECK-ID D05 COBOL 1.0 SUMMARY-132 t t @P 0COMPI LER ERRO R - COMP ILATION ABORTED I/O ERR OR CODE INS UFFICIEN T MEMORY T T t t @P - T U A T U VT , T W FT ; T WT H H
t t PCRASH I t t PPRTLIN *WRITEF BWTX 5TRMN8 G t t PCRASH t t P SDIAGNO DECK-ID D07 COBOL 1.0 SUMMARY-132 t t @P "
!
d Q 0 H2
!
l
"
!
F 0 O A
h j hhT t t @P > R H H H t t @P R t t PDIAGNO B t t PWRITEX > t t PDIAGNO t t P ERHERE DECK-ID D09 COBOL 1.0 SUMMARY-132 t t @P0 0 0 d T H t t PERHERE t t PDIAGNO t t PERHERE t t P ERROR DECK-ID D10 COBOL 1.0 SUMMARY-132 t t @P T 3 H t t PERROR t t PDIAGNO t t PERROR t t P FDCC DECK-ID D11 COBOL 1.0 SUMMARY-132 t t @P ,T 0 C 0 ' j 0 h h 0h ^
d 02 n h V
E ت t t @P W1 T
h h
ؘ
1
l
h "
D E t t @P
1̭"
.E 0 ̦
l
ø ̩1 ̚2 ̠l̆ T t t @P [ܮ ' n )l *l + lT , t t @P t t PFDCC t t PSETCOL -PRTCRD NEXTA t t PFDCC t t P GETOPT DECK-ID D13 COBOL 1.0 SUMMARY-132 t t @P t t @P NO SOU RCE PROG RAM OPT ENTER OPTIONS t t @P
d Q d Uh +
0E
P1 T d
A2 LT t t @P G T d
Qd 0
h l
D
¯d d k ؖ
1 t t @P0 r
d h ȆL "
E 0 E 0
1
l 2 e
d t t @P
b Zs ' " a" -
d J a 0
d N a
d T a
d 0 S a
0 d t t @P ̾" lE d "
f E
3 1 a̦" d 0 H ̘ " t t @P l ̋" l " l a 0
d I a
d Q t t @P a
d K a 0
d U a
d a
d 0 V a
d O a 0
d L a
d P a
d 0 a
t t @PId 0 ̶" 0E \ܭ ̬" f ܤT 1 N 2 w t t @P t " " " T g 2 t t @P " " ܋
1 "
t t @P !
d "
!
ܼ
d
d l ' d " D t t @P d 2 ! L D f L L D n L L n t t @P ̻ 1ܺ ̥1 a v
t t @P K 1 g l q v { n T F
l t t @P0v d D T 0 t t @P d "E א
2
d _
d 00 Id L t t @P t t @P ( " t t PGETOPT t t PREADF WRITEFoTRMN8 KDTW t t PGETOPT t t P GTCARD DECK-ID D17 COBOL 1.0 SUMMARY-137 t t @P t t @P M O N t t @P 8 QT
Er U 0
d VT 1 U vd T 0
d h 2
d h
t t @P cl
h z
D
0E
؉
1 h dd
E t t @P 1
d 0 l
l
Ӝ 1 l
L
t t @P 1̚ \ 0 l a ~ 0b e N 2 Q
d 0[l
t t @P èܣ
1 0 l
Øܓ
P 1
l
ҌD "
M Á t t @P 1 d 2 <
l d
E
L
" t t @P :̮ l G
P 1̇ 0 l 0
d a
d `
0f2 | 0
d cl n
t t @P eL
øܟꜝ 1 0l d d l d T 3 D d E t t @Pd d
!
L l d d
!
d
Qd 0 81 t t @P
P 0ld
R d
ld d
d 00d d 0 lT
2 0
d cd t t @P
L
0E 1 l
l d 0 T 1
l
ܢ t t @P ̡"
!
l l
l +
D
E 4E ܷ
1 Z L 0E d t t @P <d
!
L l d ¶d
!
Z ܥ ~ 0} _ {T
t t @P0gd
r "
!
d }
l
d
l
0
d
d t t @P
d
L lE 0 d
1 0 T t t @P 0 0d
d ̗ l 0 2 l ̥l 0\ b
t t @Pl M D
ܗ 1 l
܂ t t @P 1 1T d
d -
E , 6 1
d w i
l t t @P >e
L
E d d d
L
lɜ "
!
l kܹ ̵1 t t @P i
l
l {
D
® ܣ̟ 1̛ l
ýܔ
1̉ 2
t t @Pd T R 0E d
!
l
!
Л T
d
8E t t @P 0 1
lT
!
d ̵ T =
2 t t @PT ̰
!
F d t t @P 8 t t @P ( t t PGTCARD t t PERHEREOUTEXT GPRTCRDCREADRCCLSFLREADF bMIN t t PGTCARD t t P GTCHAR DECK-ID D18 COBOL 1.0 SUMMARY-132 t t @P
h 0
d 00 " 0 "
! 0
^ )
h T 8 t t @P . p
l Q
0 d E d G OT
h n
h "
t t @P Y!
l ȥ
!
kȚ h nȖ h ̯
l d T H t t @P T ̉ l ̭d ́ d 0
l
¡ ^
l 02
t t @P !
l
!
2 T * 0 0
d
E d " t t @P
!
l
!
l l ̠ l
l ̙ l
l 8
l t t @P d S ̕ N NT ̱ K
l²d > "l 8E d t t @P 0 % D S% 2 f h1 `l JT T t t @P I U t t @P N t t @P T t t PLASTRY N t t PFSETUP CPUTS CRASH G t t PLASTRY t t P MNEXTA DECK-ID D23 COBOL 1.0 SUMMARY-132 t t @P d T 2
!
d K "
!
d LE t t @P ,
!
: T lT
ld H t t PNEXTA D t t PGTCARD 8NXTCHR > t t PNEXTA t t P CNUMBER DECK-ID D24 COBOL 1.0 SUMMARY-132 t t @P
h
h
!
d @
!
+ 0E
d
ET Ah / h
l t t @P / 2
!
l
92
!
l "
!
l Ⱥ
!
lȱ
!
к t t @P0 Z d 00 E
ȗE ܶȒ 2
!
l
92
!
T &Ad t t @P 2
!
d @
92
!
d 2
!
l
92
!
l t t @P "
!
l
!
l
!
T B l d
2 3 t t @P
El ̥ T 0
!
l
!
О l
d
F T
lT t t @P
d 1 "
!
l
!
@l
Z "
!
/
l T
l 1
l t t @P1 5
l D t t @PA t t PNUMBER7 t t PPEEK ADVNC1 NXTCHRSETCOLADVNCE* t t PNUMBER t t P 0NXTCHR DECK-ID D25 COBOL 1.0 SUMMARY-132 t t @P0 02 d 0 % 2 l" ,T /l
l lld t t @P + t t PNXTCHR - t t PGTCHAR " t t PNXTCHR t t P *PAKTKN DECK-ID D28 COBOL 1.0 SUMMARY-132 t t @P T h T !
d
Eh
hh hh
h h d $ "
t t @P 4!
| Ÿ E
h Ȼ
!
lȴ 2
!
Y
hبȨ &裆 t t @P _ ihȣ t țf w șhؚ
h
h uؐȋ hT & hȅ
!
lΥ t t @P
d 0 Λ d T x 'l
l R
!
l
! t t @P
$ T 0 T 0( T T
d 0 t t @P D % n (l ̽ L & f w̶( l̘
l ̗d t t @P
E
l d T ')d D t t @P & t t PPAKTKN t t PNXTCHR SVCOL PEEK ADVNCE ERROR EXTRCT t t PPAKTKN t t P PARSEC DECK-ID D29 COBOL 1.0 SUMMARY-137 t t @P t t @P0
b 8 N d \"p 4
dh 0
E2 8 5
h t t @P 5 1
h J
T ؿ֘ 1T t t @P T H t t @P ^ 0
h D
0E
d d t t @P
N ̈1
t t @P t t @P
h ̉
!
T 00 T C D
t t @P ] T T H t t @P T
!
d + ̼
!
(T $T OT ( d t t @P( t t @P .
h bX ̓ T !̌ t 0
d \ 0 S
D
W
h t t @P0Y d X e
1 h }Ⱦ"
D Y
E M 0ذ 1 t t @Ph ȥ"
؟ 0 1 N T ;X T Ȋ T p t t @P
!
l
!
,
T 3T t t @P
d 00\ b
d -̞ d X "
1̹ t t @P l "
!
N T ̝ 1
=
T t t @P0 ̊ n "
!
l "
!
У Z t t @P ["
¸ n
T 0
!
d X
!
l t t @P
!
=
T o
!
l t t @P
!
,
d -
1
N T d
E t t @P T T T,T \,T )̆ T l T } s t t @P
d .T
!
d X
!
s
t t @P2\,
\T l̔ J T q̳
!
oN t t @P ]"
M d
lT {
l
!
t t @Pl
(
T
!
d X t t @P
!
T T T , 0 N t t @P2 d - "D Y
l 1
-
l l
t t @P ̦1 "
T L
!
0
d . J
l E t t @P 4L
E 0
ܠ
E 1 0
!
d X
!
l t t @P _
!
l
!
l
!
T
!
l t t @P
!
l̼
!
N ̪
*
T ̟
t t @P ̕ T ̎
!
l̇
!
0l
!
X
*
t t @P ,
!
l
!
T t t @P D b p4
DU p<
d - l @ t t @P 6
̔ 1 . t t @P M L / t t @P0Z d 0 f 0f qT 0T { T p T A t t @Pd 0
E 0 x t
!
d .
!
T l T z\ t t @PT )̷ T l T K l 0 s
!
T 0 d 0b
t t @P N \
d T Ml \ T T t t @P A l\\ l 2 Al
*
F
.
N
t t @P 1Ω Al
n̥ o HT T g
d b D
E
t t @P \ N 0
E1 o T ) y
d 00` bd 0
l
f t t @P
1T 3 0 dl T
lT T T T
t t @Pld 0
d t t @P Z t t @P t t PPARSEC t t PNXTCHRADVNCEERHEREPEEK ALFALIPAKTKNSRCRWTNUMBER COPNFL t t PPARSEC t t P 2PEEK DECK-ID D30 COBOL 1.0 SUMMARY-132 t t @P 2 % l" D 0 0f LT 1n lh t t @P , H t t @P 1 t t PPEEK ) t t PGTCHAR t t PPEEK t t P PRTCRD DECK-ID D33 COBOL 1.0 SUMMARY-132 t t @P0 I T 1 T 1 0 V
CE 00 [ ?
h 7" t t @P ,D 0E 0E D
1
l T
h P ȼ"
L
E H ذ
1 e
t t @P Wh a ȥ"
؟
1 0 o
DE 00 c }
R 0E G
0ld w
h t t @P "L
E 0 0 1
kd 0 Z E 0
!
d
!
t t @P l
# øT t t @P ` t t PPRTCRD t t PWTD PRTLIN t t PPRTCRD t t P APRTLIN DECK-ID D35 COBOL 1.0 SUMMARY-132 t t @P 0 ɜ2 " 3T : ;T < =T 1 < >T < ?
lT 1 < @ Z 2 t t @P +
l 1
l 6 4 B t t PPRTLIN 8 t t PWTD WRITEF # t t PPRTLIN t t P REGSYM DECK-ID D42 COBOL 1.0 SUMMARY-132 t t @P0
h 0 6h ] d T %2
E Q
h " p0 l H҈ t t @P 0 d T %2 D " 0 x G Q غϘ1 ȴd ȯhT 4 %2 t t @P [h 00 0 5lȞ m n vT T %2n ̦ "p 8d 0 2 T d t t @P %
n% 2
f %2̈ f l
d
E " p8d % L w f t t @P l 1 l t t @P D t t @P t t PREGSYM t t PSYMSCR nLASTRY t t PREGSYM t t P RPLCIT DECK-ID D44 COBOL 1.0 SUMMARY-132 t t @P0
T 0 d 00 d 0
d h 0 h
h
!
d
!
t t @P 5 I T ET T 0 I d 0D ب N ̳ t t @P `h̵h 0̺d d f ̪ h
0E 00d f
h
̍ t t @P 1̉ l
L
1 1
l
d T 9d t t @P
!
d
!
T T @
l N t t @P A d b d d 0 T
d
l 3T T 3 9T t t @P T ̐d 0
d a
d ` 2
d D
!
l" t t @P 7
!
C 0 l d 읞2 L L"
t t @P b!
d ̼L "
!
̅E
T
l
d 0eT B t t @PT % T
d 0 A l Al 0 lT d
t t @PE d ܔ 02 #
d 0 t t @P
t t @P
t t PRPLCIT t t PNXTCHRPEEK ADVNCEGTCARDWTD DIAGNO t t PRPLCIT t t P KSETCOL DECK-ID D48 COBOL 1.0 SUMMARY-132 t t @P0 d 0E 0 0 tl 0 un
l 0E U 0 F t t @P + f 0 V n >
r A
rT 1 I U J t t PSETCOL G t t POUTEXT B t t PSETCOL t t P kSPILL DECK-ID D50 COBOL 1.0 SUMMARY-132 t t @P p 0 ` h 0 K 0 7 ,% 0 D 'T j t t @P (
l 5%D 4T $ j t t @P 5
l l% hD D T j t t @P E h nȵ Q
lp8 d h t t @P ] H H t t PSPILL ] t t PCUPDRC 1CREADR A t t PSPILL t t P ^SRCRWT DECK-ID D53 COBOL 1.0 SUMMARY-132 t t @P
h d s 0 h Sl h 0
E2 S N
h "p0 d \ A t t @P /ш" D ]" x 0 @ N 1Ȼ 0" l
h S h Ȱ H t t @P Z t t PSRCRWT U t t PSRCRWT t t P SVCOL DECK-ID D55 COBOL 1.0 SUMMARY-132 t t @P0 d t 0E u 0
l t t PSVCOL t t PSVCOL t t P 6SYMSCR DECK-ID D57 COBOL 1.0 SUMMARY-132 t t @P h 0 5 # " h # d 5T 5 h h H H t t @P / H t t PSYMSCR & t t PSPILL t t PSYMSCR t t P TRMN8 DECK-ID D58 COBOL 1.0 SUMMARY-132 t t @P T 0T 3] 5 T 0 T 3 T t t PTRMN8 t t PCCLSFL CDELET QUIT t t PTRMN8 t t P cSCAN DECK-ID D45 COBOL 1.0 SUMMARY-132 t t @P t t @P t t @P JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC ; Z x 0N t t @P - t t @P X t t @P SU t t @P NDAY MONDAY TUES DAY WE DNESDAY THURSDAY FRIDAY SATU RDAY T
d
Er U t t @P0 d 0 VT
!
ŀT 1W UX T 0 sl
r l
!
T W t t @P UX T
l
0r l
!
ŀT W UX t t @P %
l r
E l
h >
D t
E ß 1
F ŀ Ad sT 9 W Us t t @P P
!
l k 00d t f u
d H t t @PuT
ld
r
d 00 V 0l
x "
T t t @P
!
d
!
l
!
· t t @P
,î ̭ l
0E U̦ AlT 1LW U
T v
r
ŀ ̕"E 0 WlT W UX t t @P
̅ A lT W1 U
d 0 u t t @P0 T T 0Md vT .T 33 3T 0
d B
t t @P6D V
E E
1
l V
L
E d
1 0 d 0 d t t @P a d 00 d T 3] 0 d d d p0 0d d p 0 3d d t t @P
l L ,d nL nܒ
1
l %2L 0 f t t @P
u1 ̻ l T U
'd ] d 00
Nd 00 P
d 08 V t t @P
P l
-E
- 0E
-T 1 0YXT 1 .ZX
l D V / E t t @P
ܣ
1T 1 1WXT 1 2[XT 1 3\ X҆ d R B l
" t t @P 8
!
d Sp 0
!
"p0 l
d c ̹L " E 8E t t @P c
1 T 0 I | d ! )
!
lD 0 U "
!
t t @P ! T ] ^W 0d D T ] t t @P_T T W !̿ $
d +̰
!
d R d S 2
!
t t @P
lT h ̏ T
l
r 0
.d V
ŀT W UX
l T ! t t @P
!
l
!
аl
!
Ц ! \T W d , l t t @P ) /T 0` 6 T T ]d 0 E T G
E 2 T UT t t @PT
!
d R̠
!
d S̘
!
l̎
!
d T̫
!
d t t @P Ụ
!
ڬ 0 T `T ̺ )
!
l̀
!
t t @P
d
2
!
l 0
!
0E T .
t t @P ՜1 T T !̲ T a GT ] T lb G
!
d R
! t t @P
d S
!
l
!
d T ,
!
d U
!
٬ t t @P+ 1T GT ] ;\Y 0G - FT G \ i t t @P M t t @P W d
t t PSCAN M t t PSETCOLNXTCHROUTEXTADVNCE
DATTIM"TAPELU%TABLOK+FSETUPkGETOPTWTD $NEXTA FDCC RPLCIT5PAKTKN7 t t PPARSECASRCRWTLERROR REGSYMALFALINUMBER2 t t PSCAN t t P bOUTEXT DECK-ID D26 COBOL 1.0 SUMMARY-132 t t @P a 0"
h 2 MM &2 D ` b F%
D 3 8" D t t @P / 4T a t t @P 5
(" L(" 0 n K ط t t @P Q H H H t t @P a t t POUTEXT Q t t PWRITEF 1 t t POUTEXT t t P `WRITEX DECK-ID D61 COBOL 1.0 SUMMARY-132 t t @P N
%
D T _ t t @P
% 2D \ D ] D ^ b
H
%
D C%
D DT _ t t @P E _ M t t @P Q H H t t @P _ t t PWRITEX Q t t PCCLEAR CPUTS A t t PWRITEX t t P WTD DECK-ID D62 COBOL 1.0 SUMMARY-132 t t @P "
!
h dh hh d ~ @D D p0
0 ] t t @P 1p8h = h \ h 1Ⱦ h l V L
* Ȱ h1
hh t t @P \Ȩ kȢL "
- ] Ț H H H H t t PWTD m t t PWTD t t P YDTW DECK-ID D08 COBOL 1.0 SUMMARY-132 t t @P
h h d V < D X h 2
!
d W
9 2
!
6
t t @P 1 h ; n G Ԙ1 L nȽ h HH H t t PDTW J t t PDTW t J P 0WTX DECK-ID B57 COBOL 1.0 SUMMARY-132 J r @P - h ) h h !
Dh
01234567 r @P +89ABCD EF
PWTX
P J P ISHIFTS DECK-ID B55 COBOL 1.0 SUMMARY-132 J r @P 5 41 B>* ) (% H4 82 : r R @P + @ @ ? ? R PSLL SRL EXTRCT P J P DATTIM DECK-ID B42 COBOL 1.0 SUMMARY-132 J & @P
&
PDATTIM
P J P MIN DECK-ID B49 COBOL 1.0 SUMMARY-132 J * @P " h
"2" *
PMIN
P J P CFMENT DECK-ID B33 COBOL 1.0 SUMMARY-132 J r @P
XS | Xr
XI hh
XA
X<
X6
^
XS
r r @P +X*
X$ M XC
X
X
X
X 1 X' r r @P V- , H H @ j h hT X dT r @P J PCCREAT CCLEAR
COPNFL CCLSFL )CGETS /CPUTS 9CUPDRC ?CDELET ECREADR KJ b PCRASH }UNLFIL LOKFIL
READR NDELETE HUPDREC BPUTS 4 h r r @P + h h T 9 T
! j ,
T Ur
r " @P Vh H T
" " PWRITEF READF UQUIT ^C7WRIT " PCRASH ILOG1A P J P [TABLOK DECK-ID B61 COBOL 1.0 SUMMARY-138 J r @P
h# `
e" `e" ` "
"H "
"e"
! !
r r @P +"@( h)"! &
"
"H " f" h
h 0 r @P V4 TA PTABLOK TAPELU ' P t P TFSETUP DECK-ID D12 COBOL 1.0 SUMMARY-132 t t @P D D
T R t t @P ( D D T S t t @P D % D &T
S t t @P 'h
h 2
f
1
b b
b
D G D HT S t t @P I HH t t PFSETUP J t t PCCREAT #CDELET COPNFL E t t PFSETUP t P *K,I8 P P *N,COPSCN,,,B P P *K,I17 P P *K,P8 P P *P,F,,COBINT P J P HCOBINT DECK-ID B35 COBOL 1.0 SUMMARY-132 J
@P G
PCOBINT G
PINTERP G
P t P GLOBL$ DECK-ID D15 COBOL 1.0 SUMMARY-132 t t @P0u t t @P8 z , t t @P0 | D.BUGG ER t t @P8 t t @P0 0 t t @P0 t t @P8 t t @P0 ` [ _ < t t @P0 1 9 A X P B 0 / S , . V $ Z * + - C D t t @P8 @ t t @P0 t t @P0 ( t t @P8 C t t @P0 O ( ( % t t @P0 z ` % %
t t @P0 0 ' @ 0 t t @P0 * @'@ %
0 ! t t @P0 h
t t @P0 & @ * @ $ PPP t t @P0 Q @ * P P P
(* *& * (*
( *P ( t t @P0 |** ( t t @P0 COBOLS SPCOBLCO MP COBOLD SPCOBLCO MP t t @P0 COBO LPSPCOBL COMP Ѐ
t t @P0 t t @P0 -0123 456789AB CDEFGHIJ KLMNOPQR STUVWXYZ t t PGLOBL$ t t P CRASH DECK-ID D04 COBOL 1.0 SUMMARY-132 t t @P 0COMPI LER ERRO R - COMP ILATION ABORTED - LOCCTR =XXXX I /O ERROR : CODE X XXX INS UFFICIEN t t @P -T MEMO RY WOR K STACK UNDERFLO W STACK UNDERFL OW POINTER OUTSIDE STACK P OPPING S t t @P XPILLED STACKT T 1 T Ȕ uT a Ȋ "D T g t t @P 5 T 0 T 3 0
8d T D L 2 t t PCRASH t t PPRTLIN _WTX pWRITEF }CCLSFL CDELET OVERLA t t PCRASH t t P SDIAGNO DECK-ID D06 COBOL 1.0 SUMMARY-132 t t @P "
!
d Q 0 H2
!
l
"
!
F 0 O A
h j hhT t t @P > R H H H t t @P R t t PDIAGNO B t t PWRITEX > t t PDIAGNO t t P TFSETUP DECK-ID D12 COBOL 1.0 SUMMARY-132 t t @P D D
T R t t @P ( D D T S t t @P D % D &T
S t t @P 'h
h 2
f
1
b b
b
D G D HT S t t @P I HH t t PFSETUP J t t PCCREAT #CDELET COPNFL E t t PFSETUP t t P GETTOK DECK-ID D14 COBOL 1.0 SUMMARY-132 t t @P T 0 T 0 r )
h Ad W # " D !T t t @P " 1 T r " T
h Al PT "D X n Ⱥ"L t t @P0 Mf ذ Ę1 t t @P0 Y u Ā d X rb
r " " Ζf { Z r t t @P X n d z
!
d
!
M
d 0 D t t @P lT {
d Y
l P P P P P t t @P t t PGETTOK t t PINTEXT 8DIAGNO t t PGETTOK t t P LASTRY DECK-ID D21 COBOL 1.0 SUMMARY-132 t t @P0 0 h h" F 2 (h "h h 6 ڈ%2D % t t @P / n h 1 ӈl lT h s ǜ " 6 UT 0 %2[d t t @P Z% 2\d %D i T t t @P j% 2b[ %2b\ }
d [l
2 ̰ [lT A d ̦ [l t t @P d % 2L% Ώf 1 l s " 5 T 8 R t t @P %2
D T f t t @P ̩
l `l l a l % ̭D %2 f ̣ l1 `l
2 t t @P l̗ l ̋%2 L% ń d 1 0l lT l s t t @P!
" o 7 1T 0 %2 0_d %2`d 0 %D ET t t @P F% 2b_ %2b` Z
d 0 _l
" iT l mT l sT t t @Pq t t @P w L t t @P t t PLASTRYw t t PSQZDN jFSETUP.CPUTS BSQZUP dCRASH p t t PLASTRY t t P OVERLA DECK-ID D27 COBOL 1.0 SUMMARY-132 t t @P 3 X X X t t @P ,COBPH1 t t @P <
hD s d r 0 6p t t @P0N
d # k 0
D ^T H t t @P _ 0 0E `T 3L]
1 T
l z 0
f I
?1 ̤E .T , T $ t t @P
l
f 0 ܿ
1 d T 1T $ d " T 1 " 0|D t t @P l T t t @PT $ lT T 0 b 7s 1" " T T
d u t t @PD {d H
d #
D "
0E 0E {
1 d I 0
d D 08 t t @P 5 _" p0 ` d F 6 d Z" p0 [d E
7 d /p4 d M ^"p t t @P <0 _ d GƜ `"p8 0d K "p0 _"p 8d L "p 0 _" p8d 0 J d t t @P0g V T 3|T 1 D d d T q1 6l 0d 7
bd # "D t t @P f
1T 36
d T k d $ 0 l 2 %D t t @PT t t @P l\T \\
d T f0|T 0
d x l 0 Hd 0T t t @PT
l
0E 1 0 V . T 3 DT \ t t @P /
d # &T 1 D
1T 0\ 0 5 <T + T 00 d 2p t t @P C0 d Al
l |" f
N
̸ 0E ` d i
d t t @P nj̬ z 0d k |l%
D T m t t @P ]ܗ
1
t t @P # t t @P t t POVERLA t t PCREADR ZCPUTS SCRIPT CCLSFL4CDELET8QUIT pOPNFILGETFILREWINDGETTOKFSETUP t t POVERLA t t P ;POP DECK-ID D31 COBOL 1.0 SUMMARY-132 t t @P D 0 7 2 L n L h / 6 +T 8 9 /T t t @P , & : 9 H t t @P 8 t t PPOP 1 t t PCRASH , t t PPOP t t P dPOPW DECK-ID D32 COBOL 1.0 SUMMARY-132 t t @P0 T , 2 T b c
h h d ` , D a |n t t @P .1
2 9 ט l ՜2 R l L% n ȸ P Tر ȯl t t @P X H t t @P b t t PPOPW X t t PCRASH t t PPOPW t t P FPRTLIN DECK-ID D34 COBOL 1.0 SUMMARY-132 t t @P 0 X , 00 ɜ 2 ' 0 T 1 ? @T 1 A BT A CT A D
lT ! A t t @P + E @ 7
l 1
l 6 4 B t t PPRTLIN = t t PWTD WRITEF ( t t PPRTLIN t t P ^PUSH DECK-ID D36 COBOL 1.0 SUMMARY-132 t t @P D ]" 0 B 0 h
" /T h 2 -T ݘ 2 -T B t t @P /T # hИ2 BT Ș2 BT + L ȸf L ξ n H t t @P ZH t t PPUSH S t t PSQZUP 8SQZDN 0LASTRY @ t t PPUSH t t P 0PUSHW DECK-ID D37 COBOL 1.0 SUMMARY-132 t t @P0 T 0 / h ! D ." {f 0 | h 1 l H t t @P - t t @P / t t PPUSHW ' t t PPUSH t t PPUSHW t t P )QQSET DECK-ID D38 COBOL 1.0 SUMMARY-132 t t @P T
d vT 0Dr $ 00 $
l D ' D ( 0 Of N t t PQQSET % t t PGETTOK SVCOL t t PQQSET t t P REGRWN DECK-ID D40 COBOL 1.0 SUMMARY-132 t t @P * o FlҸU ^ ZtY v &ZtY
W -uz`
D W -Z@
[ t t @P .W - Z@ RW -
xW - < W - b ( JW -R UP
h t t @P YȦ
h rȚ "D % f 0 ؐ
1 d %
D T t t @P
1 t t @P D t t PREGRWN t t PREGSYM t t PREGRWN t t P REGSYM DECK-ID D41 COBOL 1.0 SUMMARY-132 t t @P0
h 0 6h ^ d T %2 R
h " p0 l Iш t t @P 1 d T %2 D " 0 H R عϘ1 ȳd ȮhT 5 %2 t t @P \h 00 0 5lȝ n n wT U %2n ̦ "p 8hd ᘄ 2 T t t @P d Ք 2 T d %
n% 2
f %2 0 f l
?l ;d t t @P % L 0 |f l 1 l t t @P D t t @P t t PREGSYM t t PSYMSCR oSQZUP LASTRY t t PREGSYM t t P .REWIND DECK-ID D43 COBOL 1.0 SUMMARY-132 t t @P a 0" N d `d ,T - ,
` " 0 f t t @P $ H t t @P - t t PREWIND $ t t POUTEXT t t PREWIND t t P hSCRIPT DECK-ID D46 COBOL 1.0 SUMMARY-132 t t @P h & h 0 6 % h " #T f g V۞ " >D ed t t @P 0h Ϟ" % 0 D 9T t t @P :
l O 0" D M%D NT 6 t t @P O
lȯ lȯlȫ ("D b%D cT t t @P d ț( "D D nȏ x
lȈ" Ήl p<
d p0 ` t t @P d l t t @P L D D t t @P t t PSPILL t t PCUPDRC KCREADR ` t t PSPILL t t P SQZDN DECK-ID D51 COBOL 1.0 SUMMARY-132 t t @P 0 h
h
2 B h ? " 0 h" <"D d d t t @P 3јd hh O h 1 H h
hш h ȪhȦ l t t @P ^L dǎ 2 θ hd %L% nȆ h Ȅ h 1 L" t t @P d젎 d L η nL Έ nl ̐1 d t t @P D t t PSQZDN t t PSQZDN t t P SQZUP DECK-ID D52 COBOL 1.0 SUMMARY-132 t t @P 0 h
hh 9 d " 0 h" 8 D " dl d t t @P 3hh J
1 C 0 0 -h
h ̘h Ȱ h h l i t t @P ^%L % nؙؙ ̰1 ȕ"L d촆 0 hL Ν nL טn ȁ d t t @P l 1 d t t @P L t t PSQZUP t t PSQZUP t t P SVCOL DECK-ID D54 COBOL 1.0 SUMMARY-132 t t @P0 D 00 d {f
l t t PSVCOL t t PSVCOL t t P 8SYMSCR DECK-ID D56 COBOL 1.0 SUMMARY-132 t t @P h 0 5 $ " h $ d 6T 6 7 hh H t t @P /H H t t @P 7 t t PSYMSCR ' t t PSPILL t t PSYMSCR t t P UPSYM DECK-ID D59 COBOL 1.0 SUMMARY-132 t t @P0 1T %2D T t t @P d 0
d 1T "p0 d | T 1 %2 d 1T 8 d T t t @P1 = lD p0 "E
2 g Ȭ"
L p0 "p0 & "
t t @P h2 {Ȕ"L p8 " ȅ hܮ ̣1 t t @P D D L t t @P t t PUPSYM t t PSYMSCR +EXTRCT 6MIN SRL = t t PUPSYM t t P UPTOFD DECK-ID D60 COBOL 1.0 SUMMARY-132 t t @P0 2 n hh "p0 d } j 0 hT h T hD ~ p0 t t @P 1"E 0 E 0 2 Q"
Lp 0 "p 0 &" Ȳ 2 fȭ" Lp8 t t @P \ " 0E ȝ hؘ̭ 1̘ l H H t t @P t t PUPTOFD r t t PEXTRCT SRL & t t PUPTOFD t t P xINTERP DECK-ID D19 COBOL 1.0 SUMMARY-132 t t @P
d -
D g
0E 0E
d ( "
L
E
1 t t @P +
1 d d 00 T d 5N v Ĉ d S t t @P Vb
?r " S " 3T | %2D k T t t @P l ST 0 b} % 2f T i ST o}0 %2 nT x j ST }3 | %2 l S l t t @P S D g n S D T j t t @P S 2 ڀ d eT e lT e S n S nT i S
n t t @P Sδ l S̰ d ά ln S̥ l S SL Λ n Sȶ 2 ̑ lT t t @P | el T 3 | l ST 0v & ^ T i3
l 0Dw Nd 0
d B 8
d u t t @P* ST
lT 0D "
!
d w
l d 2 V ր l d fT e{ t t @P U fΰ l ̶ gT R i0
l wl n
l l
l T z t t @P Ā lT a k{ e
l lT l{ e ̞ T j3 t t @P D N ̊d b ̅ T 0 m
d u ST y T t t @P0 d 0v D l ꜗ
!
l
l S T
!
l
!
Лl M t t @P 0 l
l
lT 4 = z
!
ll̹ =
lT t t @P,=T T & ;T 3 k
l S 0 | d ė" 0 }
!
l S 8
f I t t @P W S 2 k T 0 lT 70 e pT e 3 S0T ST s i ޜ2 8 t t @P l l S0T x 00 -
! 0
P
7l l t t @P 0 R lT ;
l T nl2 Ԑ 2
!
d vT 1 l ol SȂ t t @P2 l l S d e T n e ڀ lT n eҌ l S t t @P ȈlT n e ̿ lT n0 e 0 l S | dR l S b )s t t @P . " " J lD d C 0 2 N 0
d X j 0 ˜2 a t t @PY _
l ` 2
!
l n
l 0
d
l
d "
t t @P l
1T p T .
d 0uDr 1T j l%2D T t t @P l q
!
d v T m l%2 D T t t @P
l
l 0
f |ܥ
1 T 1 i i% 2f T T
ld ar t t @P # O
d 0 ] l 0l d 0 ^
l 0wd 8
d c t t @P "
!
d 0 b %
l T
d u T Dr 0
!
d e r
!
T t t @P0D d 0T _ "
!
l V
l T I 0 z r Tw 2 t t @P o
!
l
ld 2 ld fT l e1{ f [ T (
l t t @P " T
ll
l 0
d T
d uDr 0 T o l r
l
lT t t @P i l %2D T t t @PT Y
d T 1 i l% 2D T t t @P T d ^
lT - "
!
d 0 br OT T
lT t t @P
ll
d 0 ]wd 0 y r v
l l
ll "
!
d 0 e
!
t t @P : rT i l%2 0ξd 0 l
!
d f
!
n 8
d T t t @Pe s 0
d u pT tT o y
l l T Dr
l
d 0T s 0 l t t @P "
!
d b
l l T 0|
d @D g 0E
,1 T i t t @P
d T 0 t l T u0 *T lT 3 t 0l }d 00 ~d 0T t t t @P0 % D " d eT l t t @P e 0
d
lT ? j l%2 D T t t @P l q "p0 l & LT 1 l%2 f 0 | 1 T l0 0d l t t @P7T v1 e 0 l
2 J
l P "
0Dr
l
d 8
d d t t @P bl 0 l ̰" 0 2 t ̦ "d f & l 0 "n l
t t @P l
l ܆̥1 ̾ ̾ l ̸(l "̳n ̯ḻ l
d u t t @PT T
l w d eT e
d |d
T l%2D D g d t t @P0 lT j t t @P eT i T l T j| iT i T 0 t 0 T l
d t t @PvT 0
l T 0|
l 5 V d ̛ l 1
l J̏" t t @P @
L ½E ܄
c 1
E
E 0 'd 0 0 " 0
D iT t t @P j
d }" D g" 0f
1
l "L" 0 f t t @P
1
l Č "νd Č "εd "
!
d e "
! t t @P
"
!
d 0 Z "
!
l ܘ
1 ̀ "D T - t t @P T 0| T
j0
d vT 0
l 0 d
T 0
d u t t @PT |T
l T l1| iT i T j 0Af C @ T i1 D i
l t t @P> A \ N
, d
.d 00 d 0 d y
d 0 j i
l l p t t @P i
1
l
d 0 *Td 0T t3 9 \ ! wD g t t @P 'e s ; 0 S D 0 g | nT ! i S 8
f I t t @P S .l S d e p* ) (% H4 82 : r R @P + @ @ ? ? R PSLL SRL EXTRCT P J P DATTIM DECK-ID B42 COBOL 1.0 SUMMARY-132 J & @P
&
PDATTIM
P J P MIN DECK-ID B49 COBOL 1.0 SUMMARY-132 J * @P " h
"2" *
PMIN
P J P CFMENT DECK-ID B33 COBOL 1.0 SUMMARY-132 J r @P
XS | Xr
XI hh
XA
X<
X6
^
XS
r r @P +X*
X$ M XC
X
X
X
X 1 X' r r @P V- , H H @ j h hT X dT r @P J PCCREAT CCLEAR
COPNFL CCLSFL )CGETS /CPUTS 9CUPDRC ?CDELET ECREADR KJ b PCRASH }UNLFIL LOKFIL
READR NDELETE HUPDREC BPUTS 4 h r r @P + h h T 9 T
! j ,
T Ur
r " @P Vh H T
" " PWRITEF READF UQUIT ^C7WRIT " PCRASH ILOG1A P P *K,I8 P P *N,COPINT,,,B P P *K,I17 P P *L,COBCAT P J P COBCAT DECK-ID C02 COBOL 1.0 SUMMARY-132 J 4 @P TZ
CO BFIL
4 PCOBCAT COBSEG PCOBCAT P *L,SUBCAT P J P SUBCAT DECK-ID C09 COBOL 1.0 SUMMARY-132 J 4 @P TZ
CO BFIL
4
PSUBCAT
PSUBCAT P *L,DMYSEG P J P DMYSEG DECK-ID C08 COBOL 1.0 SUMMARY-132 J
PDMYSEG
PDMYSEG P *L,FMCALL P J P FMCALL DECK-ID Z31 COBOL 1.0 SUMMARY-132 J
PFMCALL
P P *K,P8 P P *P,F,,COBSEG P J P COBCAT DECK-ID C02 COBOL 1.0 SUMMARY-132 J 4 @P TZ
CO BFIL
4 PCOBCAT COBSEG PCOBCAT D P >COBFIL DECK-ID C04 COBOL 1.0 SUMMARY-132D @P @P W @PY @P c C7EXTR @Pk0 9 5 @P o @P t *C
@P z50 @P ~DMYS EG @P @P ' @P < @P ( @P ` p @P o p 8 @P 8 p @P p 8 @P 8 p @P p 8 @P 8 p @P , p 8 @P W 8 p @P k p 8 @P 8 p @P p 8 @P 8 H @P H @P > @P ? @P @ @PA PPP @P D*T @P @P E*B*K*V *E @P I,I,P8 ,0 @PM0 00*L @P P*J @P Q*Z @P R*S 2 @P *COBCA T* NAME , OWNER 2 2 @P )*SUBCA T* NAME , OWNER 2 p @P h
hhh h h h h
h h ȹ ȵ ȴhȯ f ؎p p @P ب
1T\ 0 Ȝ ȋd
h hȏ h
d Ȓ ! h Ap p @P * ] T W C
l \W U \f n jd ` d a d b p p @P \c d"\ e
l̸ n n n n N h p p @P .g f Yd i Z d j
9 ; 8 l4 k#T W m> ? p p @P Y1 l̕ d n > 2 l \ d p
d S t̠d ̢d ̤d d q p p @P )
d r d s f (
1
l f 6
1T ')uq T p B @P\'uq T T ̘
̣ ̝ nh \B $ @P v̋
̖ ̐ nh \$ @P > ̔ nh\ p @P U P
l [f ܔ
1 H T E d Y#p p @P T Nt ٔ F ̔ R Ŝ ̻ Q 7 ̵ G p p @P6 ̮ w ̩
d T" ; ( #
l d qT (p p @Paxq T b !
l
d y l 1 F d \
? %
> <
l np @P hT 2 @P m
l p z1 n nh\2 @P v׀ nh\ @P o S p n h\ @P ƀ nh\ * @P v B
d Qd [d * @P Z @P < ( l K Zp4 xd { ,h
N l nZ p @P ̑ ̓
l ? >
l
d r f
1 T E hp p @P g̵ f
`d | ad } ~
d V ڔ r q ̚ p M ̼ p p @PC p l ͖ o n 4̟ n l̩ ̴ p p @Pn G yl = 7˞ 2 T pv̙ p p @P\ po Vβd | r d }d ; d _c lm %
d ]\ ] p : @P l ] C ~1 T o : @P @P @P N @P P @P V ( @P T\ # U \W\ ( @P p @P ̔ T S
l p @P
l @P j @P 3d qT @ q T 3l
9d T _( q \T "\
`l !j
PCOBFIL
Z PMIBUF COBERRFWRITE+DISPATgDISP #COBMODCOBJCRSQUEEZCOBOBJFREAD LINK 4Z PCOBFIL J P CATGET DECK-ID C01 COBOL 1.0 SUMMARY-132 J X @P H "h "h hTZ ` **** ** X
PCATGET
P J P COBSKL DECK-ID C07 COBOL 1.0 SUMMARY-132 J r @P H~ H}H#
Q
`
&T
#\@Y HU r r @P +HT HZ" O@ T j j /j >j j 6 j j j j j j
q " r r @P V/@ /
0 C <
q@ r @P 7 @ I N ] d k r r @P H h" h j
n
*E " j =c @ =c @ * r r @P *LIBEDT *K ,I6 *K,P 8 *P,F,3 ,C7CJMP *B 'C7CJ MP' *B 'FMCALL r r @P ' *B 'PGMIN ' *B ' CREATE' *B 'C7 CNTR' *B 'COBO BJ' *S *T r r @P *K,I 8 *J, , *K,I6 *Z * *V r r @P 6*END *P,F,3,C OBO01 *B 'C7CJMP ' *B ' FMCALL' *B 'PG MIN ' *B 'CREA TE' *B r r @P a 'C7CN TR' *B 'COBOBJ ' *B ' DMYSEG' *B 'CO BO01' *B 'DMYS EG' *B 'C7EXTR ' *T r r @P *K,I 8 *J, , *K,I6 *E ND *P,F ,3,COBO0 2 *B 'C7 r r @P CJMP' *B 'FM CALL' *B 'PGMI N ' *B 'CREATE ' *B ' C7CNTR' *B 'CO BOBJ' *B 'COBO r r @P 01' *B 'DMYS EG' *B 'COBO02 ' *B ' C7EXTR' *T *K,I8 *J , , r r @P
*K ,I6 *END *B 'CA TSEG' *B 'DMYS EG' *B 'CATSG1 ' *B ' C7EXTR' r r @P 8 *END *B 'DM YSEG' *B 'CATS G3' *B 'DMYSEG ' *B ' C7EXTR' *END r r @P c*LIBED T *K,I6 *L ,COBOBJ *B ' COBOBJ' *Z *V *E r @P ND PCOBMOD )COBJCR SQUEEZ P D P 0COBOBJ DECK-ID C06 COBOL 1.0 SUMMARY-132D @P @P 7 @P ? @P 5 @P @P 4 p @P C/ -' ) h
hd !
h܈ h
1
hp @P nʟh p @P u h h Ⱦh ȽhT ; < #T
hȩ h J I B p p @P A
h Ȕ h 蘞5 4 A
1 ̾ O
% 4 "\ ?
l d Bέ @e p 8 @P
1 8 e l
d ;d < 8 < @P l
Z1 ll s T 7< $ @P T ; < " \ lـ $ j @P (@' H$ H!T T h h nh h 8h #h h \h N\ h L\ h Hh j
PCOBOBJ
" PQ8PKUPQ8PREPCATGET COBERR " P D P COBERR DECK-ID C03 COBOL 1.0 SUMMARY-132D
@P
( @P *CATL OG* *** * ERROR **** ( ( @P *CATL OG* REA DY TO IN STALL ( ( @P MASS STORAGE I/O ERRO R ( ( @P REQUI RED PROG RAM NOT FOUND ( ( @P , LIBRA RY PROGR AM NOT V ALID ( ( @P : PROGR AM ON LG O NOT VA LID ( ( @P H TOO M ANY PROG RAMS ON LGO ( ( @P V LAST LGO PROG RAM HAS NO XFR( ( @P d INVAL ID CONTR OL STATE MENT ( ( @P r OPERA TOR ABOR T ( @P @P @P *V > @P
h h + T
, h\ > B @P
\ T \ # T B @P HT T h
PCOBERR
" PQ8PKUP Q8PREP FWRITE DISP " P D P gCOBMSG DECK-ID C05 COBOL 1.0 SUMMARY-132D
@P
@P ' @P & ( @P
*COBC AT* PRO GRAM ( ( @P *SUBC AT* PRO GRAM ( @P ( " 8 $ . @P 4h h
h T &
' . R @P Gh hh\ & ' HT T h h h\hR
PCOBMSG W
PQ8PKUP ]Q8PREP ZFWRITE < P J P FORTN DECK-ID Z32 COBOL 1.0 SUMMARY-132 J r @P X/ X+ X' X# X X } X $ X r r @P + ) X a"a X "
XIb
XF b
XCa
X@b
bX @P @ . @P ENTER SWITCH VALUES < 12345678 > . @P
123456 78 @P SWITC H = 0000 0000 @P INVAL ID SWITC H ENTRY @P 2 p @P ChT - 1 7 8 h T 1 2 9 3
: ;
hߪ hʬHh ۨh p @P nИ p @P w ȿ ȼ ȹ س
1
I H l A p p @P l I H lA l I p p @P H lA 묹 l Iw H lAj p p @P l
d L h ̓A l B l C lDp p @P # lE
lF lG lH lT P 1 4 @ Ap . @PN
; T \ 1 5 B A
; .
PSWITCH
" PR9SWCHPGMIN FWTREADHPGMOUTR" PSWITCH J P R9SWCH DECK-ID Z37 COBOL 1.0 SUMMARY-132 J
PR9SWCH
P J P (EXENTP DECK-ID A34 ITOS 2.0 SUMMARY-132 J l @P X X
` X X X X X X H
" H
!H HT ` l : PWTREAD SLICUP ATTACH
PGMIN PGMINT CHAIN PGMOUT : P P *T P P *K,I8 P P *J,SWITCH,$$ P P *Z P P *CTO, MOUNT 3RD COBOL DISKETTE IN UNIT 0 P P *PAUS P P *LIBEDT P P *K,I17 P P *K,P8 P P *P,F P D P PHASE1FlHR DECK-ID A01 COBOL 1.0 SUMMARY-137D p @P
p p @P + MAIN $ 1 p p @P V p p @P p p @P p p @P p p @P p p @P - 1 M X B 2
?
p p @P X?
. ( ) + - Z 0 / 0 @ @ p p @P
> D J P V p p @P P @ @0 0p p @P ـ n ` 4 > ,p p @P v )e62 dv 3 r nn G
՛ n 7#w#p p @P / w . o ze ede$6 v v0 ! - . /!0 .7 p p @P Z wڌn .n z"ev
pw n w .e-v4
.73 2X,p p @P $@(. v/ v
6# e&v
32
K n+v}d d6
vvj 88pnQ .7˷ڥ'p p @P v į 7ѷ"c 6w եn v v,6 'W6 4 6 8 v
J
op p @P v1
%v
$av
, M t $4 w c%7䯽 7
6 68 t v#C
b%o"t !p p @P "
v !.#4 !%v ".$4 "
o tt
b%v
dd 3 6v9 @8p p @P 1 v ?j v* Rd2 N ,v v j v Av 4jv?p p @P \j &v O % 6 7 v 7r 8MB9 % p p @P > ?Caj >> 4w: ޏ,: = ,= = [CD= ` ܐ4 :^wjp p @P 匎 ` c % = %r ^ C% r=^ cw = ܑ4 =`p p @P ݴ e v 32 "c6 wn& 5 6o'6 O7: 66 6 dd d6p p @P o8v
3 ?s }
ྶF v v 7$6 7$Ѓv "73 n(r p p @P 3 2
2ճn 6.45 np'. 56 7ģcc" c4 4 ' M%
a o-t 7 p p @P ^ . !o)Tv CЃr
4 4 !t t Ѓp p @P h Ί-d\
4 6o t .3 > <5 @
edot 3
Ί 6 p p @P ),' ot
t X6 6 ot Ѓt [
" #p p @P ߤ
"6 rdHd 6n8 v
3 7 v v 7$v$ 7┇ j
v #2!o)p p @P
vf v
GdU ov # 2 v 3 2 6 ,t r 6 !" .6L," 6 ,"l!p p @P 5-!# 8/$o- v
#w
#v t H6 "6 ! v
%nm t$
C p p @P `nn tD$ E t 7 %4 C $t 7ov O#p p @P 2-
v2 #v 6 6 '. o z7T : e/6 ,e 6
v" v .o p p @P
i %% &
& 9Yir '(7 wҔ & j'
,'dvd)p p @P 6i :6 6'v3 9ld6 2: 6' 6 : d^ d|ddd 6o8 v >
3 F h yp p @P
N Ͷv $6 v 7ȶ 7v2 b7$h. o $Ѓ MiR :* 6
&v
p p @P 7M vn\ b 7(v 4 wԷ t Ѓ ;.4 eΊ t Ѓ p p @P b ; t v t .0l; v
ot 4 o t Ѓvb Ί v
ot p p @P +o.t v4 $4 + 7 f Ί
%2 6+v, nv,( ,v X v
j !6+ v,vnp p @P *v i6 +v,v n 6 + 4 +4 1 -t Ѓv
_
np p @P t Ѓr ձnp r $
d v ձ n.o8t 7 69 v4 $ 4 .7p p @P o t /ot գn
v0 ". # 3+6b *6Z.- ,,:p p @P 961v@ v 2 v;3. 6 Ї.803 v46 $o8v-$ -&dd| ddNe d: dd]6 z ,-$
<- 6J,.$
p p @P dVv 3 E۸ e
ଶ pO X7 7Ժ3 66 4vx js5 v.p p @P o8 +7 w5 0dj6d d6 d 6 !6e+ e,6-.8 3 3 v ni p p @P
%M_ dt^] .
66 i|e tb
`v 894
7p p @P o3t j.N60 v4 / l/8 2 v v t p p @P t i <\t j .ct O v t.0x v d #p p @P ;.#
4 "v:,0 ev #
"r % ,1v$ n o5vkvp p @P f c7٢v 1/6 v 0=[ L 0 7 1 WY ot a t p p @P ov 86%
Rdv 8v.7 6 % 6 +t | v
ov7p p @P n%v 9Rdv
b 7o%v 97 7.n : & n t t 3o~p p @P .ox n n n
3
n 3 n [ % 0 %p p @P /bc 4 7bt
# 4 e)e6 d2v ,#3 6# #4 # 8E 6.8p p @P =; 6 v6 t (v . $,h; ,6.v $ 6 ,7p p @P h7b2b 6.n 4 4 8 > 4 .6 4 v 7 4 4 7 4 4 p p @P 6 9 69 69
4 2 %4, knDt ro8t% 6{ 6 p p @P fo,t %6o - ; Ut %2_ H o,t %6 v . 6K p p @P
. v
<` = $t %2 . 7 N o.vp p @P
%6
v) .9 7 < = *v 9 o-t 6 %n:Ttp p @P
?; '=\ Y 4 4 o< t %4 )vp p @P
jj.> n> vv 3 r 2%s 3 n?> [ t 3p p @P
ٌ 3s .4 js o@v 7 69 d 7 t @> v r [?p p @P
v w %6 w v 2
2 r* r@% %.W6 n.v
..2 p p @P
.B 2 @ 6 7 9 t %%v d v [oB 7 t 7p p @P 6 9 $t 4 D
4>
4ot At 4 C t %.W n=W%p p @P A
4 > :A 7 *6A 3Tv 0.N Ќ2v
v .U
.p p @P l.Sv .N 6inZ 4v 4dy ,vc 362 2 j2% 2'A
#) p p @P
/ :, 67> *62 A )r ) jr ,.[, 4 ,t +v Ap p @P :
, @ t / 7 6 97 , , tj vdp p @P t ^ t |+ =
t 4 1%nT Ќ T vL v..TG 2 |i2 J|6 P;|p p @P +6
.T vi6 |i2
K r r
ns|+ r nR /x!
v| inS v|+v p p @P C
v T`2L LnUr .V ir ތ n ȍ %w B.X 2 32 r
p p @P n
B nY C 6
rD
E t k յnr= ٌ j
l
p p @P M%m 4A4 866 0816
jr r j5 l M% mk
6
v %p p @P 27 6D 7
4#*t * jtt
^
nAj %mv lAr M%mlp p @P Rt l6l 03 շv k klA 7k 3 ,3B 6
6 <3r+ p p @P
jT' 2 pv 3 & v
n .^ ._r տn` r32 kp p @P
Ek7 j3 w % v9 t v n nnn n 2
2 n +2bp p @P
p+n nn r 4.al4 4t 4 c nwn n 6 n4n jn p p @P
v 2 6 .g2 .Z2 .2 .e.f .h 4 r1 K2Grp p @P
ƴ] 3j
5
l nk l k ٌ *2O 2!6 lv rp p @P
չ 6
@ r 3
0 mv l rM%p p @P ml v է Qlw . s [ 3 t3 j 2
nY Q
9P Ml
mRp p @P G$ ٌ 3 s 2w %0 v r r է7p p @P r6 9 6
T v
LTl9 r v, r*5 8/6 1J 2 `p p @P 1%2 o 7Ѵ 6 T%n@p p @P խ.@ J%v3 0 > t 5%j ./ t 43 4=[ =p p @P =] 4t V6VA t 4w ?R , 6Q, 4z{5 <>5T T jW% :4vX ?j4p p @P Et4 vj< vjVn r>8Zxc 4t Vt jct j4w [4M >4 4 >Tp p @P tj4 {z ?Mv < ?Tt {< 4 ^ w ? 56Mr <.82< >r5 ,5> ?O2;P 29v(ntp p @P r3s 2" D B O s sq { ࣶ ึ
Ͷ ˶ v stp p @P &t[q >4^>s ^
} >v ~<6 6 t t u <
! >2 4 7 N
p p @P Qt
>l2 t v
7 >% , Zn t H v yt tv
>4 .~6 2< 7
t f
> vrv v6v tI6 v <Wx t rvv 2vv 8b vr Is>v rvv 2vZ 2 Z2< Zt vp p @P Z <
MQ t ' v R>@ nyt B>@nz t > >4nwt s2t 6i v
p p @P ( v .t q s[%r v
" r2vr "v" u<
!f
sp p @P S t[ t[n 5>@O 2j >>42 >>?P 2r1 Jr5 ,%3 .2t 55 3p p @P ~ 5n t u F4 n|q v6
60!
6%6 v{"u Vnxtw
+6 6]w@p p @P 6 xw!v ;p p @P \$r vx N6
e6 T6U6 yxv
v Lvxv v 7>v xL |jx д p p @P *>6 > x> , v2 `x
p ( xT 6Vp p @P U H l V 2 g
X 5, J # A _ G
_ r zQp p @P
?
T| p p @P p p @P p p @P p p @P , p p @P W p P P *K,I8 P P *N,COBPH1,,,B P P *K,I17 P P *K,P8 P P *P,F P D P PHASE2ٮ DECK-ID A02 COBOL 1.0 SUMMARY-137D p @P
p p @P + #MAIN $ 1 p p @P V p p @P p p @P p p @P ? 1
? p
@p p @P . ( ) + - Z 0 / 0 $9: @ p p @P - @ V Z@ V Z@ X W p p @P X-uz` W - Z@ W -Z@ W - W -< W - b W -RU P Flp p @P ҸU^ &Zt Y ZtY p p @P 0 p 0 n ` p p @P ٟ 4_ ,O. ,v: v=-. /v
o%v p p @P nJVЉ ? v
vG6 Dv v$6 v7 7v Ev$ ävp p @P /:6 $h. o $Љ < w Љv Љw
ۺ к
Ձ n p p @P Z!΄Љ v gv # ΄
o.t Вv 2 2
% .p p @P v6 $^ wЉ v 2 2
Տ 6 2p p @P
$΄m v
-t >dnЉ r v $6 vd 36hd; 3vo r p p @P tЉp s Љt 2& 2 2 6 2 6ϖʂ p p @P 5 5nВ5 5nђ5 5nҒ5 5nӴ2 . -,.vC vC6 $o8v<$ <)v8 6 TdBd>p p @P 1dd&d dd|d]di d:d6) =$T3 33 J ୶V qO ? F
[ p p @P \v $w$ o7ź 66 v & 6 68 |& Ѕtޟp p @P 6 ޝw ْz v
o t o t ( · iot 8 v 8
Bv Do%p p @P E =$6- nl,
2
. Ev $ l,v 5 -n ,.l,v
BvDp p @P vН. 0Do % 5 · iv),8 n
Ȥd ddd d<36# d<3 6(p p @P v =!6v &Dv ="6 v % v=# 6=$6
3n tΨ gv p p @P 3Ι n Z
t .ݒ Ҍ n
M n kv1v5 6$4 p p @P ^c7. Vv& v tv$6 $4 7 )v ݔs6
%
gv nמ t %p p @P
4 %| t ·
o3t Јv4 " l" WYot p p @P · nt n t΅ n # 6 $,p p @P h;,6 .v$ 6 ,76 .n .6 4 v 7 4 4 7 p p @P
4 4 6 9 69 69 fol, t 29, - ! p p @P 5 Ҡ $2 ݐ2
$2 & p p @P ` ! 6v ! o.t 6
v).9 9 &
4> Љt p p @P Jt Ft t ? t (v 4 4 t Ф2 أw أvp p @P
M ܤs t (v o' %2 2 6 2 vp p @P ktФ v
t ( v 6 ܉r Սv6p p @P 9
& . t t (6 .6 2p p @P 7ܒr 7 .W 7 Вt Ԓ (6 (v0" +* 76op p @P bv1أ أŞ) 6 )6 ,h;7+ 6-w n v *r أŨ)6 ,h;ڮ "Фv ܣ2 ޣ.p p @P nУ .2+ t * vСv Т6 *
4t 6 t v* ܒ2p p @P ޒv
ܒ 2
ާ 2 5՟ .*t (.6 !
4o. l,t ( p p @P l,t )l,D r 3 6l( v: v * 3s W "+. 3 p p @P d .6
42 B 7 ,( 6 9 (4 ےf p p @P 9 v p v x 8N 7 v
6p p @P d & 87 4 4 ՛ t 2 Ȃ6 ՙ2 69 .p p @P 2 tȂ 7 t xJ p8 7r 2 І v6&r6 Έ} v.&r.~p p @P A x7 6 B 2 Β3 r Շ r3 :v Cr ܞsWp p @P # .W v LЬn. Tt & $LȐ ЬvВ t #L vЬvp p @P & w 6ޑw Вt ՝ .W6n. v vޠ.B2 p p @P ;69 7 7$ Ҡ
828 ЋT v |·Јv %6 | r r p p @P fns| Ԗr nR"x
v|% nS v |v ڼͶ nUr .V Јv
p p @P )v nv 6 6 L v & nݒ
n Мvp p @P Օn )!~ ) r
)ա 4 t 2ښ 2
p p @P 6 6tЪ 0.۴Н 4v .n斏 69 7 6 9 %r ދn p p @P Ȍw Ș Չnv? t0 1 $ v /ܓv p p @P =r2 27 6
v v7 6% 7 v2n 2 Ì 2 2 p p @P h r &4 n &2 H 1v .۰1 & w Տ .8x x4p p @P t01 v0 1 r v ڴ n].4 vv vn v
6 .p p @P v knn v v& .W2
nD r
Շw 7p p @P v v Շ7 < t & 4E & ' 4p p @P
t %t ?r r54 &2
@ rr 555 nIt &,): o8 "#p p @P
?,#8v #.K9 v#= Ydd," dudee de 36 qdt 3 vҒ t t &p p @P
j./ 7n+7 t 5Њ.+ 0 t 48< 4= = 4t 63t 4w p p @P
? , 6, 4z{' /75T T &V ,4v ?&4 7t4 v&/v &n t 78LxUp p @P
[ 47 4 4 > t& 4{z ? v/ ?t {/ 4^ w &56p p @P
r /.8 2/7 r55 / & 6& ? ? & 4 w& v5v 55/.+ { p p @P 4/ Lz ?t ϴ !6 6
6 v p p @P A ,,4 ,, 6 6~ 6
&6 ԡ Ջp p @P l4Ș ? ȸ tT
v ᐖ % 22p p @P ȸ
6
t 6 6
t(t #v( ~r 8 , 'rp p @P 8 8
r 6 6 $ vs 9 6 s LȒp p @P
$ - v -$ t s 6 dp p @P t s 6 7۷. 5 t t Չ9/ yS t 8v 6 r Zp p @P C t йt 22 86 6v t T t ܷ4 ܺtp p @P n 9] ) йt t* + ) v 2 2 Ȱp p @P v ܼr ) v 70 мt &4 ) p p @P č
) мt & 4ō p p @P ) ` ) . 7 5 Tt .p p @P
l. 3 r 2 2 ) 6 Ջ2& p p @P
E ) t ) 6 <Г 5v 5* 6=$p p @P
p ) * 7 )+ v е08 R04 t * ) Мt p p @P
.6 ܍* 6 ) *
2 Ճ6 6vp p @P
آ 2 Ճ6
آv
M آ ܢ w "4?4p p @P
ndt qr &4 u / >>? 2;29v (ntr3s 2 "D B O s sqp p @P { ࣶ ึ
Ͷ˶ v stt q>4^> s_
}>v ~/6p p @P G6 t t u/
> 24 7
t
>l/ v/2 r2q 22/p p @P rt Ќv v| t t /
4 Ȍ "v> 2t v
7 > , np p @P t , vy t t v
>4.~6 /vv >2/ 7
t "
p p @P >v rvv6 vt 6/W t b , q.v4 s> v /W yt rv v2vp p @P w8c v r ђs >vr vv2 v2 2/W Zt v /
MQt ' vR >@nytp p @P B >@nzt >> 4nwt s2t 6% v
v. t qs r v
p p @P I r 2vr v u/
"
s tt n5> @2& >>p p @P t42 > >?2 r r5 3ޗ. 2t 5 5 3 5nt u 4 n |qvp p @P 6
60!
6% 6v {"u nxtw 6 6 w@6 x wпv $rv x 6
"66 6yxp p @P v
v Lvxv v 7>v x͒| &x д > 6> x> `x p p @P K3 ^
` n {xV' -u c Q p : m$ )U . O 6 j jp p @P v
\ p p @P p p @P p p @P p p @P " p p @P M p p @P x p P P *K,I8 P P *N,COBPH2,,,B P P *K,I17 P P *K,P8 P P *P,F P D P .PHASE3ٮ DECK-ID A03 COBOL 1.0 SUMMARY-137D p @P
p p @P + #MAIN $ 1 p p @P V p p @P p p @P 1 c P $ ;< p p @P
_P ` 0 - + . 0 @ p p @P @ @ p p @P - P 0 0 0 @ ` ` p p @P X 0 8ek,_ NZ@ pВCT + - 0 B N E T D C U B Pp p @P VZ@ V Z@ X W - uz` W -Z@ W -p p @P Z@ W - W -< W - b W -RUP Fl U^ ZtY &Ztp p @P ٱY , .v{ v{v 6 6( o vS 6 v p p @P v 6 6 78 ww Ёv 2
26 9 v
v p p @P /v 7 7 :
6 t 7 !" v6%p p @P Z6
#7 66 8 w ow >6 Ѓ = !" +ot !6
p p @P Z62 v;v8 6. *> .,$
#
6n8 v v
.,$ =
0 0np p @P v
v 7
6$ h. n # > ed v+v)
6
k
6"
6v p p @P ۍ ܬn · ot Ћv .2 v t !" 4
orj 6p p @P 69. 9% kP Nਸ਼L ̶JͶH ӶFD BX@ !>;< R:h8 ᆶ6Ꮆ4p p @P 1ᬶ2 0. ,* (& $" 6 ,
p p @P \ !" #6
)v 4 8 $ h., z) 4 &4 4 } >$>4 ot 8p p @P v
3 6 6S 6 % 1e# v &t '( ot 6(w 76 nl$v p p @P + )ov' *v+, + -o t Пv .06 v,# v v6 # -:.#op p @P t v nw, /:0 1t v w, ot X ? 36 36G dUv3X $?6! <3Ћrp p @P ;n l$ vw, +)6 + ' v6 =z2w+ o鼓 (3 v 77' 64+p p @P 3 ( ot Ћ v ;. 5, $4 6 6 ot vv Vv% o 67 . 7p p @P ^., , (v- v
( v'ol$ t + 9w 77) t v )v' v
Γ 2+)vp p @P '* v+, + ) .6&. 8t 9 Wv8 t 9ܬ r
:{ v;v vw, %p p @P n9% v , . t n ,$ 2
n0
n W -p p @P 6 %n 9vЃ = v vw , -v vw o8t
vПw ? &p p @P
.,$) Tl)v @63 3$, , h;Av. , B 6v
3 65 owAp p @P 5v., n8 B 6 v
3 Эv ) C Dot vE ot F, .G p p @P `1e#v * &* Hv$ oIov
v6 w , - (vo l$t 7vw )vp p @P v +)v' *v+, + kdd"d vkd d"dv 3 ot v#v 6X wp p @P ot 3Ћ v ;n vw Ћw⌠ sކ ;7ۮ , -v Rdv- vП = vp p @P 6Jv xo y vK vL , v B v Ћv C n9v v M:N4 #p p @P .65 Ot 5 , Pt 86 o vЋ v ?n l$9v v M:No, Pp p @P 7t 8v o t 5, &.,$ 6Qt R v Sot M Wot sv )T 6 W7p p @P bQt 1R1M Wv Ut T , 33$ ' Vv& 6,# wv Wp p @P 6Sv 6 4v v X :Y6Z6 'n 0 .G. v8Ћ v ;. ,$E.,$p p @P #v&
=v o dv >v o vQ $v 6=6 " 6-t " t t p p @P hЈv $ (6 (>" )6 ) >" + 6
- 6
/ 6* t *>" L 6 p p @P Јv $ v G6B 77
8T7 ( 2 6
v
8=p p @P 7
v2 1
v
v 843
l$ sЀ r 7I6 v p p @P Gw Ϙ w 2 4
v 4 7 p p @P
v 4 )v ., t 쒓
vK Kx
t e ot 輓 _ Г t p p @P
?B$ߴ e6\/ 4 n{v fvv w, t # ) ot !v
6
p p @P
j
6 v g t 0t t nw w vr = 6=6 hrp p @P
gt v gt t t 7 6Z 6 g t Zt 7 8p p @P
hv/' ,8LR '8v% 7v8 :ihv Пv8:? zjv 7v' zk:l ) v
'vП :?:?yp p @P
v $ q @ t O #t Ћv = n
m t Ћv ?nl$p p @P T& t .$k 6{v Wt 6 vbt v t v7㌇ Anl$,
p p @P A6 ol$t #0 0 t Пv +v$ /w )6 Ћr ܬr ܋n l$܋ nvp p @P lwۤ
7ϥ7 $ @n 6) oC l$t v n 6 oCp p @P l$t Ћt 'vܒ 4C$ o t
ot Rd6 Ћ = ot Ξp p @P «%v 2. 2Оt p $ 2 87 v
2p p @P 7# 7 ܬt ͎
v Tr tО s 3 p p @P v
dn Јt ;n .<6 ʹ !r Srp p @P ͬ$ <7 rt *l$v" L ei bo t y
p p @P Ķv s4 ; h,so l$ t ؕ Y2 3 ܬn t · Lܬnp p @P t "=n8 t n
4n t ؗ t 7p p @P
t ,Wn+ t v7 Wn+t 5ްn+ Wn+t 5 ޱn+> nen%t 4nJ? !?
d?4p p @P
E e 46\ t Пt n> nڬ,Wn+ t 5n+ en%t 4nJt @A? А@? ? p p @P
pk4> 2 Уv v% 4 4 n . ܬ 2 · ,h;,p p @P
6., 6
6 )v56 4 4 v )n 4 ., 3v 4 .w 3 ., p p @P
~ 6 7 64 w 8vӾ ܬ2 %, 6 6 !6%9) 4 nt ._p p @P
Пv 00 vt Qr
2
9. $ b6 :. < t up p @P d v v<97 69 v5 !v
w n Tl$v xv.= ,$0Пp p @P G:wv kw ܬ6ޞw 69 Пvp0 2 r v/єҬ= 0.l0'p p @P rx6W nv s 6 ,h;7 W7+ 6-w nyv 'r Y )6 ,h; .߮ ~
v2
p p @P .n v $0= t % tt9 z%v ̾ 6
6 v 6 v {̾%p p @P l%!v >6Ѓ =%V %826 "Ѓv
Ή .,$ .6| vM!6 ޯvޮ 6p p @P r .o Ѓv ! = "." Ѓt Vv Ёv ܁ r$ rp p @P 3 ̾ w ܁4
v6
t s3 6p p @P I E 8^8 76 9 d 6%v3 p r 67 w6 9 v#v ; 9%r p p @P t %r ܟ 2ܬr ٷ 7 7 ͬ?86 408 ? ܬ 2% p p @P 4 $9 #> 7 69 ܬ6 v
ܥ. 2 14
ޡ2 $p p @P ʴnB w 6 7 9 e4 v t ܬ2 v 86 6
p p @P w ܬ3, ,, / v' *v" ks g
v c 2s
'p p @P v8 vS w s . ,$G 67 v
? w2ޮ 3 p p @P KЀ vޞ2ޛ 67 vޞ 2 v r2 7 ܞw 7p p @P vИ4 6
( ov ПLv v ФNv 75n T 3. ( p p @P 2 7 t t*2 t ᤴ gt ܬ2 p p @P r5t
r
s v# 7
ܞ4 }s3 s v#3 3p p @P , L , L a 6 t П 6 ē - t П6 p p @P " -v К6 LS Йt Й t Иt
<ɓ - ) p p @P M @ + O M K I . , d $ $ 6 66 δ p p @P x
W $
$ A vp p @P ެr
$
p p @P ζ $
<ɴ 4 4 /4 n o t 96 76D $p p @P t Ћvv ܟ6 v
ܟ6
vܟ 6vܟ n 6 l$t 4n 4 p p @P $ t ПLv ~ 4
r n 4 n t П 6 4
63 t Пp p @P O90 4 4 v ,6 t П8
56 ܬ_ 2 4+6 4rp p @P z4 $ ' !t 'v Аv Б6 $ 't ' vv 6 $ t 'p p @P 4 П9T 4 = t ܥv 'p= r4 v
4 3
ޛ25 . zc'p p @P д wt ܬ6 6 ܬ 44 $gt ܬ6 6 $
4ܬ 4V ot ܬ6 v p p @P /v v!r $ S 6$ ot ܬ4t Пv .4 p p @P & O6nެ$ d vo t܋2 v t ܬ4 6 p p @P Q0c0 v 3ܿ 66 t Оv
F t ОvHП :p:w, \ d 6ܿ2 p p @P | (6 /1 .,1cv 1.K e v1vp p @P ~ Y dd,/6 dud e ede 3 6qdt 3 v Y 6, 8 (6p p @P "t ܬ6 ެ./ .| , v|, vv .| t vެ./ 2p p @P 52 t 48 < 4= = 4t 6 3t 4w ?, 6 , 4{p p @P |'. 25TT V, 4vܒ? 4* t4 v .v n r2 8?xH N4 24 4p p @P * > t4 |{ ?,. +5 6r . .82. 2r5 5. +6+ ? p p @P U?+ 4w+ v5 v55 ..+| ܬ 4. L{ ?M t (6 #p p @P 8 ؗ $~$ t+ 6
tt vp p @P ~r { q rف
r 6 %
i p p @P 6 :
q s : CYe 6`pr
Hv9 N
n e
PZ]p p @P { .e $
N / b
H /0? J
#k
d
\ oD_
p p @P ,
p oy @a <8 O`U
I 4
p p @P W p p @P p p @P p p @P p p @P p P P *K,I8 P P *N,COBPH3,,,B P P *K,I17 P P *K,P8 P P *P,F P D P IPHASE4Z]] DECK-ID A04 COBOL 1.0 SUMMARY-132D p @P
p p @P + p p @P V LINE VERB LOCN CONTEN TS LAp p @P BEL OP OPERAND COMMENT p p @P p p @P
+ 0 7 9 ? @ I } p p @P 00 ` 0 $
d ' P@P P 0 + ; @ j( X 2 5_W p p @P - P ? 0 p p @P X 0 0 0 p p @P ? ? ? ? ? ? ? DD XD FIT ADC NU M @Z{[l P}M]\Nk`p p @P Ka z^ L~no| J _'Om-/bc defghij, %;>?pqrs tuvwxy: ="#ABCp p @P DEFGHI )$ .<(+*&QR STUVWXY! 01 23456789 1 01234567 89 1234567p p @P 891234 56789234 567890 ָ %( 953 < T U`= t 8p p @P /r 7 > M R G ɸ9 *t l;,:0p p @P Z/ . - : 4 w - p p @P . / 0
K t v6B ώ !H ς Rp p @P 6O $8/ H P'r R0
ޥPR 0
7 p p @P v! v v v p p @P 7 ɖ2 t v- &k(2)8 2'H6 66.v 26 ɶ 0@ZB Lv p p @P 1, r*v Lv ώ 7д T
0 "O' U %t p p @P \8 JL
# <= ;: F߹ ;6 ` 6p p @P 2 ; 6 v 6 v C 0: : 6 p p @P @ a
6
' 2 t p p @P ` FtD `H 084 p p @P N Lz w
p p @P 3ό v 0 8 p p @P ^&v 8 )Жz P! Ж t " p p @P ! 8v" F#' !" I:#' !$ %&' ( ˴ 4p p @P 2 N3:
pkl 4J8" 7 w w w p p @P w N 7 Ѐ T U
w ` p p @P
7Ѐ 7 Z` к) t p p @P 5 v6 `8v 8d6 X8x 7 *+ !
Bp p @P ` !"# %%#$ &'(
z,:) )) HҺ ),, !Hp p @P ) : z) ,z,v F) ؔ , z,:) Ozt N ) ) p p @P Zt
h 6## , 0# .x)v
PxK 8P%x p p @P v
\xB8G xv
Nx98>
hObz# xt
Tx*8/ , I Иp p @P Ӓ d Ҹ I * R -.
Ozp p @P 7t " 6 Ժ)z/B
,, :4 ) p p @P bt
B 6 `t
4 6ܴ 8 v $2% :) p p @P ' 2
r
" ݒ# 0 4:,@z) &8P 4 0:, 2 t p p @P ) &t & r&p v
& & Ű r %0 <&' 4 I&Ŵ p p @P v
w 02@ v 04 c7 ό Тv
r p p @P $4 4 Lz "t 4 ' t ' v! ^Ұ v p p @P 94 Vմ e t , t
b t w ú p p @P d ƺ Ǻ Ⱥ Ŵ t v v
v
&6 N7 9 9 6p p @P v9 vՀՂ v 9 B # :,
z,p p @P t
t o 7
)d h f
p p @P :Y BO vx 67 G8O vz6 7 = .O v| 67 3$O v~6p p @P 7 ) 20 ., ,, z,:) , v Մ 8 7, r 4t ܩwp p @P ;2^ F, ) : z) t - ξ O
t ٺ 6 6 v 6
p p @P 6 ٹ v7 2 96 T4 U 4 1p p @P v ϸ?
|< Ьt ݒ x 8ٹ 4 <4$p p @P 猛 8 x ϒ ؔ ؔ w
Ȕؔ V 4 p p @P
< ݐ F B8 Fv D 86 LH 0 O+- p p @P = v tD LH v 7 1 p p @P h8 x ؔؔ ؔ 3 4 w p p @P H $ Gv ٰ>! 87LΠ 4 v /, ؔ 7 p p @P 6 Vь Ϡ 4 4 6
6p p @P 4 66 ٶ a " # ! к)p p @P
rܭ VΏ1 ؔ В :2z k v3 p p @P
? к) ؔ
rܭT * p p @P
jО 6w 4 6 72 ь =P= ؔ ؔp p @P
ؔ ؔ 6 }v d| 6 m fRvp p @P
L2 U OT n 94 6 yO =v r6
4 n ݘ
p p @P
Ӓ ݘ Ӵ t H t d k v >t d > t v ^ p p @P ݴ ڴ , < xS xO 7J 7 + Vav
ܭό p p @P Ė< В:2 z v t ذ 7 t M찔- 3 p p @P t ؔ ؔ M - t 2 DP ܡ%$ "77 6풶 = p p @P
$k
t *v Vv 8t * H t(p p @P
E Έv *6
( 6* ( w*( w 4 . p p @P
pM
& T C et X Y Z[ \ ] ^ :v
` ̀ ͒b 7C Jtp p @P
v 6 # M
Y ҈ʘ Z̖ 6Ғ˴ ˖ʴ 80 t vp p @P
Ҷ Ӓʏ ˡ Y
X ʔ˔̴ 5 X 4 @. ` k
p p @P
}O
k 0
3 F ox
^
B
h8
e
L
W
p p @P
u p p @P G p p @P r p p @P p p @P p p @P p p @P p P P *K,I8 P P *N,COBPH4,,,B P P *K,I17 P P *K,P8 P P *P,F P D P PHASE5 DECK-ID A05 COBOL 1.0 SUMMARY-132D p @P
p p @P + p p @P V LINE VERB LOCN CONTEN TS LAp p @P BEL OP OPERAND COMMENT p p @P p p @P p p @P
1 0 7 9 ? I } p p @P - c 00 ` ` VW
d' p p @P X E T D N B O - + P U D B C @P 0 + ; @ j2Ww P p p @P
@ @ p p @P @ @ 0 @@ ` p p @P p DD ADC NU M ; ]< p p @P t kkv 6 r 7ܴ 6xp p @P / 8 @ t 8 67 ^ w 82 W 1 p p @P Z ɔȔǔ ' t 58A5 нv Տ: 2 < - - p p @P `t ܺx # v =5 - - - t - 0p p @P O
- t
6 6 p p @P ۺ v 6
-6
7ڴ 33 Е.0 vp p @P 54 շx
x* wݸt O 3 l5 `t /v t v kkk 6
s p p @P 1 b 2 8y* 6 '
6 7 8 p _ n
p p @P \ X eVT R NnL J FD @ >< :8 6 4p p @P 2 0. , *! ( " $#"$ % &' () * + ,
-p p @P . /0 12Е. 03 - M'v 6 U :c v, 445 vի6p p @P '0O@ 67v+ x_xG8;8 O v 76 գ8S +.գ Pv9 : S5tp p @P խO v!:6 4 ; 7 8 4Ց:< p нt իt : : нt Տ: + 4 իt ?<5t գPO` 6 t t p p @P ^4 Ѵ @6 @t A vBw k2 A 0 '+ p p @P L> :C vk 75@ t 86 8
x 7 - p p @P :Ct -6 W ƴ : +' v k:D zEv F7 Gp p @P ߺH DIg 8 zJKՕw @8 @ՙ s 7 p p @P `\/v U SIve 227 LD (:D 7 g T Et E Rg8 p p @P KCw Et C6EF I g8 K
Ty R յ t ŏK 7 VWp p @P J> XY 4 Ŵ D@Ov c6 e6
g6 - z4 0Z :> p %[p p @P \t 92[ nt 7 .4\t %:= O] 5pwT v 56 ; p p @P ^ @ @v _
* @ d Ev`
@O ,O T@p p @P 7t 1z@w @t y: , %/[ ۶az t5,/
@vB w_bc V$%O% &>(,p p @P b м vv n¸ kr <
t *]
t %O$z> 8 / :6 ( >= 4 t p p @P cd 7
4z84G 3ef gh V 3hv4 v 4H zWP ij ÔúY V p p @P U`
0@ 68 +M L D N @sηzE z` L C@t 4 7kꐷp p @P s zE z`E`9 0@t 7_ 8Ѐ ) > ,8
v
86 4І ) >84 ddp p @P d7 4
040 x4
Cv
qkmrη E` E v Dt p p @P 9Ext E lt < EDl <,< 26!m 6 1:n4 ` v mO02 026 }kp p @P ddO. }k 1O/] :nzo B6 Fv ô p 6qq 66 v
p p @P 6
6 r :s % [\t tL v\ tut^ @xt xt Օ8@ xW .kp p @P ,.v v.:w J . 6c xW > Kyz Vq {:|z}p p @P S Kcx
> 0zY z =G=~ j g if VH Y
;p p @P
l XR
lSME
OlP
jl 7Ѐ z= G=~ jg vz2 vp p @P ;f2 $ W Y 7ܘ F /i fH 87 R
s p p @P fT
ℌ zvb z 8F8D : F8 zK 88 86 @5 s p p @P 5 :6 % v :9 =N] = Y 8] 3 9>
8 4j 4p p @P 4 t ' 2
p p @P r
" #_ \ A нv գnt ^E : ^ ep p @P I нv աnǴ @s kx.t t ; v zq :z 6 Kp p @P =q0 :6 zb: ℰ:c :]zK Ebz ev # tc B]c C] lp p @P hY8 4 @kO v v L @ z g> z ٌh> @99 f p p @P 4 v z4 Օ W !:X :0 YG99 efX ,9ºi jH/ ݸs 9x8ٺip p @P ºY @ w :b:c 4@ 9t ot t4 2p p @P i 54 | B]t v B] q r '⛆ s| Fp p @P
K
E:` 7 @e2 E`l wD͔ Cv uv D κbl vk p p @P
?4 : Ѐ e
L 4@ z 0 77
04 ,! ͔Δp p @P
jEX uv Dκb Iv
vD NI {l O 4 : :C z 46 p p @P
Ѐ e <4 7
={ v L< 4 ::Р :o| w
{,!p p @P
O t C wukk{ s Cc4
E
@ 6 vk
I:Dp p @P
O
0 :Iy8T O
0:I ukk{6 T4 Dq 4 ОzP 0 0 нvp p @P k.ư 4 ^1 ݸ g8(6q t @e 8.6jt :Y D Ѻ41 A Ѻ4 dp p @P A˺d 44 4 & zRݹ v & zRݹ ˸ֺ ִ & O@ʹ/z L 9fp p @P lOezx xҺx X 86 :6
~OOH 4 4iY => \vp p @P vt v\r vv9 2 [80 2n r= 1 1 գ 9 94 41.p p @P n 4 % A A% @ vkkcv p p @P
0! : n `
-
66 O p p @P v @ 0 6 N @ 3 t A7 #< + Ѻ4 лv p p @P C r 82= 4 R :Y 4 Y @ xt H > a ^t p p @P nI OH ^ I 6 ^ Ct CLvg kqvʘ ʷ 6p p @P 6 6 V 2 v Ov 5 : )^ غII 8 8Tϰp p @P īg =0= : ) v 6 }O:H t e6 t e ϴ^> >p p @P 8 6 ^O /в6 kekk 6 Ebι C 8r vF 6R~Lp p @P
H rd d6z g;K:V Ikt D VI ^T 8AIv p p @P
E6
= EI G] v E t է t6 v в6
4p p @P
p 6
4@
ՏT ⥀ 6 t )v 4 o ! k,! !O p p @P
!: 6v o cvD l
V !t ! Y
XY ) t ?t ; p p @P
v 0zK t 0 zK @m > Ev ! @ n>4 @o> @@p >-4@p p @P
t @4 @@ q] # ' #8 @
> :@:4# ' " C t884 @ Cr Os Cp p @P w8+ 4 @C uOv
_ @MAz4t w@4 4 w &4p p @P G E Cv 83 " /0 12 : A4 44p p @P rd @ @B @@B @@ @ H6 C E E F G @@p p @P 4 @@ @ :@O X P^w D 0R w@ ՛Rt p p @P Ⱥ@6 8?7 7 7=:k z_" ," C D@ >߸< :۸8 :8p p @P 6Ӱ Ѱ ϸ2 4˸5 ɸ;Ǹ< Ÿ=øm GS ! :>4 , r - > 0p p @P D R > Up p @P IOT> "8 x V ( 3Y ":x VW 3 E p p @P t Ct 8 t ؚ t 2
2
r
p p @P 4 v wt w 4 :4; t 2p p @P 4 7 t Д4 ô t t 8 - 4 t p p @P 8 7 t 6 8x ) O=4 7 4 &v :p p @P L v:z Щ:F;؛ K 6&@ v ; Д6 - :p p @P K4 ; 46 4 @ ߴ ? @t pRt v? 6 6 ^ p p @P vt t Ձ l6 p Rt @O kɴ t 16
kr ( ( nt -p p @P 0 l% x v- r
ܽ 2Rw n н8O p p @P ̴ 6 8 4 @ rpR 8; t x
t ; ; @ tBkpp p @P R8 9,l; x 9' x _ L 08 &2 x ӔԔՔ &$@ 28zb xrzcبp p @P "@6 ب8f0
k ,28x^ R< v4
6
T @t 6& v@Սz@ p@r p p @P Mk :@0R Сt ( t > v 2 ;t2 6> ; p p @P xt t O 8s >t c L t
L t
t p p @P bc 4 L vBw Յw r Bw Յ2 w t $x 2I0بp p @P Ĥճ v0Ӕ t ճv0 2z $ &t Ы v
0 2
r
p p @P ' ⛆ Bwߏ 0w 'v! ^ v 8 4 p p @P $W ՟8% x a 2 96 & T6 U + "p p @P O9 #8 4 v ? )
} = p p @P z ؚ. ؚ w
Ț'ؚ a W 4
p p @P v . I3 $ Gv >! " p p @P 87L 4 v/ ,ؚ 7 6 W # p p @P 04 4 0 6
6 4 3 66 a p p @P & " # ! _ A ؚ T
vp p @P Q A ؚ
Y i [ =P=p p @P | 0 O t t 0 ؚ ؚ : 4 p p @P Q P 2 b20 2[ v/v- mx mxp p @P Ҵ v I y9ْ6
ے x9 1vp p @P -8x xpM R cc 1 m6 mv 6 4 R v2 p p @P (:4 6 zO ] { UOT> "v W 1A > 2
i 22p p @P S"2" Tv
˒ W"# М2# " m j y v p p @P ~F C ࣒ v6 4
)p p @P L ) R0 0
t 4 84 ` 4
p p @P 4
L t6 t8 x 7r
6 t | p p @P * 4
t c 4 p W kt 4#
M p p @P *6 6
4 6
@v t s66p p @P Uy4 6
4 ' !
] 4 p p @P Vv
J 8= 4 qq v
v v⻰ Ov 08"4 p p @P v ՝O
v O
" # # # #
"
" p p @P v 6 q 6 :PLL i6 v p p @P 4 8 $ 8H c q1 q vN E vXO\p p @P ,
v O] YOG 46 38z8 v 7 t )7 t 6p p @P W8 7 5 t
28 7 5 J - 8xF + p p @P t
ի 4 43 v- ` $ ' 3 3t Sp p @P 4 4 4
7 t kwv 6 t կ 2p p @P 0 t wkѴ , c 7
d7 t - t 2 DPp p @P $ 7 76 =$ k
t۬* - I p p @P .t( < v* 6
( 6*( <0 w*(0 wV
XMW p p @P Y ' Lt vY6 "A XMW Y Z 6 p p @P 80 # t v [ YU X 5 Z X 4 p p @P
@
rg >
u
0I O :
q& Cp p @P
k q %
I
T 5K
`
! c p p @P
V C
!4Y & @ u ]Q
p p @P 0
y
W } c
E
K
[ " I^ + 2n vp p @P [E
\
s fR
p p @P p p @P p p @P p P P *K,I8 P P *N,COBPH5,,,B P P *K,I17 P P *K,P8 P P *P,F P D P PHASE6ٮ DECK-ID A06 COBOL 1.0 SUMMARY-137D p @P
p p @P + p p @P V p p @P p p @P z
p p @P $ ( 0 1 7 d 00C7MAIN DMYSEGDB UGEXTRPB
d'@Pp p @P PPP P*T
0 + ; 5 ` p p @P - P ADC DD XD FI T PN LIT TM P ACC DECA SUB NUp p @P XM **
6
p p @P p p @P /0 +,-. p p @P 45 ! " #$% &' ( )* + ,-./ 0 1 23 p p @P Z* 6
vՐ Ē p p @P / !> @ !>0 x>
v#ܶp p @P Z83 ЛPz0 ܛ83 ?v< 6' 80 750 z - &v 2 t p p @P $ ̎@ 6 7 4 @ 8 v 66 7 8 Ь t 6p p @P v
ȷ ƈ ެ 7햪 .@ v ܶ 0!6p p @P V O 7 @ 82 Ȱ 6 PP 7 p p @P 2
;
ܶ2 ܶ2 ĺ p p @P 1 ܶ2 Ļ
=6ܶ4 s 69Gy ب 7 p p @P \
!"p p @P # $ % & ' ( ) * + ,ͺ- . / 0 1 2 3 4 5 6 6 p p @P 7 8 9 : ; < = > ? @ AB CD EF GH IJ KLp p @P ݴ M N O P Q R S T U V д W Xq YoZm [k\i ] ^ _ `ap p @P a_b c d e f g h QiO Mj k I l mCn Ao?p =q;r s7tp p @P 35u3 v1w/ x-y+ z){' |%} ~
p p @P ^ t Ĺ 4 6 t t C p p @P
t КLN Rt% 0 ܶ 2 ؙ M V Ф: ܶ4 p p @P 8 t- k
" 8 :
z z 7
p p @P ߴ ( v
ܗ 2З08% xЗ0 8xܗ 08 x 㺙
p p @P
Ŵ v❸2v
!O zp p @P 5v
ؐ ِ ڒ
2 Ր ޒ @ 8v 7 Чt p p @P ` v z :7 亟 )) : 0 t 7) p p @P 2ວ 7 ) 8 6 4 8 64 t 7 p p @P 5 @ t 7 t 7 t ẟ ẟ
p p @P t ܌یՏ 88 v v ܶ 6 p p @P 7 t Ր ݐ ޒ 5 r 70 t r p p @P 77 rວ 7 0 v r Ē! 7 ܺ Op p @P b O
O O
к к
p p @P ܗ: T zz p p @P
v' v ό F t p p @P Ÿ
p p @P
z z p p @P 9 *J ܶ2
k z
B/ t : 6
:6 vĿ 2Fp p @P d7
Đ! ܷ <ؙ ȸw 6 L p p @P ܶ4 z Rp p @P Ϻ
t 7
ú ºܶ z: p p @P Ĵ ´ º #
2 ,!! !,! ! Ѐ p p @P vƺ Ʒ
::z :z ´ ô :p p @P ; :O :p ú º 9y 9y zp p @P f :z 9 X :
ǫyz
w
w zv p p @P 7
9:O 9,! :O ! ܶ0z ܶ0z v
ȷp p @P t 7
y 9:O 9:O ܶz 0ܶz0 p p @P ´
Q% z´ P 0K 2\
и/ 75 "=2 N
! и p p @P #7% .2 ?
, Ƹ 7
p p @P = ܖ 6ޖ4 Ȟ ϐ ( = 2 0 . , * 9 7 5 3p p @P h N / 9 7 3 / J ܌ ٸl RX ] d ]= p p @P ŸXO ?ϸE 8K 4* + v 4 $ )/ 0'p p @P Ht Hʹ Yˌ ̺ʹ p p @P 8( 4 v
2 pzz O 7O ] # p p @P
t 4p y t ( ȷ w p p @P
? : x x
4 k4 8zѴ ܕ6 ޕvp p @P
j xt Ұ 8'x" Ӹ 0
O ED
v 90p p @P
zyI E ئ v ӸT ئ O 7 Zp p @P
<溟 x1 v ܶ v Rv7 6 p p @P
r ܶ4 ޣ 7 .? t 4 F y!6 OQp p @P & Ÿ@ 5 p p @P Aȷw O |OG q p7 ެP S
ĸp p @P l4 I ܶ 84 a :zո t$ =
p p @P
. - ̌ ǰ ƾ ľ ܶx 9$ p p @P « 854 :x 08 4 8&4 8
4 8 4 .8T x8 ʴ 6 8I4 $6 Ŀ2p p @P 6 6 t т 8
6 ȷp p @P ָ n ˂ Ƹ} ¸y = : ܶ 6 v p p @P C 㸝 8 ȴ Z x
8 !6 A 2 p p @P n8 ܶ 8s6 xt8y )
B 4 # c= p p @P U ȷ ĺ☺ t=
t 7D t 7) t 7) k4 6p p @P ܟ 6 67 ִ ˌ =` $ ɴ p p @P $ ƴ $ t jv t t kv ^T p p @P
+ + v ^ t <$ E7+6 D)=p p @P
E $9k
t* 6 , 30 . 8
G > ;Ap p @P
p5* ! 2D P t H t (p p @P
ܶ v*6
( 6 *( ȷw* (w
L t p p @P
T t X YZ[ \ ] ^ - . / LLLג t lp p @P
X Y Z [ \{ t\ гv2 Xp سY سZ س [س\ h t гt p p @P XY _t 9 XՐY Zג[ K Rt XY C Jt вv 6 # L رp p @P G ذY ƺ Z ܿ6 в80 t б vȺ Ȼ ر ذ YXp p @P r 5 X 4 E^a E G9^ P PQo R| R+Z@W ^ WEp p @P Z@W Ws ^L ^ ^ _ h^< id sV t *< *< itE߮ S_Y+S_ tEN EӮE E`G9 G98L M L p p @P L K L KLM MlP RCR RR RvlR CRNR eRLV ^Y+ NY+8X#p p @P IXl r id isLgݩ8 ix ie u_ _| WN R Rvt RZ@Wvt X p p @P tȝ l ܥ 끼 l Z@ 𨽁 lj lܭ1 ܭ ܭp p @P Lө8 V8W 84 3*l ~ ZN SSL SLSIT SSIT lp p @P Ll WZ@ pЭ C Tx ee `®ܨ pEeE k,E_Xp p @P eXk, X_ 6l LĀ ʮR 6 Eߩ8i tlV CNv _ 7p p @P W E L Ll TNY TS LSITS SITS SLL pMe K+TMp p @P KITM` LMԺ$ !Z@M ' V l ߇` q $ #
;R [[[^p p @P vbu{ kfpx 500( (( 5 (( ~ p p @P ,,, ((3 @((( 0 M(( ))
p p @P (c F % o
(M( ((( * r m D ]
p p @P
1
E
P
K ,
* a 1
U 7N
OH
'
p p @P " JO
=
@
@
4 K ) p p @P M p p @P x
J O
=
@
@
4 K ) p P P *K,I8 P P *N,COBPH6,,,B P P *K,I17 P P *K,P8 P P *P,F P D P PHASE7ٮ DECK-ID A07 COBOL 1.0 SUMMARY-137D p @P
d k p p @P + 0 00 @ p p @P V LSFSWS CMCSRSWS FS DAT A NAMES DE FN p p @P REFERE NCES DD LOC DI SP SIZ E BAS E CLA SS p p @P **** * NO E RRORS p p @P p p @P p p @P - DATA SIZ E = WORDS 0 1 2 3 4 5 6 7 8 9 A B C D E F -W - p p @P X LINE CO L ERR OR CODE ERROR MESSAGE S PRO CEDURE N AMESLOCN REFEREp p @P NCES **** PDEF GROUP AL PHABETIC ALPHAN UMERIC NUp p @P MERIC PACK ED DECIM AL BINARY INDE X DATA FLOATINGp p @P SHORT FL OATING L ONG EXTERN AL FLOAT ING AL PHABETIC EDITED ALPHAN UMERIC Ep p @P DITED NUMERIC EDITED * 6 83 3#1, 38b1 32 6 6
vp p @P / 2 v
6 9 d!>) 1 61 1v 1t
11 1 !1p p @P Z4 1 5 6 6 s 3p p @P 56 638; 21 2 1 1 2 2
; 2 ; ;1 2 p p @P s ;21 63 v82 332 1 w 12 2 wt ;3 8T p p @P K X v
< 7 sس
xv
buvw 6b lp p @P 1?Њ6 ?6 2 o
8 v 6 6 Њw 3
8P b X
b kl p p @P \jl ? 2 2 6 2 ;x8X 6 w 2 t
!
c dp p @P e! f"g#
( )* bl b t 2v
p p @P #D 2 F6 v { vw l s ^ X - 7R t
Е t -t p p @P ݫFr J t4 s< ,H4 6 h< dC 5H 9 P OSN p p @P } s Z
4 ;+
tC b:p p @P 3ILOC BZ B PPGMOUT 7WTREAD SLICUP PREADR -OPENFL C7MAIN CLOSFL ATTACH B P t P GLOBL$ DECK-ID F31 COBOL 1.0 SUMMARY-132 t t @P0 1012345 6789 12345 67891234 56789234 t t @P0 56789 0 0 t t PGLOBL$ t P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P 7COBVT1 DECK-ID B39 COBOL 1.0 SUMMARY-132 J r @P r & @P + & PCOBVT1 C7MAIN r PC7DLIX 6C7WRUT 5C7RDUT 4C7BSUB 3C7BADD 2C7BNEG 1C7CVBP 0C7CVBN /C7CVPB .C7CVPN -C7CVNB ,C7CVNP +C7RND *C7LDFC )r r PC7LOAD (C7BLD 'C7SUB &C7ADD %C7DIV $C7MULT #C7NEG "C7SCRT !C7STIX C7BTST C7TEST C7WRIX C7WRSQ C7SZRS r r PC7SZJP C7STO C7STE C7RWIX C7RWSQ C7RDIX C7RDSQ C7PFMT C7PFM C7MVG C7MVA C7MVFC C7GOI C7GO
r j PC7COMP C7CMPG C7CMFC
C7CMPA C7BSTO C7BCMP C7BLT C7BEQ C7BGT C7BGE C7BNE C7BLE C7ALTR j P J P ZC7BLD DECK-ID B01 COBOL 1.0 SUMMARY-132 J r @P
hN JhL hH" hJ" JhG" hE 3: 9? #
h23 T V O M O P Q 1 )' r h @P +
H% 2
f"$1
hh "hh T R M
f" b 0 h @P V
PC7BLD
PMP10 ?C7MOVE C7RCE3 L P J P ]C7BNAR DECK-ID B02 COBOL 1.0 SUMMARY-132 J r @P XTHXR H XOH XMdl d bH T 0 !
hhT X1X/' "f"b r r @P +b X&df" db X HX H T X f" b"
2
d 0$ r @P V " " 2 PC7BADD C7BSUB C7BSTO C7BNEG .C7BCMP 6C7BTST ?2 * PBINCMP ;BSTORE DBLADD C7RCE3 C7RCE2 5* P J P "C7BRNH DECK-ID B03 COBOL 1.0 SUMMARY-132 J \ @P0 $ 1 1 ! ! 0d \ 2 PC7BEQ C7BNE C7BGT C7BGE C7BLT C7BLE 2 PC7RCE2 !C7RCE0 P J P lC7CMFC DECK-ID B05 COBOL 1.0 SUMMARY-132 J r @P hX hT ""hR hNK H "'hS T i h@" "h>hI h96 82X& r r @P +1h3X" $ +h'*h& &A%h$ $!h! - h h X
d l 0 l T [ \ ^ _ r @P V Z ] @P i `
PC7CMFC
PMVALPH CMPALN QC7RCE0 N P J P SC7CNVT DECK-ID B07 COBOL 1.0 SUMMARY-132 J r @P
h
h
h hT / h h X2 h hT h h T r l @P + X 0 ` (
hT D 3 %} h h T l 2 PC7CVNB C7CVPB C7CVBN C7CVPN C7CVNP "C7CVBP ,2 2 PSTORE @DECBIN C7PACK (C7DUN BINCON OC7RCE3 2 P J P OC7DCAR DECK-ID B08 COBOL 1.0 SUMMARY-132 J r @P h h h T hh T ( r b @P +(
h hT ("
2b
% hT b J PC7ADD C7SUB C7MULT C7DIV C7COMP C7LOAD C7STO $C7NEG =C7TEST HJ R PTESTZR LSTORE 9LOAD COMPAR DIVIDE MULTPY SUBTRC ADD C7RCE3 C7RCE2 ER P J P EC7LDFC DECK-ID B10 COBOL 1.0 SUMMARY-132 J r @P " h5h3" h;
h,+6 n"h#F
T C !h 3h r , @P +hT 3 5 ` : , @P C
PC7LDFC
PC7EXIT DPACK -C7RCE3 2 P J P C7MVCM DECK-ID B12 COBOL 1.0 SUMMARY-132 J r @P h hT yl "ha" h_h` l"hZ" hXhX\ q r s t u vL M1 H r r @P +H" hCaFHD B?h>\ s t q r v u X4h13 h03h1 0 `X \^ q r s t u v k" r b @P Vl"h " h hHT x
h h " h
l" hh z b l @P %h " h l"h h "h l"h hT q s u v̢ l l * PC7MVA C7MVG
C7MVFC
C7CMPA =C7CMPG * * PCMPALN C7MOVE MVALPH `C7RCE3 C7RCE0 * P J P 2C7RND DECK-ID B13 COBOL 1.0 SUMMARY-132 J r @P "3
"" J h!
_h ( h h "
] h h T ) - T ) 1
r @P + ,/
PC7RND
PADD LOAD C7RCE3 ( P J P YC7SCRT DECK-ID B14 COBOL 1.0 SUMMARY-132 J r @P
hPhQ
hPhL MFHX% SDhC DDC l "8h7 Ah8" Af"/ ζ"f" .b r r @P + l h#l" h!" 2 2 h
". r @P V
PC7SCRT
PC7RCE0 .
P J P uC7STE DECK-ID B15 COBOL 1.0 SUMMARY-132 J " @P HHHm HZT " 2 @P %
" = 0 $ T 2 l @P gL "h$K" L" Jh LD" hL" !L" L" "
U "
c g l @ @P J+- CRDB., / 00 JhD hT @ 2 @P b G
d g lh h T 2 r @P t H
hx
*ht .,h ,.h
hwhthq hqL"` hxTw"hl L" hq
hi
hXF r r @P Y]" "O "H $ 222228=== =<U" C8 LO"4 44 r b @P 2M" $$ O "h*
h) U "' A Q O "
- q
+O" b @P T @P $ - + 0 r @P w
a
-h U" O"
O"
h U"O "U M r r @P 0" q
O" O" hR CO" ȩO" h̴ f ș M"
C r 2 @P [
Ȑ7
M 0" T 2
PC7STE
" PC7RCTLkC7DUN rTESTZR
SIZERR `" P J P C7SZFG DECK-ID B16 COBOL 1.0 SUMMARY-132 J 6 @P
d d
l
l 6 PC7SZJP C7SZRS
PC7RCE2 C7RCE1 C7RCE0 P J P
d
lT l d f l l\ m
n t t @P f t t @PoT 4 An 0 T \D T t t @P \ 2 l F X \ T [ t t @P D I d " \ 2 l X\ \ T t t @P0 \T L D T t t @P T 2
L
L
Ά n 2
t t @P
!
L
d H d쒆 2
!
F 0 2T [ d A l t t @P A o t t @P0J l
l
`T hT ^
ݰ t t @P0ud P l l%D P T t t @P T l`
D T t t @P D
n
` P T A T L D T t t @P T d lT E t t @P J t t @P + t t PC7WRSQ t t PINCSTKpWRIT17 "ADDT30 0WRIT20 9C7RCTLC7SEGO C7EXITfC7MOVEC70IOS t t PC7WRSQ t t P C7RWSQ DECK-ID E83 COBOL 1.0 SUMMARY-132 t t @P d 0 T 0 "n 0
d D T t t @P0 h d " l K d d 0 9 l E%
D C%
D DT t t @P B t t @P ET t t @P K h `T iT ^
X
D uT t t @P v
l X T g ̐ lT F t t @P t t PC7RWSQ t t PINCSTK UPDT26 C7SEGO BC7RCTL C7EXIT C70IOS t t t PC7RWSQ t t P /C7RDIX DECK-ID E69 COBOL 1.0 SUMMARY-132 t t @P Gd 0 T 0 ]n 0
d T @ d c
!
d d
!
d e t t @P / @D =T t t @P > G D FT t t @P0 G h οd ] ̼ l
@ t t @P ] t t @P f h Υd D %
h d ݓ d ݎd E
D T t t @P * t t @P l l d d
d 0T 0 n 0
d
t t @P b
L b
D T t t @P0 l d l
l lE
D E
D %
D T t t @P * t t @P t t @P f t t @P "
!
d "
!
l "
!
h L l t t @P C NT + l b l l T Ԁ d 0T t t @Pn nd l E
D E
D T t t @PT _ d d l T J, t t @P t t @P ܪ̩l
T - d ' T .
%D )l t t @P
!
l
!
d ( ۬ @ T T ] D T t t @P t t @P 0X l l lT t t @P ! t t @P *
t t PC7RDIX! t t PINCSTKlREAD14 lT Sn
l
b
D =T t t @P >h
b ξd S̻ l t t @P S t t @P X /
!
hd L v ̨ lT d T ( t t @P n̒ d l E
D E
D T t t @P T s 0 d 0d l T 6 t t @P t t @P l T 7 T 8
@ D T t t @P ̸l L
!
d 5
!
T ST " D T t t @P ̒l D T t t @P X̅l 0 d T t t @P / t t @P6
t t PC7DLIX/ t t PINCSTK DELT59 READ15 T t t @P ?d M l t t @P M H t t PC7RSKY M t t PINCSTK C7CHKY = t t PC7RSKY t J P eC70IOK DECK-ID B27 COBOL 1.0 SUMMARY-132 J r @P
h> H; h76 4 .#
'( !X6h$ 00 Q" 1 r r @P +f" @ h0
- a"t e" 00000000 99980030 21212223 00 9110 h" r , @P V
" 3424 , PC70IOS C70IOI P J P C7ULRW DECK-ID B20 COBOL 1.0 SUMMARY-132 J r @P XY, " ' " XX
X v %F "#e"8
Xd"> e"0 X< ," '" H,T S r r @P +X8#"
XK a ! 1 hA a"#e"
XA 5 "e"Da 3T r r @P V `
L l "
H!HB h8 b bAb
b h\ Y r b @P h h hh hH
h
@
sκ g"ȶ` a b PC7RDUT C7WRUT PC7RCTL OC7RTIO RC7EXIT ) P J P ~CONVBP DECK-ID B41 COBOL 1.0 SUMMARY-132 J r @P &hd Fhc " h_ 3h\
hZ hV`
C B`" r r @P +r XX' eXA X! 0
h-
"! h,H, h+&h*F h)fh( r < @P Vh' ` < @P v k
PCONVBP
P J P VDBLADD DECK-ID B43 COBOL 1.0 SUMMARY-132 J r @P hQ hO K G hF" pe"2? a-: 75 2
2" y1 r r @P +N
:
E
QL b h"a2 aE"+ د r
PDBLADD
P J P (MP10 DECK-ID B50 COBOL 1.0 SUMMARY-132 J l @P h h " H(
H/
l
PMP10
P J P jC70BCN DECK-ID B21 COBOL 1.0 SUMMARY-132 J r @P
h] "h[ W O"" hShR "" "AAhC "E" 3
@h= "
h87Ch6 r r @P +"-- h/" h5h4T g ` W ` h f
h+#'! h' d j T X ]T 0 _ b}
b
ت r & @P V 0 \ & @P f b
PBINCON
PCONVBP MLOAD IC7MOVE 6 P J P +C70BCP DECK-ID B22 COBOL 1.0 SUMMARY-132 J r @P H&" f" bH " f"b T ' ( ' ( ) *
$ 0 $dl r
PBINCMP
PCMPALN
P J P C70BST DECK-ID B23 COBOL 1.0 SUMMARY-132 J r @P H5" e h#Hd " ha "Jh^ "[h[ hZ R 1 N F hT r r @P + $
d 0 5<
T } T j n i)
h2 +h1" h1h0( $
h& &
-
h r T @P V h
h h #
hhT i s o s t r 1 y w T J @P y c ' B? ; J J @P y c ' B? ; J
PBSTORE
" PDECBIN ;C7MOVE aBINCON 7BINCMP )" P J P C70CIS DECK-ID B24 COBOL 1.0 SUMMARY-132 J r @P Xr T f 0 Xg
_ ^Y Y
d $ \ ` " hB " h? r r @P +h?<" :h;
h< H
h5h504 ;""0 "n" n"h& #&; """ n"n "h r r @P V 1
l 2
l
l T `"h " " r r @P 2H " "2 H" h "h f" h h h\T n r r @P \ T f 3h 0hh \\ h#\ h $ !
0 r r @P ,
T -
\ 0
} Xr\ T } T Xm XdXq \ r r @P \h " Jh" h
\ z d 0
XM XB "hXZ XH X; r r @P - X2X?-XK- XQX/ X&X3 9h X/ 9h "
0b
0 b
r r @P X
d 0 $X
&h
Fh "" """h ( 0 % """ r ( @P " "
h "1 ( Z PC7MOVE CMPALN ADD SUBTRC MULTPY DIVIDE LOAD STORE DPACK DUNPAK-COMPAR9Z
PSIZERR
P J P C70DBN DECK-ID B25 COBOL 1.0 SUMMARY-132 J r @P
hm hohohoho hp" hmhh "h_3 !Z "T k Y2 6 T k
hPO(B r r @P +BhM3
R
hI hI
hH: 8 JhB4 h<>h; 0 T x {d 0 m
. h.
h.) ,!-' r N @P V!! "D h" T r 3 % N r @P v r
% dj ( "f" b% h
h h" ) H r F @P #
h
`l "" ÿ
Ő1 F F
PDECBIN
" PMP10 dSIZERR ELOAD $C7PACK " P J P C70DUN DECK-ID B26 COBOL 1.0 SUMMARY-132 J r @P
+h~ "h} (zz"
"
-hs hth| "hp" ho
hm
hk
hi
hg
he Jhc r r @P +haZ ^\hU ShY 0 T d 0 ?MG hLCD DD< >h:81 h6@T :` r r @P V1 0/ *+ .
% }"
} I} "}" 0F } " r , @P0 % ,
PC7DUN
PSIZERR 9DUNPAK Q P J P C70MPH DECK-ID B28 COBOL 1.0 SUMMARY-132 J r @P hz"" hu
hl
hj h
he
hc
ha Jh_ h]XY WYR hW
OhN r r @P + hS"" hNhJ T x } ~ 9 ? ;!2h= 32 1 h5+
h10$ r r @P V( F (# # 1 #d h`
0}"
r @P
PMVALPH
PC7MOVE 7
P J P C70PCK DECK-ID B29 COBOL 1.0 SUMMARY-132 J r @P "Hu "hs" hrhqo kho
hx j hu fhsc 131 D1 e T r r @P +_Mh] N\hLZ hX/V VD O=hM %K
I7 " 1 3?-h= /h:h. h: ! r r @P V
h3h' h3$ A h h)(
`F
T { h r @P
PC7PACK
PDPACK t
P J P AC70SZR DECK-ID B30 COBOL 1.0 SUMMARY-132 J r @P "" H5(22h3 "
1
)
* Bh,
h( h(&$
B
r > @P +1
h
2
% >
PSIZERR
P J P C70TSZ DECK-ID B31 COBOL 1.0 SUMMARY-132 J @ @P "("
0
2
d 0 $ % @
PTESTZR
P t P sC7EXIT DECK-ID E49 COBOL 1.0 SUMMARY-137 t t @P C7ERRM SG$$ SYSVOL 'd 00 # d
l 0d $ 0 h D m D nf t t @P . T oT 2 pT 5 q
d
d & d
0
Id
d w 0d
d T 88 r t t @P Y d h
l " f T H t t @P o t t PC7EXIT g t t PC7RTIO TPGMOUT e t t PC7EXIT t t P C7SEGO DECK-ID E90 COBOL 1.0 SUMMARY-132 t t @P P t t @P d ! d 2 , 00d 0 / l l D p0
0 L t t @P ?p8 0 L d 0E d
!
L l¶ d d
!
t t @P j L ¡ L
h LE E ؆
1 0 d t t @P0 "p0 ` d L D f T 0 2 T
d
lT T t t @P T D D t t @P
t t PC7SEGO t t PC7RTIO C7EXIT C7RCTL t t PC7SEGO t t P 8CNVSET DECK-ID E01 COBOL 1.0 SUMMARY-132 t t @P 012345 6789p 0
h D 6 D 7 ] L L( d" t t @P .H H t t PCNVSET - t t PCNVSET t t P INCSTK DECK-ID F26 COBOL 1.0 SUMMARY-132 t t @P0
2
T
t t PINCSTK t t PC7EXIT t t PINCSTK t t P R9DRTN DECK-ID F29 COBOL 1.0 SUMMARY-132 t t @P0 " t t PR9DRTN t t PR9DRTN t J P STRACE DECK-ID B56 COBOL 1.0 SUMMARY-136 J `P 0 @P Hh
j
qh 0
PSTRACE
P J P READ09 DECK-ID Z04 COBOL 1.0 SUMMARY-132 J r @P T ` # T
# T
. ;T 3#a r r @P + 5 T # T 1 . :*a / 0 B2a r r @P V2 Db 2 %1 b Xw 2bD bA 2
r r @P b g aBH,HW hP,
hT 3 p 7'a Ϡ2 h=1D r r @P h A 4 h hT *(d hT
b 2 Db 0 r J @P b 1 T Db T E J PREAD09 READ16 * PERRPRO STRACE R9DRTN ROOT44 ROOT43 * P J P READ12 DECK-ID Z06 COBOL 1.0 SUMMARY-132 J r @P T ` # T
$ <9 6 T 9 6T r r @P + ?/b 3# aT E 1 Ϡ2 hh
A h r r @P V hT Ab
"Db 1 b r r @P 2 D b A 1b 2 h hT Y B 2a3 )h h r r @P h ohT ( ooQ- y+ @ 0b" +B 2a (: *aT 8 r R @P ' 3#a F A !7 b"D b M R PREAD12 READ14 * PFMGETS ERRPRO (STRACE R9DRTN ROOT43 * P J P READ13 DECK-ID Z07 COBOL 1.0 SUMMARY-132 J r @P T ` # T
3#a T % & 'T % . r r @P +, T # O b ! X )h ( H r r @P V oh
hT ( ooQ% ! % @0a 2 %>. a 42 r r @P :*a ? /bDb b h h hT
2 D b b r @P T P PREAD13 READ15 * PFMREAD ]ERRPRO /STRACE R9DRTN ROOT43 * P J P WRIT17 DECK-ID Z08 COBOL 1.0 SUMMARY-132 J r @P T ` # T
3#a T # T - 6T r r @P + 1T !! b Db 1b r r @P V*h* $ ah$ h
hT * e 7'a h
Π1h
A h T r r @P b b
0 A
1XT 9 f # A2
"f" r " @P b ! T " PWRIT17 WRIT24 * PERRPRO jSTRACE R9DRTN ROOT45 ROOT43 ~* P J P WRIT20 DECK-ID Z10 COBOL 1.0 SUMMARY-132 J r @P T ` # T
% T - T 3#aT r r @P +1 T ' ! 1 b 8(a T / A 1bD b A r r @P Vh a h A hT b
0 A
2 XT G r r @P b b B8a5 )h 5 h oh a hT (
oo %A 1a %:* r @P a 3#a PWRIT20 ADDT30 * PFMPUTS ERRPRO STRACE {R9DRTN ROOT43 e* P J P WRIT23 DECK-ID Z12 COBOL 1.0 SUMMARY-132 J r @P T ` # T
6 T / - ) , T 3# r r @P +aT 1 ah hh
aH 2hT h
r r @P V hT M
)h oh h hT ( oo T - & A1a r : @P ! % :*a %= -a : " PADDT31 ADDT32 WRIT22 WRIT23 " * PFMWRIT oERRPRO %STRACE wR9DRTN ROOT43 Y* P J P UPDT26 DECK-ID Z13 COBOL 1.0 SUMMARY-132 J r @P T ` # T
B T , T 3#a / r r @P +T ? /a 1T ' ?h
a H!hT o aH 'h r r @P V" Q"
H " T - 3 ;+a r r @P 8(a b A1b Db b h h hT J r n @P )h h oh T ) o b2 D b? bo h:* a n " PUPDT27 UPDT28 UPDT29 UPDT26 " * PERRPRO fSTRACE 9R9DRTN ROOT43 FMUPDR * P J P jROOT43 DECK-ID Z17 COBOL 1.0 SUMMARY-132 J r @P Hdd dh]] d dhU T %r J E" 4hE @ + r r @P + ; 5 2
H/ H-+ (! !n!
r : @P VةF A h
& Ah e f : PROOT43 MOVE P J P ROOT44 DECK-ID Z18 COBOL 1.0 SUMMARY-132 J f @P #H T a#H # 2 1 b> .b f r @P ' T Q;h2 h0> b# $ &1 - N , < ,b
01 r r @P R^ >.b T N _Z ". " 2" 8 . . , r r @P }?/b $ T [ -/ Ҡ @ 0b" ,T >.b
h r h @P
bXT * JX b B2b b b h
PROOT44
PERRPRO STRACE P J P ROOT45 DECK-ID Z19 COBOL 1.0 SUMMARY-132 J H @P #H T a#H 1 A b H r @P h9 A b> .bT ,Q;h) >b # $ 1 1 A1a r 0 @P F03
1< :*a T N V > 0 r @P W " ." 2 " 8 . , $A 1aT R A1b ?/ r r @P b 3 T v : *a A1b 2 Db b b b T ) r
@P R
PROOT45
PERRPRO STRACE P J P ERRO46 DECK-ID B46 COBOL 1.0 SUMMARY-132 J @P PERRO46 ERRPRO P J P RDELT59 DECK-ID Z28 COBOL 1.0 SUMMARY-132 J r @P T ` # T
B T I , T 3#a '/ r h @P +T T ? /a )h
H o hT ?bo :*aT h
PDELT59
" PERRPRO -STRACE OR9DRTN FMDELR @" P J P LFMMV63 DECK-ID Z29 COBOL 1.0 SUMMARY-132 J r @P X XX XX XX XX XH5 h1A " h- h T l) ( l&% "h! r T @P +l l l T
@P K
J PFMCLR FMCLOS FMDELR FMGETS FMOPEN
FMPUTS FMREAD FMUPDR FMWRIT J R PFMCALL WRITER HUPDREC GREADR FPUTS EOPENFL DGETS CDELREC BCLOSFL ACLEAR @R P J P =KEYR64 DECK-ID Z30 COBOL 1.0 SUMMARY-132 J r @P T ` # $T
3#a# ( T + S
DR r 4 @P +
T , 8(a !A6T 4
PKEYR64
PERRPRO /STRACE :R9DRTN P J P ENDVT1 DECK-ID B44 COBOL 1.0 SUMMARY-132 J
@P
PENDVT1
P P *K,I8 P P *J,CMUCOM,$$ P P *K,I17 P P *K,P8 P P *P,F,3,COBVT2 P J P C7CJMP DECK-ID B04 COBOL 1.0 SUMMARY-132 J @P
PC7CJMP
PC7CNTR
P J P FMCALL DECK-ID Z31 COBOL 1.0 SUMMARY-132 J
PFMCALL
P J P (EXENTP DECK-ID A34 ITOS 2.0 SUMMARY-132 J l @P X X
` X X X X X X H
" H
!H HT ` l : PWTREAD SLICUP ATTACH
PGMIN PGMINT CHAIN PGMOUT : P J P aFMENTP DECK-ID F58 ITOS 2.0 SUMMARY-132 J r @P X% X# X! X X X X X X X X X X
X X X X X X X H7 r r @P +h
H/ 3 2 " 4` aAD e ! aa ݘ AA a a r " @P V V h ` " r PCREATE $CLEAR "DELETE OPENFL CLOSFL LOKFIL UNLFIL GETFCB UPDFCB RENAME PUTS WRITER READR GETS
r * PUPDREC DELREC COMFIL VOLUSE REDUCE * P J P QC7CNTR DECK-ID B58 COBOL 1.0 SUMMARY-137 J r @P hDHD C8
T = B8 h8
h56 65 1 ) d R "
h&h!h h " h " "% r r @P +Z 6 bb
0b
bX< " T \ = B " T QAV" r r @P V"2- 2""
h"( ۸ h\ = B K̪ `"
d S h{" " r r @P ) [ h ^h T NZ \] r r @P _`
`
iT dcx ah bhT c kT cf c h
Yh Xh T r r @P H STH
( sKTL B sC Z"/h hT \ $ r r @P "/ h h hTH "/h h hT L$ d ]
ahT r b @P- bdȽ` :
COBOL E RROR-COM MERCIAL PACKAGE NOT SELE CTED b Z PC7CNTR C7RCE0 LC7RCE1 IC7RCE2 HC7RCE3 GC7RCTL KC7RTIO pDMPTLKOMURIDX =MUTAB >ILOC BZ B PPGMOUT 7WTREAD SLICUP PREADR -OPENFL C7MAIN CLOSFL ATTACH B P t P GLOBL$ DECK-ID F31 COBOL 1.0 SUMMARY-132 t t @P0 1012345 6789 12345 67891234 56789234 t t @P0 56789 0 0 t t PGLOBL$ t P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P PAGDUM DECK-ID B51 COBOL 1.0 SUMMARY-132 J
@P ww
P P *PAGE P J P COBVT2 DECK-ID B40 COBOL 1.0 SUMMARY-132 J @P PCOBVT2 C7MAIN SIZERR J PC7CLUT C7OPUT C7STOP C7OPIX C7OPRL C7OPSQ C7CLIX C7CLRL C7CLSQ J P t P C7CLSQ DECK-ID E37 COBOL 1.0 SUMMARY-132 t t @P I 2 dT W >J l
hT a t t @P j >K
D
D D " D ¸ Ì L "
L t t @P § ] ȡ t t @P H t t @P d 0T 0 n d l %
D %
D T t t @P T ld l t t @P l
, T L
b @ pT 9 %
d t t @P
n%
d
f
D + T t t @P, <
9X e
h c 2 Y T =0 2 cT V =1 k
hT ` t t @P i =2
D
D D " D ¸ Ì L "
L t t @P § ] ȡ t t @P H t t @P d 0T 0 n d l %
D %
D T t t @P T ld l t t @P l %
D + D , , T 3Ԁ
퀌̱ d D t t @P - bL b lp M @ L
9 L
2 t t @P @Ԁ JX MT 4
d h L
D .D /
]
1 t t @P k
b
Lp ` ,P
PPd *p
@ t t @P + LD - bL b L b L A b
L
b
t t @P b
, b Ll Ll d쁂 b L b
L b T 8 t t @P
̐
D T t t @P T T K05 d *쀷 l T t t @P # t t @P 0 a t t PC7OPIX# t t PINCSTK OPEN06 OPEN07 (CNVSET hC7SEGO C7RCTLC7EXIT
t t PC7OPIX t t P 5C7STOP DECK-ID F07 COBOL 1.0 SUMMARY-137 t t @P
STOP RUN.
0
d d
0
d
d w 0d
d T 0 4 / h
l t t @P ," 1 T t t PC7STOP 2 t t PC7RTIO PGMOUT 0 t t PC7STOP t J P fC7ULCO DECK-ID B19 COBOL 1.0 SUMMARY-132 J r @P XO" , " * HA T K@ "='' ,e"!
f"
a %/
(b
X7T X( # r r @P +b '" #" b
b
X#
b
X h", d"4 3e" H h` r 0 @P V
L l h \ O h"
0 PC7OPUT C7CLUT ' PC7RCTL &C7RTIO JC7EXIT P J P C70CIS DECK-ID B24 COBOL 1.0 SUMMARY-132 J r @P Xr T f 0 Xg
_ ^Y Y
d $ \ ` " hB " h? r r @P +h?<" :h;
h< H
h5h504 ;""0 "n" n"h& #&; """ n"n "h r r @P V 1
l 2
l
l T `"h " " r r @P 2H " "2 H" h "h f" h h h\T n r r @P \ T f 3h 0hh \\ h#\ h $ !
0 r r @P ,
T -
\ 0
} Xr\ T } T Xm XdXq \ r r @P \h " Jh" h
\ z d 0
XM XB "hXZ XH X; r r @P - X2X?-XK- XQX/ X&X3 9h X/ 9h "
0b
0 b
r r @P X
d 0 $X
&h
Fh "" """h ( 0 % """ r ( @P " "
h "1 ( Z PC7MOVE CMPALN ADD SUBTRC MULTPY DIVIDE LOAD STORE DPACK DUNPAK-COMPAR9Z
PSIZERR
P t P R9DRTN DECK-ID F29 COBOL 1.0 SUMMARY-132 t t @P0 " t t PR9DRTN t t PR9DRTN t t P INCSTK DECK-ID F26 COBOL 1.0 SUMMARY-132 t t @P0
2
T
t t PINCSTK t t PC7EXIT t t PINCSTK t t P 8CNVSET DECK-ID E01 COBOL 1.0 SUMMARY-132 t t @P 012345 6789p 0
h D 6 D 7 ] L L( d" t t @P .H H t t PCNVSET - t t PCNVSET t t P sC7EXIT DECK-ID E49 COBOL 1.0 SUMMARY-137 t t @P C7ERRM SG$$ SYSVOL 'd 00 # d
l 0d $ 0 h D m D nf t t @P . T oT 2 pT 5 q
d
d & d
0
Id
d w 0d
d T 88 r t t @P Y d h
l " f T H t t @P o t t PC7EXIT g t t PC7RTIO TPGMOUT e t t PC7EXIT t t P C7SEGO DECK-ID E90 COBOL 1.0 SUMMARY-132 t t @P P t t @P d ! d 2 , 00d 0 / l l D p0
0 L t t @P ?p8 0 L d 0E d
!
L l¶ d d
!
t t @P j L ¡ L
h LE E ؆
1 0 d t t @P0 "p0 ` d L D f T 0 2 T
d
lT T t t @P T D D t t @P
t t PC7SEGO t t PC7RTIO C7EXIT C7RCTL t t PC7SEGO t J P STRACE DECK-ID B56 COBOL 1.0 SUMMARY-136 J `P 0 @P Hh
j
qh 0
PSTRACE
P J P JOPEN01 DECK-ID Z01 COBOL 1.0 SUMMARY-132 J r @P T ` #h T 3 #aT 7 4" &T r P @P + J T * A
! T 0 8 (aT P r @P J3# a )H
A D nB
b b
H: 3#b D fb b b D bb r r @P u2 @0b E Db B B 1 @ h TH r r @P X k Hb b
hh: b c H
h h nC
T E 7 h r r @P 8hT L X< h
hTH
h 8hTL r r @P @0b hh h h " ."H- Q r n @P !B 2 "Š 5@ 0b/
f"
n POPEN01 OPEN08 * PERRPRO =STRACE R9DRTN DMPTLK iROOT44 * P J P !OPEN03 DECK-ID Z02 COBOL 1.0 SUMMARY-132 J r @P T ` 2 T . - T D +)(' &%# T r r @P + 2 T * 1T 4 # T > (a"D bbbb r r @P Vb
/
B1
C a T H
B1 I
G T k r r @P ;+b
bD b
a $ h
h . H L h y h h v
h h
r r @P hT bbDb RD b d b b 1 " bb bD r r @P b
b b bb bDb bD bT #a 4$ bDa
r R @P (a #a T h 8h T R
POPEN03
B PERRPRO {STRACE
R9DRTN DMPTLK ERRO46 ROOT44 ROOT43 NTAP48 B P J P 4OPEN04 DECK-ID Z03 COBOL 1.0 SUMMARY-145 J r @P T ` XRA 12 4 1+ T 3 $ 1T = r r @P +# T ( 2& T 1 X @0b T 8(aT K r `P V r @P Y #
T < 3 #aT S T _ Dc c) c a A r r @P a2
ea5 ѳ- ,Ѵ Ah8
! T p &4 2
a ( $ r r @P S
DR T , *! A
B0 a ) h h oh T ( r r @P oH {o :% 3#a h b" (: *a $9 )a K$5! a5 r r @P AhñF T > 1" )h o h >T ( oH 8o 47 53 #a r r @P 0:*a # #a aH K
A Dn E bb Ud5% ad
U d7'ad
A r r @P [d6& ad D `b b b D b b1 E D b BB r r @P T g` -T ! 3#aT ` 8 &2 6T - r r @P X
1 T " T $ 7T # uX [T r r @P ! T `( 6 T * T X a$ @ 4$a T r 4 @P + BT U T , 4 F @P T
! HhD nH e cn X T F " POPEN04 OPEN05OPEN06OPEN07" 2 PFMCLR ERRPROSTRACE1R9DRTN DMPTLKcFMOPEN 2 P J P ]CLOS35 DECK-ID Z14 COBOL 1.0 SUMMARY-132 J r @P T ` # T
3#a T 6 T 3 a ! r r @P +1 1
2 b T Db h d H M r @P VbT PCLOS35 CLOS42 * PERRPRO STRACE ZR9DRTN DMPTLK PROOT45 9* P J P CLOS37 DECK-ID Z15 COBOL 1.0 SUMMARY-132 J r @P T ` # T
{ $T p. @/ + % r r @P + b/ +
bD b 2b T - T T M T r T @P VT Q T T W " h d c
h b T T @P v3a - .T ] T T u3 #a 8(a T
PCLOS37
J PERRPRO STRACE R9DRTN DMPTLK kERRO46 NTAP55 ROOT45 FNTAP56 ZNTAP54 TJ P J P CLOS38 DECK-ID Z16 COBOL 1.0 SUMMARY-132 J r @P T ` X& # T
3#aT < 9 6T r r @P +3a 1' 1 Aa h B1a5 )h 5h o hT ( 5 oo r r @P V )h o hT ( oo1
h T & p: *a Db h d r r @P | bT o T `X q T `X h 3 #aT V r @P 6T h 4 " PCLOS38 CLOS39 CLOS40 CLOS41 " 2 PFMCLOS _FMPUTS PERRPRO STRACE R9DRTN DMPTLK 2 P J P jROOT43 DECK-ID Z17 COBOL 1.0 SUMMARY-132 J r @P Hdd dh]] d dhU T %r J E" 4hE @ + r r @P + ; 5 2
H/ H-+ (! !n!
r : @P VةF A h
& Ah e f : PROOT43 MOVE P J P ROOT44 DECK-ID Z18 COBOL 1.0 SUMMARY-132 J f @P #H T a#H # 2 1 b> .b f r @P ' T Q;h2 h0> b# $ &1 - N , < ,b
01 r r @P R^ >.b T N _Z ". " 2" 8 . . , r r @P }?/b $ T [ -/ Ҡ @ 0b" ,T >.b
h r h @P
bXT * JX b B2b b b h
PROOT44
PERRPRO STRACE P J P ROOT45 DECK-ID Z19 COBOL 1.0 SUMMARY-132 J H @P #H T a#H 1 A b H r @P h9 A b> .bT ,Q;h) >b # $ 1 1 A1a r 0 @P F03
1< :*a T N V > 0 r @P W " ." 2 " 8 . , $A 1aT R A1b ?/ r r @P b 3 T v : *a A1b 2 Db b b b T ) r
@P R
PROOT45
PERRPRO STRACE P J P ERRO46 DECK-ID B46 COBOL 1.0 SUMMARY-132 J @P PERRO46 ERRPRO P J P NTAP48 DECK-ID Z20 COBOL 1.0 SUMMARY-132 J r @P XXXXXX XX, MOUN T XXXXXX ON LU XX, RI NG,READY ? HDR1 0001000 r F @P +100 YY DDD YYDD D 000000 HDR1 VOL1 F r @P o RIN G # " a# h+hN h*hN hJ r r @P D n!
q h h@ n
q n
q
n
n
nT ( o ' ? r r @P $$MOUN TS$$ n
q X" /2 .B2 a ) T ( s o hT s * r d @P h h hh hT ( s oX 2% <, bT ( o
H h T d r @P T . ""B 0F4 00h D+ NO h TL E r r @PB T !BH > (! 0T =- b * :* bT U T g D r r @P m'T A 1 * T D ( h C A`
h h
r r @P ` ` h E `
h h
` ` T p E KT j r r @P D4 1 . T 2 * T ~ D ( h C ?`
r r @P h h
` ` h E { `
h h
` r r @P `
/H b(R 4T B
h Qh Dh
h SH BH r r @P D
0hB Fh T ( C . T ) T a T i r r @P o ( ) V 8 h C ?`
h h
`` T r r @P \ l@ T l 1T X H T F U RT l T | B0FH B0F r r @P 00 H B0F 4Ȁ 00h T l %@ T y 0 T lT l - "h T 6 r r @P
*DT (T T 8(a T T T I T U r @P
PNTAP48
j PERRPROSTRACEFMDELR FMREAD FMCLOS FMOPEN ERRO46 NTAP55 ROOT43NTAP57NTAP53NTAP52NTAP58j P J P NTAP52 DECK-ID Z22 COBOL 1.0 SUMMARY-132 J r @P 0 Hoh Xlh HXgh
(h h !2
S
Q H0%A
h^ XJh r r @P 9
H XEhXB h d( h
( h
/ȱ n m"
$ȧ 6 2
2
hHȜ r J @P d- h+
h h "
h 2
ؒ J N @P h
hF 2
N
PNTAP52
P J P tNTAP53 DECK-ID Z23 COBOL 1.0 SUMMARY-132 J r @P d 0 hH hh h H0%A 0FhHш Hl
r r @P 9hƐ$ "
u h
h Ȼ 8h 0FhHȵ h hȮ n Ȫh h r 0 @P dȣ nȣ ȥh
hثȘ蘀 0
PNTAP53
P J P NTAP54 DECK-ID Z24 COBOL 1.0 SUMMARY-132 J r @P Dh h
h} h|y
B0FHf B0Fb 00H_B 0FH[B0F W 00 HTB0F r r @P +2 00 HL " hT }
F1LB V1h!G b
*D T _ ( T _ h T r r @P V 4 _ ` N EO h *EOV1 r @P PNTAP54 NTAP56 PROOT43 VNTAP55 ONTAP58 K P J P LNTAP55 DECK-ID Z25 COBOL 1.0 SUMMARY-132 J @P 6 r @P H L \ H h" a! HA h h
(h &h hh r P @P / a T` Hh A
Hh (hT Ⱦ P
PNTAP55
PROOT43 E
P J P NTAP57 DECK-ID Z26 COBOL 1.0 SUMMARY-132 J T @P a h l lT H $ h l u"% Al T
PNTAP57
P J P NTAP58 DECK-ID Z27 COBOL 1.0 SUMMARY-132 J r @P h hH
| HX
hX l
q"
d
*#C :r r r @P />
"
r <
H
E
A
a 1 " @Z {[lP}M] \Nk`Ka r r @P Zz^L~no | _m [ A B C D E F G H I . < ( + &] J K L M N O P r l @P Q R! $ * ) ; ^ -\/ S T U V W X Y Z , % _ > ? 0 1 2 3 4 5 6 7 8 9: # @ ' = " l
PNTAP58
P J P LFMMV63 DECK-ID Z29 COBOL 1.0 SUMMARY-132 J r @P X XX XX XX XX XH5 h1A " h- h T l) ( l&% "h! r T @P +l l l T
@P K
J PFMCLR FMCLOS FMDELR FMGETS FMOPEN
FMPUTS FMREAD FMUPDR FMWRIT J R PFMCALL WRITER HUPDREC GREADR FPUTS EOPENFL DGETS CDELREC BCLOSFL ACLEAR @R P J P ENDVT2 DECK-ID B45 COBOL 1.0 SUMMARY-132 J
@P
PENDVT2
P P *K,I8 P P *J,CMUOCL,$$ P P *Z P P *CTO, COBOL 1.0 INSTALL COMPLETE P P *K,I10,P11,L9 P P *Z P P *JOB,INSTAL,COBOL1 P P *CTO, COBOL PHASES 4/5/6 INSTALLATION JOB. P P *CTO, COPYRIGHT CONTROL DATA P P *K,I17 P P *LIBEDT P P *V,17 P P *K,I17,P8 P P *P,F P D P IPHASE4 D p @P
p p @P + p p @P V LINE VERB LOCN CONTEN TS LAp p @P BEL OP OPERAND COMMENT p p @P p p @P
+ 0 7 9 ? @ I } p p @P 00 ` 0 $
d ' P@P P 0 + ; @ j( X 2 5_W p p @P - P ? 0 p p @P X 0 0 0 p p @P ? ? ? ? ? ? ? DD XD FIT ADC NU M @Z{[l P}M]\Nk`p p @P Ka z^ L~no| J _'Om-/bc defghij, %;>?pqrs tuvwxy: ="#ABCp p @P DEFGHI )$ .<(+*&QR STUVWXY! 01 23456789 1 01234567 89 1234567p p @P 891234 56789234 567890 %( 953 < T U`= t 8p p @P /r 7 > M R G ɸ9 *t l;,:0p p @P Z/ . - : 4 w - p p @P . / 0
K t v6B ώ !H ς Rp p @P 6O $8/ H P'r R0
ޥPR 0
7 p p @P v! v v v p p @P 7 ɖ2 t v- &k(2)8 2'H6 66.v 26 ɶ 0@ZB Lv p p @P 1, r*v Lv ώ 7д T
0 "O' U %t p p @P \8 JL
# <= ;: F߹ ;6 ` 6p p @P 2 ; 6 v 6 v C 0: : 6 p p @P @ a
6
' 2 t p p @P ` FtD `H 084 p p @P N Lz w
p p @P 3ό v 0 8 p p @P ^&v 8 )Жz P! Ж t " p p @P ! 8v" F#' !" I:#' !$ %&' ( 4p p @P 2 N3:
pkl 4J8" 7 w w w p p @P w N 7 Ѐ T U
w ` p p @P
7Ѐ 7 Z` к) t p p @P 5 v6 `8v 8d6 X8x 7 *+ !
Bp p @P ` !"# %%#$ &'(
z,:) )) HҺ ),, !Hp p @P ) : z) ,z,v F) ؔ , z,:) Ozt N ) ) p p @P Zt
h 6## , 0# .x)v
PxK 8P%x p p @P v
\xB8G xv
Nx98>
hObz# xt
Tx*8/ , I Иp p @P Ӓ | Ҹ I * j -.
Ozp p @P 7t " 6 Ժ)z/B
,, :4 ) p p @P bt
B 6 `t TA t
PE t 0 4 14 2 43p p @P 8v $ 2%:) ' 2
r
" ݒ# p p @P 0 4:,@ z) & 8P4 0 :, 2 t ) &t & r&p v
& &p p @P Ű r % 0<& '4 I& v
w 02@ v 04p p @P c 7 ό Тv
r $4 4 Lz "t p p @P 94 't 'v! ^ v 4 Vմ e t p p @P d, t
b t w º ú ĺ ƺ Ǻ Ⱥ Ŵ t vp p @P v
v
& 6N7 9 9 6 v9 vՀՂ v 9p p @P B # : ,
z,t
t op p @P 7
)d h f
:Y BO vx 67 G8O p p @P vz6 7 = .O v |67 3$ O v~6 7 ) 20 ., ,, z,:)p p @P ;, vՄ 8 7, r 4 t ܩw 2^ F, ) : z) t -p p @P fξ O
t ٺ p p @P 6 6 v 6
6 ٹ v7 2p p @P 96 T4 U 4 1 v ϸ?
|! p p @P 87LΠ 4 v/ ,ؔ 7 6 Vь Ϡp p @P 4 4 6
6 4 66 ٶ p p @P
a " # ! ) rܭ VΏ1 p p @P
? ؔ :2z k ܰv3 к) ؔ p p @P
j
rܭT Ϻ* О 6w 4 6 p p @P
72 = P= ؔ ؔ ؔ ؔ p p @P
6} vd |6 Ìm fR vL2 U OT n 94 6p p @P
yO = vr6
4 n ݘ
Ӓ ݘ Ӵ t p p @P H t dp p @P k v > t d >t v ^ ݴ ڴ , < p p @P Ē xS xO 7 J7 + Va v
ܭό < В:2 z v p p @P t ذ 7 t M찔 -3 t ؔ ؔ M - p p @P
t 2DP ܡ% $ "7 76풶 = $k
t *v Vv 8tp p @P
E* H t ( Έv *6
( 6* (p p @P
p w* (w 4 . M
& T C et X Yp p @P
Z[ \ ] ^:v
` ̀ b7 C Jt v 6 # M
Yp p @P
҈ʘ Z̖ 6Ғ ˖ 80 t vҶ Ӓʏ ˡ Y
X ʔ˔̴ p p @P
5 X 4 XF x
O
H
8
K 3.p p @P ^
v
Z
P
}
d
o
,
p p @P G p p @P r p p @P p p @P p p @P p p @P p P P *T P P *K,I8 P P *N,COBPH4,,,B P P *K,I17,P8 P P *P,F P D P PHASE5CU DECK-ID A05 COBOL 1.0 D p @P
p p @P + p p @P V LINE VERB LOCN CONTEN TS LAp p @P BEL OP OPERAND COMMENT p p @P p p @P p p @P
1 0 7 9 ? I } p p @P - c 00 ` ` VW
d' p p @P X E T D N B O - + P U D B C @P 0 + ; @ j2Ww P p p @P
@ @ p p @P @ @ 0 @@ ` p p @P p DD ADC NU M TAPE0 1 2 3 ; ]p p @P < t k kv 6r Ѐ p p @P /7ܴ 6 x 8 @ t 86 7^ w 82 W p p @P Z1 ɔ ǔƬ' t 58A 5η н vՏ: 2 < p p @P - - ` tܺ x #v =5 -- - t p p @P - 0 O
- t
p p @P 6 6 v 6
- 6
7ڴ 3 3 Е.p p @P 0 v 54 շ x
x*w ݸtO 3l5 ` t /v t vk kk6
p p @P 1s b 2 8y* 6 '
6 7 8 p _p p @P \ n
XeV TR N nLJ F D @> <:p p @P 8 6 4 2 0 . , *!( "$# "$ % & '( )* p p @P + ,
- ./ 012 Е.0 3 -M 'v 6 U:c v, 4p p @P ݺ45v ի6' 0O@67 v+x_xG 8;8 O v 7 6 գ 8S+ .գPv 9:p p @P S5t խOv! :64 ; 7 8 4 Ց: н t Տ: +4 իt ?< 5t գ PO`6 p p @P ^t t 4 Ѵ @6 @t AvB w k 2A p p @P 0 '+ L>: Cvk 75 @t 868
x 7- p p @P : Ct - 6 W ƴ: +' v k:DzE vF 7 p p @P ߸ GH D Ig 8zJK Օw @8 @ՙs ø< Ie:L 2
t Dp p @P
M D Ig 8 u6K NzO N P "Q RSDp p @P 5KKI {T7Ӵ E@czU :DX M yE @U RIe:L 2 K7 p p @P `RD >7 \ /vU SI ve22 7 L D(:D 7 gT EtE p p @P R g8 K Cw Et C6 EF I g 8K
Ty R յt p p @P ŏK7 VW J>XY 4 Ŵ D@ Ovc 6e 6
g 6 - z40Z :p p @P >p %[ \t 92 [n t 7.4 \t %:=O ]5p wTv 5 6 p p @P ; ^@ @v_
* @ d Ev `
@O ,p p @P 7O T@t 1 z@w@ t y: ,%/ [۶ azt5 ,/
@ vBw_ bcV$p p @P b%O%& >(, мv vn k r <
t *]
t % O$z>8 / :6 (>=p p @P 4 t cd7
4z8 4G3e fgh V3h v4v 4H zWPúi jÔp p @P Y V U `
0@ 6 8 +M LD N@s ηzEz` LC @t 4 p p @P 㔷7 kꐷs zEz`E `90 @t 7 _8 )> ,8
v
8 64 )>8p p @P 4d dd 74
04 0x4
Cv
qkm rηE ` Ev p p @P 9Dt E xt E l t K yz Vp p @P q{ :|z}S Kc x
> 0zY z =G =~ jg i f p p @P VH Y
;
lXR
lS ME
O lP
jl7 z = G= ~ jgvp p @P ;z2v f 2$ W Y 7ܘ F/ ifH 8 7 S
p p @P fs T
ℌz vbz 8E 8C : F8zK 8785 p p @P @5s 5:6 %v :9T̺= N]= Y 8]3 9>
8 p p @P 4j : 4 t p p @P ' 2
r
" #_ \ A н vգn t ^E : ^p p @P e I нv աnǴ @s kx.t t ; v zq :zp p @P =ℰ6 Kq 0:6 zb: ℰ :c:]zK պEb zev # t cB]p p @P hcC] lY8 4 @kO vv L @z ٌg> zٌh >@9p p @P 9 f ڌ 4v z4 Օ W ! :X:0 ºYG9 9ef X,9ºi jH/ ĺݸsp p @P 9x8 ٺiºY @ w :b:c 4@ ڴ9t ׆ot t 4 p p @P 2 i 54 | B] tv B] qr ' s|p p @P
FK
E :` 7 @e 2E` lwD Δ C v uv Dκbp p @P
?lv k 4 : Ѐ e
L 4 @z 0 77
04 ,!p p @P
jδ ΔE Xuv D bIv
v DN I{l O 4 : :Cp p @P
z 46 Ѐ e<4 7
={ v L <4 :: Р :o | p p @P
w
{,! δ O t Cwuk k{s Cc 4
E
@6 vp p @P
k
I :DO
0:Iy8 TO
0 :Iukk{ 6T4 D q 4 ОzP 0 0p p @P нv k. 4 ^ 1ݸ g8(6 qt @ e8.6j t :Y D Ѻ41 A p p @P A4 d˺d 44 4 & zRݹ v &zR ˸ֺ ִ & O@ʹ/p p @P lzL 9fOez xxҺx ⌴X 86 : 6
~OO H 4 4i Y =>p p @P \v v tv\r vv 92 [8 02 nr = 1 1 գ 9 9p p @P 44 1.n 4 % яA A% @ vkkcp p @P v
0 !: nð`
-
6p p @P 6 O v @ 0 6 N@ 3 t A7 #< + Ѻ4p p @P C лv r82 = 4 R :Y 4 Y @xt H> ap p @P n ^ t I O H ^ !I # 6% ^C t CLv gkqv ʘp p @P 6 6 6 V 2 ʘ v O v5 : ) ^ẏI Ip p @P 8 8 Tϰg =0 = : ) v6 }O:H t e6 t e ϴ^p p @P >> 8 6 ^O /в6 kek k 6 Eb ιC 8{ vp p @P
F6R ~LH r dd6 p;T :VIk t D VI ^ ]p p @P
E8JI v 6
= EI P ]v N t էt6 v в6p p @P
p t
t 44 4 @
ՏT 6t ) v 4 p p @P
o ! k,!! O !: 6 v ocv Dl
V! t !p p @P
ƺY
X Y )t ?t ; v0 zKt 0zK @m> Ev! @ n>p p @P
4 @ o> @ @p> -4@t @4@ @q] #' #8 @
>:@:4 # ' " p p @P Ct 884 @ CrOs C w8+4 @ Cu Ov
_ @MA z4t wp p @P G@4 4 w &4 E C v83 "/ 01p p @P r2 :A 4 4 4d @@B @@ B @@@ H6 C Ep p @P E F G @@4 @ @ @ :@ O X P ^wD p p @P 0Rw @՛ Rt @ 68? 77 7 =:kz_ "," C Dp p @P @> ߸<ݸ: ۸8ٸ: 8ո6 Ӱ Ѱ ϸ24 ˸5ɸ; Ǹ<Ÿ= ømG S !:>4 p p @P , r -> 0D R > p p @P I UOT > "8x V (3Y ": x VW p p @P t 3 E Ct 8t ؚ t 2
p p @P 2
r
4 v w t w 4 p p @P ʸ :4; t 24 7 t Д 4ô t t p p @P 8 - 4 t 8 7 t 68 x )O= 4 p p @P 7 4 &v : Lv :zЩ:F ;؛ K 6& @ v ;p p @P K Д6 - :4 ; 464 @ ?@ tpR t v ?6p p @P v 6 ^ tt Ձl6 pRt @O k t 1p p @P 6
kr ( ( nt - 0 l%x v - r
ܽ2p p @P Rw n н 8O 68 4 @r pR8 ; t x
t p p @P ;; @t BkpR 8 9,l;x 9'x _ L 08&2 x ҔӔp p @P "Ք& $@2 8zbxr zcبԌ @6ب 8f0
k,28 x^R v p p @P x2; t2 6>; t t O8 s > t c p p @P L t
L t
t b c 4 L vB w Յw r Bw Յ 2w p p @P t $x 2I0بĤ ճv0 Ӕ t ճ v02z $ &tp p @P Ыv
02
r
'⛆ Bw ߏ 0 w' v!^p p @P $v 8 4 W ՟ 8%x a 2 9 6 & T6p p @P O U+ "9 # 8 4 v ? )p p @P z
} = ؚ . ؚ w
Ț 'ؚ ap p @P W 4
v . I3 $Gvp p @P о >! " 87 L 4 v/ , ؚ 7 p p @P 6 W # 0 4 4 0 6
6 4 3 6p p @P &6 a " # !_ A ؚp p @P Q T
v A ؚ
Yp p @P | i [ =P= 0 O t t 0 ؚ p p @P ؚ :4 Q P 2b 20 2[p p @P v/ v-m xm x v I y9 6
p p @P x9ϒ 1 v- 8xxpM Rc c 1 m 6m v6 p p @P (4 Rv 2 :4 6 zO] {UOT > "v W 1p p @P SA > 2
i2 2" 2" T v
W"# М2 # " p p @P ~m j y v FC ࣒v 6 4
p p @P ) L ) R 00
t p p @P 4 8 4 `4
4
Lt 6 t 8x p p @P 7 r
6 t | *4
t c 4p p p @P *W kt 4#
M 66
4 6
@v p p @P U t s 66y 4 6
4' !
p p @P ] 4 V v
J 8=4 q q v
v p p @P v ⻰O v 08"4 v՝O
v O
" # # # p p @P ֽ#
"
" v 6 q 6 :PL L p p @P i6v 4 8 $ 8H cq 1qp p @P , vN Ev XO\
v O]Y OG 4638 z8 v7 t )p p @P W7 t 6 87 5 t
2 87 5p p @P J- 8xF + t
ի 44 3v - ` $ p p @P ' 3 3 t S4 4 4
7 t kwvp p @P 6 t կ 20 t wk , c 7
d7 p p @P t - t 2D P $ 776 = $ k
t ۬*- p p @P . I t( < v*6
( 6 *( <0 w*p p @P Y(0w V
XMW ' L tvY 6"A XMW Yp p @P Z 6 80 #t v [ YUX p p @P 5 Z X 4
?
q o F
t
0 I Op p @P :
p % B
j p -
Q
\ 5S
_ p p @P
)k
^ K
)p p @P 0<a" . H } eY
W k
D
J
Z "p p @P [ Qf3 :v~ M
d
{ n Z p p @P p p @P p p @P p P P *T P P *K,I8 P P *N,COBPH5,,,B P P *K,I17,P8 P P *P,F P D P PHASE6^ DECK-ID A06 COBOL 1.0 SUMMARY-143D p @P
p p @P + p p @P V p p @P p p @P {
p p @P $ ( 0 1 7 d 00C7MAIN DMYSEGDB UGEXTRPB
d'@Pp p @P PPP P*T
0 + ; 5 ` p p @P - P ADC DD XD FI T PN LIT TM P ACC DECA SUB NUp p @P XM **
6
p p @P p p @P /0 +,-. p p @P 45 ! " #$% &' ( )* + ,-./ 0 1 23 p p @P [* 6
vՐ Ē p p @P / !> @ !>0 x>
v#ܶp p @P Z83 ЛPz0 ܛ83 ?v< 6' 80 750 z - &v 2 t p p @P $ ̎@ 6 7 4 @ 8 v 66 7 8 Ь t 6p p @P v
ȷ ƈ ެ 7햪 .@ v ܶ 0!6p p @P V O 7 @ 82 Ȱ 6 PP 7 p p @P 2
;
ܶ2 ܶ2 ĺ p p @P 1 ܶ2 Ļ
=6ܶ4 s 69Gy ب 7 p p @P \
!"p p @P # $ % & ' ( ) * + ,ͺ- . / 0 1 2 3 4 5 6 6 p p @P 7 8 9 : ; < = > ? @ AB CD EF GH IJ KLp p @P ݴ M N O P Q R S T U V д W Xq YoZm [k\i ] ^ _ `ap p @P a_b c d e f g h QiO Mj k I l mCn Ao?p =q;r s7tp p @P 35u3 v1w/ x-y+ z){' |%} ~
p p @P ^ t Ĺ 4 6 t t C p p @P
t КLN Rt% 0 ܶ 2 ؙ M V Ф: ܶ4 p p @P 8 t- k
" 8 :
z z 7
p p @P ߴ ( v
ܗ 2З08% xЗ0 8xܗ 08 x 㺙
p p @P
ȴ v❸2v
!O zp p @P 5v
ؐ ِ ڒ
2 Ր ޒ @ 8v 7 Чt p p @P ` v z :7 亟 )) : 0 t v
p p @P 7) 2 ວ 7) 8 64 8 6 4 t 7p p @P 5 @ t 7 t 7 t ẟp p @P ẟ
t یՏ 8 8 v v ܶp p @P 6 7 t Ր ޒ 5 r 70 t rp p @P 7 7 r ວ 70 v r Ē! 7 ܺp p @P bO O
O O
к к p p @P p p @P
v 'v F t p p @P Ÿ
p p @P
z z p p @P 9 *K ܶ2
k z
C/ t :6
:6 v Ŀ2F 7p p @P d
! ϐ ܷ < ؙ ȸ w 6 L p p @P ܶ 4 z Rp p @P Ϻ
t 7
ú ܶz : p p @P Ĵ º #
2 ,! !!,! ! Ѐ p p @P v ƺƷ
:: z :z ´ ºô p p @P ;: :O :p ú ú 9y 9 yzp p @P f :z 9X :
ǫy z
w
w Ѐ z vp p @P 7
9:O 9 ,!:O ! ܶ0 zܶ0z v
ȷp p @P t Ѐ 7
y 9:O 9: O ܶ z0ܶz 0 p p @P ´
Q% z´ P 0 K2\
/75 "= 2N
! и p p @P #7 % . 2?
, кƸ 7
p p @P = ܖ6ޖ4 ( = 2 0 . , * 9 7 5 p p @P h3 N / 9 7 3 / J ܌ ٸl RX ] θd ʸ]= p p @P ŸX O?ϸE 8K4* + v ɶ 4 $) / 0p p @P ' H t H Yˌ ̺ʹ p p @P 錖 8( 4 v
2 pzz O 7 O] #p p @P
t 4 py t ( ȷw p p @P
? : x x
4 k4 8zѴ ܕ 6ޕvp p @P
j xt 8'x" Ӹ 0
O ED
v 9p p @P
0zyI E ئv Tئ O 7 p p @P
Z<溟 x1 v ܶ v Rv 7p p @P
6 r ܶ 4ޣ 7 . ? t 4 F y! 6Op p @P Q& @ 5 p p @P A ȷ w O |OG q p7 ެ P S
p p @P lĸ 4 Ւ I ܶ 84 Ը a :z t $= p p @P
. - ǰ ƾ ľ ܶx 9$p p @P ´ 85 4 :x 0 84 8& 4 8
4 8 4 . 8Tx8 ʴ 68I 4 $6 Ŀ2p p @P 6 6 t 8
6 ȷp p @P ƈ n ˂ } y = : ܶ6 vp p @P C 㸝 8 ȴ Z x
8 !6 A 2 p p @P n8 ܶ 8s 6 xt 8y)
B 4 # c= p p @P U ȷĺ t=
t 7D t 7 ) t 7) k4 p p @P 6 ܟ 6 6 7 ˌ =` $ p p @P $ ƴ $ Ŵ t jv t t k v ^ Tp p @P
+ + v ^ t <$ E7+ 6D)p p @P
E= $9k
t *6 , 30 . 8
G > ;Ap p @P
p5 *! 2D P t H t(p p @P
ܶ v*6
( 6*( ȷw *(w
L tp p @P
ƴ T t X YZ [ \ ] ^ - . /LLL t lp p @P
X Y Z [\ { t \гv 2Xp سY سZ س[س \ ht гt p p @P XY _t 9X YZ [K R t X YC J tвv 6 # L p p @P Gر ذ Yƺ Z ܿ6 в8 0 t бvȺ Ȼ ر ذYXp p @P r 5 X 4 E ^a E G9^ Pׁ P Qo R| R+Z@ W^ Wp p @P EZ@W Ws ^L ^^ _ h^ *< *< itE S_Y+ S_tE NEӮE E`G9 G98L M Lp p @P L K L KL M璨Ml PׁRC RR RRvl RCRN ReRL V^ Y+NY+8p p @P IX#X lr id isLg 8ix i eu_ _ | W NR R vtRZ@W vtX p p @P t ȝ ǁl 끼 l Z@ 𨽁 lj l 1ܭ ぼ ܭp p @P ˘L 8V8W ܚ84 3* l ~ ZN SS LSLS ITSS ITp p @P l Ll WZ@ p C Tx ee `® pEe Ek,E_p p @P XeX k,X_ 6l LĀ ʮR ܥ6 Eߩ8i tlV CNv _ 7p p @P W E L Ll TN Y T SLSIT SSIT SSL LpMe K+Tp p @P KMITM `LM $!Z@M ܨ' V l߇` r
% $
< U^^^p p @P vaex ~nis {
3.. ))) 3) ) p p @P --- )) 4A)) )
. N) )' '
p p @P )d G & p )N )))) + r n E ^p p @P
2
F
Q
L -
+ b 2
V 8O
PI
(
p p @P " KP
>
A
A
5 L * p p @P M p p @P x
KP
>
A
A
5 L * p P P *T P P *K,I8 P P *N,COBPH6,,,B P P *Z P P *CTO, COBOL PHASES 4/5/6 ARE INSTALLED. P *Z P * P P * COBOL 1.0 SUMMARY-132 DEBUGGER AND RUNTIME ERROR MESSAGE FILES P P * P P INPUT=FLEXTAPE P P UTIL P P RELOAD,FN=,OW=,VL=,I=FLEXTAPE P ( 2 9 ! C7ERRMSG$$ P 999999111111 ( 0 RUNTIME ERROR 1: INVALID ASCII DIGIT ENCOUNTERED DURING CONVERSION RUNTIME ERROR 2: ATTEMPT TO OPEN ALREADY OPEN FILE RUNTIME ERROR 3: I/O ATTEMPTED WITH UNOPENED FILE RUNTIME ERROR 4: ATTEMPT TO READ OUTPUT FILE RUNTIME ERROR 5: ATTEMPT TO WRITE INPUT FILE RUNTIME ERROR 6: REWRITE ATTEMPTED ON FILE NOT OPENED IN I/O MODE RUNTIME ERROR 7: DELETE ATTEMPTED ON FILE NOT OPENED IN I/O MODE 0 0 RUNTIME ERROR 8: START ATTEMPTED ON FILE NOT OPENED IN INPUT OR I/O MODE RUNTIME ERROR 9: ATTEMPT TO RE-OPEN LOCKED FILE RUNTIME ERROR 10: I/O ERROR WITH NO IMPERATIVE OR DECLARATIVE SPECIFIED RUNTIME ERROR 11: I/O ERROR DURING SEGMENT RETRIEVAL RUNTIME ERROR 12: REPORT NOT INITIATED RUNTIME ERROR 13: PHYSICAL DEVICE ERROR RUNTIME ERROR 14: ATTEMPT TO CLOSE UNOPENED FILE 0 0 RUNTIME ERROR 15: I/O RETURN STACK OVERFLOW RUNTIME ERROR 16: SORT I/O ERROR RUNTIME ERROR 17: UNABLE TO CLOSE INDEX FILE RUNTIME ERROR 18: UNABLE TO OPEN INDEX FILE RUNTIME ERROR 19: UNABLE TO CLOSE SEQ. FILE RUNTIME ERROR 20: UNABLE TO OPEN SEQ. FILE RUNTIME ERROR 21: UNABLE TO CLOSE REL. FILE 0 0 RUNTIME ERROR 22: UNABLE TO OPEN REL. FILE RUNTIME ERROR 23: SEGMENT NOT FOUND RUNTIME ERROR 24: READ REL. I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND RUNTIME ERROR 25: READ SEQ. I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND RUNTIME ERROR 26: READ M/T. I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND RUNTIME ERROR 27: WRITE INDEX I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND RUNTIME ERROR 28: WRITE REL. I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND 0 0 RUNTIME ERROR 29: WRITE SEQ. I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND RUNTIME ERROR 30: WRITE M/T. I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND RUNTIME ERROR 31: READ INDEX I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND RUNTIME ERROR 32: SORT WORK FILE NOT DEFINED CORRECTLY RUNTIME ERROR 33: ERROR READING FROM SORT WORK FILE __IME ERROR 27: WRITE INDEX I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND RUNTIME ERROR 28: WRITE REL. I/O ERROR, NO IMPERATIVE/DECLARATIVE FOUND 0