Micro Focus VS Cobol Library File 920908  12:50:01:00                                                                         
L       )e(	COBOL.GNT    @Xe(	COBOL.G01    e(	COBOL.G02    d(	COBOL.G03    \e(	COBOL.G04    ge(	COBOL.G05    tfd(	COBOL.G06    	@e(
IDYMGR.GNT    	ae(
LITMGR.GNT   @	e(
ANMMGR.GNT   	e(
TXTMGR.GNT   	ze(
ANMINT.GNT   VS COBOL                           V2.0 revision 041
AXUPAZZ010029 GNB100047041A3  GB2.0.26DI8086  
Anonymous                      89030308585084 root S
                                                                                                .'V$+_Hg
)a $.,<	00eX

pp [VID]a	XUeP
PP
pp gUepHp f	WePpp f	Ue PPPpp fxePPPpp f@00Ue$
66
php [KBD]aePPPp0p fe('''pp fe*ddp	p f* Accepted  CONFIRM* Accepted  CONFIRM= cobol.gnt + VERBOSE CONFIRMi
Vrn@() CHK047055015nrV
  M	
D     d
<<H  d  
EXTFHEXTSM  @,$ x@.F 	M8*P0  	CBLCPY
AREAVALUE
$COBCPY    .  .00  0 			    	 09001424     2HIGH HI  LI  LOW  MF   ANS85VSC2 OSVS ANS74SAA  95x  z
	c      
      $	   	00
	
 UNISYS COBOL2 1.2.0   CompilerV2.0 revision 055
AREPAZZ00  GNB015047055

Anonymous+
P9'
; ^}	

 '()DEHPe	  5  COPY CICS.CPY.J	

 ':6(08$*),stuvwxyz{|5+9237WXYZ[\]^_abcdefghiklmnopqr}j14;<=>?@ABCDEFGHIJKLNOPQRSTUV.MCopyright (C) 1983,1984 Micro Focus Limited. All rights reserved. This program or documentation conta= cobol.gnt + VERBOSE CONFIRM3pngineering of object code is prohibited. Use of copyright notice is precautionary and does not imply publication.cobol.gntKcobol.gntGENERATE
WINITIATE
XSUPPRESS
Y	TERMINATE
ZCFCHCODECOLUMN	CONTROLCONTROLSDEDETAILFINAL	GROUPHEADING
INDICATELASTNUMBER	PFPHPLUS	PRINTINGREPORTREPORTS	REPORTINGRDRFRHSUMEXAMINE
M	TRANSFORM
N	OTHERWISE
OREADY
QRESET
REXHIBIT
SNOTE
[CURRENTDATE
TIMEOFDAY
TRACE
POSITIONING
DISP
NAMED
CHANGED
ACTUAL
APPLY
	
COREINDEX

DISPLAYST

FILELIMIT
FILELIMITS

LEAVE
NOMINAL
RECORDOVERFLOW
REORGCRITERIA
REREAD
SEEK
	SELECTIVE
STORE
TOTALED
TOTALING
TRACKAREA
TRACKLIMIT
TRACKS
WRITEONLY
BASIS
INSERT
REMARKSSYSINSYSIPTSYSOUTSYSLISTSYSLSTSYSPUNCHSYSPNCHCONSOLECOMMANDLINEC01C02C03C04C05C06C07C08C09C10C11C12S01S02CSPJAPANESE2CURSOR2CRT2	CRTUNDER2COMPUTATIONALX2COMPX2EXEC
TEXECUTE
UPRINTER2	PRINTER12KEYBOARD2DISK2	PREVIOUS2
VARIABLE2FIXED2BACKWARD2
ESCAPE2NAME2	PROTECTED2SCREEN2COMPUTATIONAL02COMP02	ZEROFILL2
SPACEFILL2LEFTJUSTIFY2
RIGHTJUSTIFY2
TRAILINGSIGN2PROMPT2UPDATE2ERASE2FILEID2CHAINING2USER2 COMPUTATIONAL52COMP52FOREGROUNDCOLOR2BACKGROUNDCOLOR2FOREGROUNDCOLOUR2BACKGROUNDCOLOUR2AUTO23	AUTOSKIP23BELL24BEEP24BLINK25COL26FULL27LENGTHCHECK27REQUIRED28EMPTYCHECK28SECURE29NOECHO29
REVERSEVIDEO2:	UNDERLINE2;	HIGHLIGHT2<RANGE2=OVERLINE2?LEFTLINE2@GRID2ACHAIN
\LOCKING2BWAIT2CPRINT2COMPUTATIONAL62COMP62COMPUTATIONAL12BCOMP12CONVERT2'ECHO2(TAB2)EOL2EOS2LOW2>HIGH2<REVERSE2:POSCNULL@NULLS@ADDRESS@TITLE@EGCS@DBCS@	DISPLAY1@KANJI@CBL@COMREG@	CONTAINED@
PROCESSING@GOBACK
KENTRY
LSERVICE
VPASSWORD	RECORDINGMORELABELSEJECTSKIP1SKIP2	SKIP3

WHENCOMPILED
	BEGINNINGENDINGRELOADIDCOMP4HCOMPUTATIONAL4HALPHANUMERICALPHANUMERICEDITEDNUMERICEDITEDCONTINUE
0ENDADD
1ENDCALL
2ENDCOMPUTE
3
ENDDELETE
4
ENDDIVIDE
5ENDEVALUATE
6ENDIF
7ENDMULTIPLY
8ENDPERFORM
9ENDREAD
:ENDRECEIVE
;
ENDRETURN
<ENDREWRITE
=
ENDSEARCH
>	ENDSTART
?
ENDSTRING
@ENDSUBTRACT
AENDUNSTRING
B	ENDWRITE
C
ENDACCEPT
DEVALUATE
H
INITIALIZE
IPURGE
JALPHABETTHENTRUEFALSEANYBINARYbCLASSCOMMON	CONTENT

CONVERTINGDAYOFWEEKEXTERNAL
GLOBALORDEROTHERPACKEDDECIMALPADDING	REFERENCEREPLACE
STANDARD2TESTALPHABETICLOWERALPHABETICUPPERCOPYALL	LOWVALUE
LOWVALUESSPACESPACESQUOTEQUOTESZEROZEROESZEROS
HIGHVALUEHIGHVALUESOFIN
COMMUNICATION	CD	SYMBOLIC	QUEUE	SUBQUEUE1	SUBQUEUE2	SUBQUEUE3	MESSAGE	SOURCE		TEXT	
LENGTH	DESTINATION	
TERMINAL	ESI	EMI	EGI		EXCLUSIVE		AUTOMATIC	MANUAL	KEPT	
REFERENCES	
SEGMENTLIMIT	REVERSED	REWIND	REMOVAL	
SORTMERGE	AUTHORINSTALLATIONDATEWRITTEN
DATECOMPILEDSECURITYWHEN
SEARCH
COMPUTE
STRING
UNSTRING
MOVE
SET
ADD
SUBTRACT
	MULTIPLY

DIVIDE
IF
GO

PERFORM
ALTER
EXIT
STOP
CALL
CANCEL
ENTER
INSPECT
OPEN
CLOSE
READ
WRITE
REWRITE
DELETE
START
END
ACCEPT
DISPLAY
NEXT
 ELSE
DISABLE
ENABLE
RECEIVE
$SEND
RELEASE
RETURN
'SORT
(MERGE
)COMMIT
*ROLLBACK
+UNLOCK
,ON
PNUMERIC
ALPHABETIC	DELIMITED3	DELIMITER4POINTER5IS6LESS9EQUAL:GREATER;NOT?COUNT@MULTIPLEATAPEBPOSITIONCNOECOMP3FCOMPUTATIONAL3FCOMPG
COMPUTATIONALGINDEXIUSAGEJ	REDEFINESKPICTURELPICLSIGNMLEADINGNTRAILINGOSYNCHRONIZEDPSYNCP	JUSTIFIEDQJUSTQBLANKROCCURSSVALUETDATAUCODESETVBLOCKWLABELXRECORDYRELATIVEZSTATUS[FILE\ACCESS]ORGANIZATION^ASSIGN_	ALTERNATERESERVEaCURRENCYc
DECIMALPOINTdALSOeRENAMESf	ADVANCINGhANDiAREjAREAkAREASkLINAGEl	CHARACTERm
CHARACTERSnCLOCKUNITSoCOBOLpCONTAINSqDECLARATIVESsDOWNtERRORuEVERYv	EXCEPTIONwFIRSTxFORyIOCONTROLzINITIAL{
DUPLICATES|LEFT}LIMITLIMITSOPTIONALBYFDLINESLINKAGELOCKTOMODULESIOKEYNEGATIVEOFFRUNUSE	DEPENDINGUSINGOMITTEDORPOSITIVE
PROCEDURESFROMMODEPROCEEDRANDOMPAGERECORDSREELTHRUTHROUGHUPONSOURCECOMPUTERAFTER	REPLACINGCOMMAINPUTWORKINGSTORAGEUNTILRERUNWORDSRIGHTSAMESEGMENTSEPARATEBEFORESIZEPROGRAM	COLLATINGSEQUENCE
STANDARD1NATIVEEXCESS3OVERFLOWEXTENDSTANDARDFILLERGIVINGMEMORYTABLEOUTPUTTALLYINGSELECTTHANTIMESDYNAMICINDEXEDINVALID
CORRESPONDINGCORRTYPEUNITROUNDEDSECTIONDIVISIONUPSENTENCEVALUES	DEBUGGINGOBJECTCOMPUTER	PROCEDUREVARYING	REMAINDERSD
SPECIALNAMESATWITH	ASCENDING
DESCENDINGLINEINTOFOOTING
PROGRAMID
SEQUENTIALENVIRONMENTIDENTIFICATIONTOPBOTTOMENDOFPAGEEOP
CONFIGGURATIONDAYDATETIMEFILECONTROLINPUTOUTPUTz)  5P[)   	0
    
      
>*SegmentationReport WriterCommunicationsanmmgridymgrlitmgrtxtmgrBASISDELETEINSERT$SETELSEENDIFLBRFATAL ERROR  Memory overflow_ADISFN_CHAIN_CLASS_CODESET_PTRFN1_SORTEXTERNL .(				cDFHCOMMAREA $(,048<@ABHPCompilation not successfully completed0123456789ABCDPRSVXZ *+,.;()'=SWITCHPRINTER .$06>JNOQ

X00	X0X0X00X00X0X0X00XX0X0X0X0X000XXX00XXX00X0X00XX0X00XXX0X0X0X00X	0X000X00XX0X0X0X0X0X0XX000X0X00XX0X0X0X0X0XX0X0X00XX0X0X0X0X0X0X00X0XX0X	 OF 1**INCLUDEINDEXEDFHFCDFHKEYDEF SECTIONLINAGECOUNTERPAGECOUNTERLINECOUNTERDEBUGSUBSTART PROGRAMFALL THROUGHPERFORM LOOPUSE PROCEDURESORT INPUTSORT OUTPUTMERGE OUTPUTDEBUGITEMDEBUGLINEDEBUGNAMEDEBUGCONTENTSRETURNCODESORTRETURNSORTMESSAGESORTFILESIZESORTMODESIZESORTCORESIZESORTCONTROLSHIFTOUTSHIFTINPRINTSWITCHAnimator information fileanmint  Dump of dynamic stream: ?XREFof' (, ) =HFILLER OFSIZE =stderr=CONSOL    .  ., 19  coboldir$COBDIR\ALIGNALTERANIMANS85ASSIGNAUTOLOCKBELLBRIEFBOUNDCHECKCALLFHCALLSORTCHARSETCHIPCICSCICSOPTIMISECICSOPTIMIZECICSOPTCICSCPYCOMMITCOMPCOMS85CONFIRMCOPYLBRCOPYLISTCURRENCYSIGNCURRENTDATEDATEDBCSJAPANESEDBCSSOSIDEFAULTBYTEDERESTRICTDGDIRECTIVESDIRECHOECHOALLEGCSSOSIELCNLSENSUITEERRLISTERRQEXTINDEXFCDREGFILECASEFILESHAREFLAGFLAGQFLAGCHIPFORMGANIMIBMMSPC1MSIBMCOMPINTIXNUMKEYLIBRARYLISTPRINTLISTWIDTHLWMFMFLEVELMFCOMMENTNATIVENESTCALLLINKCOUNTODOSLIDEOLDCOPYOLDFILEIOOLDINDEXOLDVSC2OPTIONALFILEOSEXTOSVSOSVSPERFORMSOVERRIDEPERFORMTYPEPREPROCESSPROFILEQUALQUERYRECMODEREFREFNOREMOVEREPORTLINERESEQRETRYLOCKREWRITELSRESTRICTRMRSVNAMRTNCODESIZERWSAASEGSEQCHKSEQUENTIALSETTINGSIGNSPZEROSTRUCTSUPFFSYNCHRONISESYNCHRONIZETIMETRACETRUNCVERBOSEVSC2WARNINGWBWRITELOCKWRITELOCKZEROSEQANALYZEBREAKFLASHRNIMZOOMXNIM+8BITIREGADDEXTNADISFNALIGNCODEALIGNDATABANNERCAL2COMPSUBSETCONVERTBLLCOPYRCSVCPYPATHDELIMITDICDIRECTPRGDIRECTEMBEDESCAPEETFLAGNAMEFULLDECLHAMMERHEADINGINTLISTISAMWORKAREAIXALTLIMIXKEYLENOSNAMEROOTOSNAMESIZEPREPLISTRAWLISTREVRTDATASTARTEXSTDERRSUPERSETSYSTAGTAILORUPDATEPRTUSERQUOTEVERSIONVS;ANMAPCRTMAPIBMPCPERCENTPQUERYRTSTIMESPEEDSTOPRUNTRANSCODECALL0123456789ABCDGLNPRSVXZ *+,.;()'=FLAG (ASCIIEBCDICSPECIALVFLINESEQUENTIALRELATIVESYNTAXPARJTIALEXTFHEXTSM 09001424@ANSIDYNAMICEXTERNALLINERECORDNOFILESHAREXST[ZY:nu:Nu6.<QRSS_^[t.OFPSQS.
.D.Tx6.86.<^..T.|^.LSVQV
x6.86.<	COBOL    Fh>K Fht	
66
X6\6 6H$66666x6|66
@6hD660666d	6		6K]>uUW6>uUW>uUWUWW4I3IU2I1II7I
7I7P,PPP^L>Fht,  ,,1,1,1,1,1,1,1l,_2,.N82,.89$,G,,,,>,u>,FhFht1,P,PPP^L>Fht,0, u,1,,h>,u>,u,=,,,,,,,,,YY,,  {>u8  20  ,,P0PhPP^LFh2,  M{38,  M8A$,  [H?Y>u>t'g,>t
>Rt>tfA>Yt>t:.:>t	 P,PPP^L>Fht,1,1,,,,P,PPP^L>Fhtj.>YtHf::V
V
89 >Ytt?t8 h>t
>t:]w0+$>Yt'.8>t^>u6FhPP,
PP^LFhPP*
PP^LFhPP
PP^LFhK>KwK
0uK
 K
PPPP^LFhK>K	wK
0uK
 K*
>s
4
W>dbr
>u
>*t>u>zt  WW>Lv  B
>u
VW>Vv0> u(@6FhB
X6Fh6Fh
>SucfeeVe>u,
>Su6Fh
>uB
X6FhVWL  A<D>+vV+WL  A ceVeB,  >c|  B:br>t>?u>|t||B,>s
>t'
PPP^L>Fhuz
PPP^L>Fhtx?B,  >B>zvB,kz>{v'{>*u:>u>u*i>zuBL  uAuu>VvL  A{{>uV>Wv09u9FhFhv
>r> t 	>t>u;>v>t>u:vd(111
968(11109
68
::wZ>tS>{v09{>dv0,
{P9PPP^LFh0>v>u^LFhjP^LFh>Lv(@6Fh>u>Su
>uZ: v
Hd       >eu
l>t>u>lul>at>u>lulD>bt>u>lul(>lu>dtl
>ctl	lm>^t,lj>lul[0^_u4ml _ac_ac|_acc_acJ_ac1_acU_ac<_ac_ac*_ac_ac_ac_acg>u>v_ac<_ac_ac>OGu>+u>v+>>u>>t	a>u >>taC	b1ml:wlllLFR1F
LFS1FLFT1FFDeHbuJgK1F$9u9FhFhs_$9u
9sMg$9u
9sD$'9u
)9s$9u
9s*;iu;gu
:fFhFht;f>uo>r.'
N >v>v>v>v
>vq>v>v
>vX>v
>vF K>R0tW
>T0t22
  
WTRZ>R0t2H2
  
W8>V0tjWVRW22
  
|>,u
VW
6>Su1>Qu
>u1(99P9>t9>uF>au9$>
u	:gt.>uEm,P  ,'PP,P^L9:I9$I9FhwI9rI=v:I9dJ:PP9P^LFh>uPP9P^LFh>Qt
KK(L6^h.L6^h4L6^h:L6^h>FhuP^LK16pFhK16t>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh>jtjPPVP^LjFh>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh>tPPVP^LFh 9:>um>u>u
P>u	>FhFht:>u>:u:9:\999 > u>Hw0
  
>Hv(PPPP
P
P^LFh(P
P^L0Fh
>tw>	t,7

>tK>u0
>u
>,ur 6>R1Fhu>R0tP
P^L>Fht0
 urZ> uh@L
u  uuu6EL
  uuKL
  u
u>t	>au
>Su >auRP PP^L 6Fh(0  
k(0RP PP^LFh>auoRP PP^LFh(0 6Fh(  
8 6RP PP^LFh>R1u>v

9u
9u
9FhFhrx
9u
9u
9vS>u
7
;u)
;u 
;u9s>auE>JuJ(J
R0nf^
VVXe6f^^hK>FhtRR0>
u(
J  (


J
Z
Y  
>YuR1>Yu >;u>ZtZZ[9>Yu
P>9Kt]__^]>Yt]_
 Y ZZb^I99
