?p ?h X K ?x + 8K 3+ 0 8 ( : ( K + : INX C3,PLLI7i&5pi&}`f 8 g?.(rMI
S ) H @ H y z Y' J7N65
T h H @5 H q x : $ j: H jH
$ j : " P b + L < l-> -8 1: @-< 2+ 4gg ge}g# INX INX p p 6 p p p p CO w gB,:0X6t2f S-mM& _8 S aJ||PZ6L@ K;5 W]6-m g?.(r}\i _
TXz}\i i< I$ M aJ|92kJ( mfY: $6NMH S: M2J G>n` I$P I$Pe'&I7 RD\[SN( 7
w J q* tj u* vj v < x, + 5 ( z+ = {+ =+ > 0 ) }+ @ ~+ @+ A < , @@ f *( jU( AH j d d D 5 *( ? f + K + K+ L H )5 D Q *( Z f U( AH fU(p AH j D + S @
+ % @ @ g -" 2B + Z @ + + \ + \+ V + ^ *( p@ B+ w@ A+ -" 2B + c @ + + e+ \@ B+ w w J r r J k* !j !S(p AH k@@ l "*( p@ B+ w@ B+ * #j #@ A+ -" $ $2B + r+ g0 + u\(p AH j+ v+ o %+ x@ B+ w+ &+ z '+ | .*( p@ B+ w .+ ~ /+ + 6*( p* 7j 8@ B+ w@ A+ -" 8 92B + @ <+ <+ + vU( AH j @ g@ B+ w@ A+ -" = >2B + @ B+ w@ A+ - C+ @ B+ w@ A+ - d D. E f J k@@ k E*( p@ B+ w+ @ H+ R@ B+ w* N*( p@ B+ w@ B+ * Oj P@ A+ -" P" Q2B + ,+ " g0( + /\(p AH j+ *( Z* j @ B+ 4 C@@ k *( p+ " 2B + C+ F@ C+ 0 *( p@ B+ w@ A+ -" 2B + I+ R + K+ W
+ O
+ O
+ O
+ O+ S
+ Q+ @ B+ w+ F @
+ *
j
*( p@ B+ w+ F@ B+ w@ A+ -@ B+ w@ B+ U(p AH j@ A+ -"
2B + _+ R
+ a+ h
+ c
%*( p
%+ e*
'j
'
(0@ + g+ q@ B+ w+ \@ A+ -"
(
)2B + l+ R
)+ o
*+ o
++ p*
-j
-+ \+ h"
.
.2B + t@ B+ w+ F\( AH j@ B+ w@ B+ d
/.
/
0 d
1 D U
1*( Z f
2@ B+ + F@ A+ -"
2
32B + +
3+ +
4+ +
5+ +
6+ +
7+
8+ *
:j
:@ B+ w+
A*( p@ B+ w+
G*( p@ B+ w@ A+ -
H+
I+ @ B+ w+ @ A+ -
J+
K+
R*( p@ B+ w+ @ B+ w*
Sj
S+
Z*( p@ B+ w+ d
Z+ #
[1@ + $@ B+ w@ B+ "
\+ '
]+ (+ ( " )
_+ *
`+ ++ , <
b, (, 8, 8"
b
c2B + 1@ B+ @ C+ =+ 7 p
c+ 6
d0@ + 6@ B+ @ C+ M+ 7@ C+ =
d0@ + 9+ -"
e
e2B + = @ g+ A g0@ + @ @ g+ A g @ g@@ k
f*( p@@ h
f0@ + E+ W .@ h&
g T D D@ E+ S
i1@ + J+ E h5@ L+ V&
i T E E"
k
l3B + S"
l
m3B + S"
m
n2B + UZ$ &
nD + V\( AH j+ v"
p
q3B + [&
q T G F .@ h@ C+ =
s0@ + c"
t
t3B + cZ$ &
uD .@ h+ -
w0@ + e+ -"
w
x3B + g+ W@ B+
x1@ + k*
yj
z+ -
{ @ h@ C+ ="
|
|2B + p+ g
}0@ + s .@ h+ m
}1@ + v*
~j
+ W4 A d
+ x+ h0@ + z+ h/ @ i& T G G 1@ + 0@ + + .@ h" 3B + h. 2 g+ @A @ g/ @ h @ i& d + + & T P& T P P&
T I H+ * P.@ i+ @@ k *( p& T J I\( AH j .@ h4 B" 2B + p + + :" 3B + "" 2B + " h0@ + "+ : + $ + ) # e. #@ e# e@ + + d f + - + .+ / H )5@ + 1 + 1+ 6 "+ 3 #+ 5 < &, + 6 < (, D Q (*( Z f ) f )U(p AH j\(`AH j @ h4 B" * *2B + @+ +1@ + C +U( AH f+ S .@ g g0 $+ L g/( H P& , T J JZ$ g/( H P& .D + S* 1j 1 @ g D + S* 2j 3 d 3 D 4*( 4 C@ C+ = g1@ + X 41@ + X+ j g0@ + Z+ @ C+ = 50@ + ]+ X 5 f 6+ j 70@ + a+ j 71@ + c+ h@ C+ = g0@ + f+ 80@ + h+ c+ j 8 f 94 E, <G>{ #p k k
COBOL FILTER HERE HAnH w
H y
p q r$H w$H qYO $H u$H qH y p w z$ H y< z$ H {< x& H |0 z& H ~0 xH w p x ,hg A H f H v 6X6p @$ H < z$ H < x *Q: Z?SOURCE FILE HAS NO DATA HA@
: H f$ j< U?NO IDENTIFICATION DIVISION HAX H kH@eH kH@kH kH@kS-mM& _8 Xk$ j< U?NO PROGRAM-ID H@p H kH@qH w$ 0u< r< k -@lp < "
j$ j< UH kH@wH kH@ H kH@%I$S;e'&I7 kH kH@H kH@w$ j< UH kH@}H kH@H kH@H kH@YH kH@H kH@ $ f$ f -8l?NO DATA DIVISION HA FI >9iiT( kp < O
j$ j< Up < Q0 jSPECIAL-NAMES. 0Q: \: Z CONSOLE IS TTY hQ: h: Z0 j< X CHANNEL (1) IS TOP-OF-FORM 0Q: t: Z CHANNEL (1) IS TOP-OF-FORM. hQ:
: Z -0k0 j< XI$ 8k$ j< UH kH@H kH@3H kH@9H kH@?H kH@EH kH@?NO PROCEDURE DIVISION HA0
*** T
T 5I' r50 "Xk$ j< UH kH@KH kH@'gR
&0 j j$ j< UH kH@uH kH@{H kH@p <
, j0 j< X$ v$ vH sH`Q U *XV: Z$ j< UH kH@-H kH@oH kH@]H kH@+H kH@cH kH@i*** T
9 T 5G? '0kC4QS:8 (kH kH@QH kH@WH kH@H kH@i?[s~+ )@k*** T
R T 5K3 P *@kH@k j$ H
[< z$ H
]< x& H
^0 z& H
`0 x 0 j< T:P< f, < j< X -0k, H k h
$, H k @ h
$ j< U j< V j< VH k @ h
$
j< WH Q h
0,
j< WH Q ` h
0, 0 j< T, *** T y T 5- H zH Q0 j< T, , *** T ~ T 5H@kH Q ` i
0< j< j j< WH k i
$H k @ i
$H Q h
0\ H Q h
0*** T
T 5 -0kH Q h
0 j< WH Q
j< W j< W( H $ z( H $ xH 0[H Q, [H [:86H Q: 6 X ?p @$ H < z$ H < x& H 0 z& H 0 x( H !$ z( H #$ xH [ 3x $H Q 0x & *Q: Z T 5$ j< U< fH f: : ` P
$: ` P
$p < 00 jp < 2$ j t 2@, , : H f, , , , : H f, 7 7
+ : Qf ]>e z]? }9gY7M&6J g'FJ "IE+ H p H H H ` H ` H ` H ` H 0 r H pH p H J H p H p "
b +
< =-> -8
: v-< 2+
gg ge}g# ( v ~ : 7 g` :6@ v> O@ v \ w8 :6 ?@ x+
6 v+
@@ v: :,~ @ A B A B d C+
+
J+
# R+
# Z+
# b+
$, 8Z$ & c "
D =b
%Z$ & e "
D =b
(# #@ h+ #@ g@ y+
.+
f@ y+
g# h0@ +
1+
f g1@ +
3+
6@ z+ +
6+
f h1@ +
9 h0@ +
=# h0@ +
< @ l+
+
= #@ h+
+ m0@ +
C@ z+
w# h0@ +
B+
f+
C+
6#
# g2D +
E+
W m1@ +
G+
N # g. #@ g#
# g2D +
L+
W& n T { {+
6 @ r @ s t @ u d u+
Q+
U @ x @ x y*( X* yj z@ |+
& ~ d +
`& T J& T J J& T } |& @@P Z$ & " D =b
_& d +
f&
T J& T J J& T ~ }4 x @ +
# h0@ +
j& T ~# h0@ +
m& T
1@ +
o+
v@ y+ +
s& T
# h0@ +
v& T
4 y@@ k@@ h@ y+
{+ +
~ @ #@ #@ h+ ` J r& T
+ r2B r+ ! d + J+ + # g. #@ g# g1@ + # j. #@ j# i# j3d + r J R@@ R )*( XU( AH X@ |+
+ 60@ #@ h+ J J# h0@ + ` 8*( fU( AH f#
# g2D + 8 T
+ # g. #@ g@ :0@ + #@ h+
# g. #@ g#
# g2D + #@ g& J d +
@ O@@ # g. #@ g# g1@ (+
+ @
+ $@ P1@ +
+ @
+ $T P0@ +
# # g. #@ g+
# g2D + U+ # q% U@ V#D q# q# q. #@ q# h0@ + # q& V#@P # h0@ + # q& X#@P 4 z@@ q& Z T
# g. #@ g" \ ]3B + " ] ^3B + " ^ _3B + " _ `3B + " ` a2B + + ! a0@ + + f b7 + + !` b1` + + $@A @# q% d c @ V#D q#
# g2D + !+ $+ @@ ` c*( fU( AH f4
#@ g# q@A @ d D J#@ q J& & d#BP # g. #@ g# q4@ -+ %# g5@ /+ 5@A @# q% & f#P @ V#D q h# g. #@ g+ -4
@ i @ l @ q @ t @ w @ z @ ~ @ @ 4
, <G>{ #p ; < h w w x> H @HE JH JH YH YJ H CH YK` H KH YKbH H SH YKbN@ H [H YH @ w H @ x < p< p< p? TWO INPUT SPECIFICATIONS ILLEGAL HBi< p< pH Y @ g
(? SYNTAX CHARACTER Hp"""""H rH pH JH JH ` FOLLOWING WORD H vH r< R00 f00 XH r ILLEGAL. H@H{ H@|H x H @ w H
x G ` H w H w H @ w H w H @ x H w G ` H w H@|H x H w < pH x H w H `? NULL SWITCH ILLEGAL HA( H s @ j 4 H r g
H r @ g
H r g
? SWITCH H H'H r:( SH r IS AMBIGUOUS. H@p* ILLEGAL. H@H,H v @ j
H j
w H v @ j
H j
x < `H Y @ g
(< p< p<
< p<
< p<
< p<
< p<
H p< p< p? ILLEGAL SYNTAX CHARACTER HXAH rH pH JH JH r. H@GH ` g
(H R g
(H |H R @ g
(H J< p< pH Y @ g
(? INCORRECT PPN. HA S Pd H x H w H Y @ g
(< p<
< p<
< p<
< p<
< p<
< pH pH pH p< ` H k g 4 H k g 4 H@iTHE COMMAND FORMAT IS: HA0jFN.EXT[PPN]/SWITCHES_FN.EXT[PPN]/SWITCHES HBHmTHE SWITCHES ARE: HArHELP-----THIS MESSAGE HA(tNOLIST---CREATES NO LIST FILE HAhwNOSOUR---CREATES NO SOURCE FILE HAx{SEQUEN---RESEQUENCES SOURCE FILE HB THE DEFAULT IS CBL AND LST WITH NO SEQUENCE NUMBERS HC )!$Lu@@
+ p @@ p ^ + -> : x ,~ !" !$Lu!& &
+ % p R @@ p ~ + %,~ p p p @@ 1R 9 4P ,> 2 , "=p ,^ , "=d 2 , " 2 + "? '+ $R ',~ ~ + "
& . ` > ,~ @ ? CAN'T OPEN INPUT FILE.
& *,~ ?OUTPUT ERROR
Z x < 3.\x ,~ + p $$p