0DX0205(Sh: EXTRACTV1.3Ӓ05-05   G 9 ?B!d FORRTL_001! LIBRTL_001HXEXTRACT commandP`DOUTPUTSYS$OUTPUTWIDTH[].;0҈EXTRACT ***** ***** ,DEXTRACTEXTRACT> INPUT_EXTROUTPUTSYS$OUTPUTIDENTIFYTRANSLATETRANSLATE.ASCII_TO_EBCDICTRANSLATE.EBCDIC_TO_ASCIIVFC_HEADERVFC_HEADER.DATAVFC_HEADER.KEEPBLOCKSRECORDSHEADTAILEDITCOLUMNSEXPAND_TABS.START.COUNTP`` EDIT.:-*   EXTR ,,X EXTRACT4q!,P1 INPUT_EXTRFile(cdBLOCKS(sCOLUMNS$sEDIT,, EXPAND_TABS(T#HEAD22(|IDENTIFY4%OUTPUT SYS$OUTPUT(cdRECORDS( #TAIL22((  TRANSLATE,T  VFC_HEADER t VFC_KEYWORDS$DATA(IGNORE$KEEP XLATE_KEYWORDS04ASCII_TO_EBCDIC0EBCDIC_TO_ASCII$BLK_RCRD_KEYWORDS($START1("END-1$COUNT  EDIT_KEYWORDS(DCOLLAPSE(lCOMPRESS( LOWERCASE$TRIM( UNCOMMENT(UPCASE08STRIP_TRAILING,d IGNORE_QUOTES( FORMAT( FALLBACK  ,   0< T`lx    (     , D$4Xhx  (  <    d  x               4  T PD`(8$84 $( $, $0xxJJ4D D(phPxt(phPxt X\`dhd$<DXD,lh`\`\XD DP PD D` `` $ (  $ (  8 `p !1AAhHHhPP @U4UD<ZX_h gx <@D g__$0,44|ZXlD D5HxP P, ,D DD D  < , ,D D  Ht|h  !  ! ! COLLAPSE COMPRESS LOWERCASE TRIM UNCOMMENT UPCASE STRIP_TRAILING IGNORE_QUOTES FALLBACK FORMAT !" "!$"" p""L""L""P" 44##D D   PP $,@H    HJ[Ы \, RP @1SPSMPP2PP`dhP2PPtx|a\SDЫːˌi2RSS˔|˘˜PS˨|ˬ˰1\2PPm\Ы/P\ZP2PPPѫʂ 2PPu\=ѫ2RPP| N2PP04831 ѫʂ)HP2RRRP|TXЫlh@PHL[}PQP 1< ˴FP˴`LP` *$0,Pڂ$84О,P`PPkk""0P`PP$@<Pk D7PkkЫPH L[}PQP < ˴FP˴`LP`$PLPkk""0P`PP$XTPkkkЫPHK[$`\PkkЫPHrK[}PQPlbP |/Pˠˌ 7PЏB`P`P`P`)PPP2P˴P˴`P`<PP `PO<`<P QPaQaQhah˸ˤp6$˼`6(P``P`5$h5Pkk&$PkkˏkPQPQQ˸˼ ԼkDP8,P'"2PP<@޼LD=5PkiռdP`PP:|PPP2PPPPP}T޼hX65ռPP`PP PkЫPH I[$xtPkˀ|k P`PPkkkԫkЫPHP@PSSʂ;k2k`Xt2PPpxt>ːˀPSR7RRˏPQPQQRˏQPQPPR   Լ SP HI[˘/kPHLJ[Ьɏ螼м ԫԫԫ޼ l2RPR޼,(W2QPQQQQRR<R ȏ IJ[}PQPkV^(7nˠ˔KPWWˤ-ЫWP>˸,PWW1/P,P ,P~P)P _PI[;IG(P*8P (H{PXMPh+1ˀ'P ː+1X˨P-˸PWը W<W ըר1P8kPWը W<Wը èΨ= P$wPkP _PW11Y^(1n2VV^(VnVXXZZ(ZY^,0Y^Pkk;W8Z^(1nV^(VnVYYXX8XZ^<@~Z^PWZݏ.ENDV^(VnVYYXXLXZ^PTZ^P6W3Xݏ.ENDV^(VnVZZYY\YX^`dX^PWX^(1nV^(VnVZZYYpYX^tx0X^P;W8Y^(0nV^(VnVXXZZˀZY^˄ˈY^PWW(YkF  ><W kԫԫYWuթթk! PPթ թ/ é PPթ թ Щ ѩЏ˜, P W8ˬ P,˼~PWWjZPWMѩ(P ˏ PZPZZԩ4 P WPOLE[ЬЫ VԼWP`P<`XhP@P`PQPa QAQP`PPa$QAQP`PPaѨ0,QAQraf0`QAQaQQV,QAQ$P@P`PPa$QAQaQ$P@PVQ` P@P`P $PЫPH=[}PQP} PQP oP`ԫ Pkk1P`PP!KP`P`04,xP`PQaQRQPbRbRP`P2PPQPRa̫HQaTD̫\޼`XPk޼ldPkkЫPH<[}PQPkPЫPH<[ЬԼ P@P`PQPQQQAQaQ:ּ޼@޼ D޼H2TT48< PPPkμЫЫPI;[VVP@<=W2PP^(Pn^SX^(UnXX$XW^(,jW^P޼8Vk4P VѼԼI;[Ь P`RѼ<RSR1мPPPSP1SSTD P`PQPaTQA QaQPQ`kԫP`0,xPUP`D@cPUUP`PL8PRk1P`P2PVUPQPaUU1Qad`PS S ռk<RP`plPRRwUVPV`P`PVUPfVfVV;Vf˄ˀuP%<мPPPSPSռ<RP`ːˌRPRRի ѫkk <Rr`,P P@P`kZ4806J,9DHP>`P<P P@P`Ѣ5P`P,P`PQPaX\T\P@P`4!dP>`l`GP@P`Ѣ5RbR,RbRPR`txpP@P`O[ЬkWXYZVk1pPkkWV1W=3P@P`PoQPaQAQaQoPQ`V1P@P`PoQPaQAQaQoPQ`XXDYY!ZZZP@QR(baYYP@QoR(baXXP@oQoRbRRa@oPoQaQQ`1kzkJWY>YZZYYZZ & "WZZZYYYYYWWYYk1?Ѽ 15V м 1ü WVVV4z Y{YXXX<XXYIoZ(joм 1@XPVPG PƏPPzPP{PVVV<VVP@Y(ioVx VVVB VƏ@VV<PPVVPPVVP@Y(ioVx VVx VVVVFVoP`PPfVFVoP`PPfVFVf$ pPkP@P`WkkkPK[Ь } PQP}PQ PVռЫP޻Wѧ  XԫX<PЧRRPPRRXѼVX( XRXXP@R<QRQ6@TTQQTRTTYYRTTRRTЫQ,TB YA YXVPHD[ЬЬP`P<VkVXZZVkP,X@ VJ kPPP1PH[ЬЬ׼P`P@P`P@P`P@P`мPQռ#RbRQSCTRdSTDScPQH[Ь}PQ(P$мPPPѼ Pռ <k P@P`0,cPkkЫPO[ЬЬЬЬ$V$WXY$ZP~P@V8<VYYZJJ+ZJP@h@gP@h@gVY<`^,n䐏Pݬm^|UVX^,n䐏Qݬf^PRݬl$լ ݬf  RP|VD^,nȐSȞ؞ܕlլݬfЬ̑lլ  lլ,n䞭l լ Ь l լЬlլ ݬf^<`^,n䐏Ti]l լЬ^<`^,n䐏U(ݬ^@@`xpx `x8@HP @FORRTLLIBRTLptEXTRACTEXTRACTRz OUTPUT OUTPUT  CUSTOMIZE_OUTPUTCUSTOMIZE_OUTPUT "DISABLE_INSTALLED_PRIVS$DISABLE_INSTALLED_PRIVS GET_NEXT_FILE GET_NEXT_FILE/  GIVE_SIGNAL GIVE_SIGNAL IDENTIFY_FILE` IDENTIFY_FILE+OPEN_INPUT_FILEOPEN_INPUT_FILEV}2OUTFILE_OPTIONS$OUTFILE_OPTIONS6 PARAM_INIT PARAM_INIT&B PROCESS_FILE4 PROCESS_FILEH RMS_FIND_FILE RMS_FIND_FILE 9 BLOCK_INFO BLOCK_INFO BLOCK_POS BLOCK_POSo BUFFER_FILE BUFFER_FILEu u BUF_BPEEKp BUF_BPEEK BUF_LPEEK BUF_LPEEK BUF_WPEEK BUF_WPEEK CLI_GET_VALUE CLI_GET_VALUE  ACLI_PARSE_COMMANDCLI_PARSE_COMMAND c CLI_PRESENT CLI_PRESENT - DETERMINE_EOF DETERMINE_EOFDIRECT_POSITIONDIRECT_POSITION+&D FETCH_RECORD FETCH_RECORDCQ}GET_CLI_NUMBERpGET_CLI_NUMBERLGET_INP_ELEMENTGET_INP_ELEMENT GET_INP_LIST< GET_INP_LISTPARSE_EDIT_OPTIONSPARSE_EDIT_OPTIONS~PROCESS_COLUMN_LISTPROCESS_COLUMN_LISTPROCESS_RECORDPPROCESS_RECORD2e RFA_POSITION RFA_POSITIONiSELECT_COLUMNSSELECT_COLUMNS+SELECT_SUBSTRINGSELECT_SUBSTRINGdADD_INP_ELEMENTADD_INP_ELEMENT ALLOC_BUF_DSCt ALLOC_BUF_DSC = EDIT_RECORD EDIT_RECORDS W<EXPAND_INP_LISTEXPAND_INP_LIST" EXPAND_TABS EXPAND_TABSm% INIT_BUF_DSC@ INIT_BUF_DSClPUT_INP_ELEMENTPUT_INP_ELEMENT] ALPHA_INIT  ALPHA_INIT"