% VAX-11 Librarian V03-00H@H!25 T  ^ ADDR_RETURN3AID_3ALLOCATE_INTERNAL3ALLOCATION_QUANTITY_3ALN_3 ALN_DEF.$.3ALQ_3AOP_3 AOP_DEF.$.3AOP_M_3 ARG_PROCESSOR3 ASYNC_ERROR_3 ASYNC_ERR_3ASYNC_SUCCESS_3 ASYNC_SUC_3BDT_3BDT_V_3BINTIM_3BKS_3BKT_3BKZ_3 BLOCK_SIZE_3BLS_3BUCKET_3 BUCKET_SIZE_3CDT_3CDT_V_^CVT_PRO_TO_ASCII3DAN_3DATA_AREA_NUMBER_3DATA_FILL_SIZE_$.w3DTP_V_3EDT_3EDT_V_3 ENABLE_AST.$3ERROR_3ERR_3ESA_3ESS_3EXPANDED_STRING_ADDRESS_3EXPANDED_STRING_SIZE_3FABCTX_3 FAB_CONTEXT_3FAC_3 FAC_DEF.$.3FAC_M_3FILE_3 FILE_ACCESS_3 FILE_NAME_3FILE_NAME_ADDRESS_3FILE_NAME_SIZE_3 FILE_OPTIONS_3FILE_ORGANIZATION_FILL_FCB3FIND_XAB3FIXED_AREA_SIZE_3FLG_3 FLG_DEF.$.3FLG_M_3FOP_3 FOP_DEF.$.ZDATA_FILL_SIZE_ DTP_DEF.$.FILE_ORGANIZATION_ FOP_DEF.$.KSZ_MAXIMUM_RECORD_SIZE_ PRFX_DEFS.$.PROMPT_BUFFER_SIZE_RAC_V_ RECORD_ACCESS_ RECORD_HEADER_BUFFER_RMSIF_BADSTRNG RMS_ALLOW_AST RMS_DATDEFRMS_PUTRMS_RESTORE_DATA SUC_XABRDT_3FOP_M_3FSZ_3GBC_3GLOBAL_BUFFER_COUNT_3GRP_3 HOLD_AST.$3IAN_3IFI_3IFL_3INDEX_AREA_NUMBER_3INDEX_FILL_SIZE_l IOFN_DEFS.$.3KBF_3KEY_3 KEY_BUFFER_3KEY_BUFFER_SIZE_3KEY_NAME_ADDRESS_3KEY_OF_REFERENCE_3KEY_OPTIONS_FLAG_3 KEY_POSITION_3 KEY_SIZE_3KNM_3KRF_3KSZ__AREA_NUMBER_3MAKE_FCB3MAKE_XAB3MAXIMUM_RECORD_NUMBER_3MAXIMUM_RECORD_SIZE_TEXT_`3MBC_3MBF_3MBM_3MRN_3MRS_3MTACC_3MULTIBLOCK_COUNT_3MULTIBUFFER_COUNT_3NULL_KEY_VALUE_3NUL_^NUMERICAL_RETURNYNUMERICAL_STRNGS_PROCESSOR3ORG_3 ORG_DEF.$.3ORG_V_YPAC.$TdPARAMETER_ANALYZERYPARM_ERROR_CHECKER.$3PBF_3POS_VV PRFX_DEFS.$.g PRFX_DEFS2.$.g PRFX_DEFS3.$.VVPROCESS_STRING_ARGS3PROLOG_3PROMPT_BUFFER_3PROMPT_BUFFER_SIZE_V_RECORD_ACCESS_|3RECORD_OPTIONS_3REFERENCE_NUMBER_3REF_3RELATED_FILE_NAM_3RESULTANT_STRING_ADDRESS_3RESULTANT_STRING_SIZE_3RETRIEVAL_WINDOW_SIZE_3RFA_3RFI_3RFM_3 RFM_DEF.$.3RFM_V_3RHB_3RLF_tRMSIF$_FACILITYtRMSIF_ARGNOTALLt RMSIF_BADIFItRMSIF_BADINFIDt RMSIF_BADNUMtRMSIF_BADSTRNGtRMSIF_FATALERRt RMSIF_MNEMt RMSIF_NONSARGtRMSIF_NOSUCHXAB3 RMS_ALLDEF3 RMS_ALLOW_ASTF_^ TBL_SCANNERl TEST_ASYNC.$3 TEST_IFI.$3TIMEOUT_^ TIME_RETURN3TMO_^TRANSLATE_TO_ASCII3UBF_3UIC_3UNRECOVERABLE_ERRORTd UPSHIFT.$3 USER_BUFFER_3USER_BUFFER_SIZE_3USZ_Td VALUE_BUILDERTdVALUE_BUILDER_NOSIGNAL^ VALUE_RETURN3VOL_gWILDCARD_DEFS.$.3XABALL_3XABALQ_3XABDAT_3XABDEQ_3XABPRO_3XABRDT_?3 DATA_TYPE_lDEALLOCATE_INTERNAL^ DECIDE_DSCR3DEFAULT_EXTENSION_QUANTITY_3DEFAULT_FILE_NAME_3DEFAULT_NAME_ADDRESS_3DEFAULT_NAME_SIZE_3DEQ_g DEV_DEF.$.3DFL_3DNA_3DNM_3DNS_^ DSCR_RETURNYDSCR_STRNGS_PROCESSOR3DTP_3 DTP_DEF.$.3RECORD_ATTRIBUTES_3RECORD_BUFFER_3RECORD_BUFFER_SIZE_3RECORD_FILE_ADDRESS_3RECORD_FORMAT_3RECORD_HEADER_BUFFER_t RMS_REWINDt RMS_SEARCHl RMS_SPACE3RMS_STORE_DATAt RMS_TRUNCATEt RMS_UPDATEtRMS_WAITl RMS_WRITE3ROP_3 ROP_DEF.$.3ROP_M_3RSA_3RSS_3RSZ_3RTV_3RVN_^SETAREA_lSETFN^SETKRF_3 SETUP_ASYNC.$3SHR_3 SHR_DEF.$.3SHR_M_3SIZ_Td SKIP_BLANKSVVSTR_3SUCCESS_3SUC_3 FILE_SHARING_3FILL_FCB3FIND_XAB3FIXED_AREA_SIZE_3FLG_3 FLG_DEF.$.3FLG_M_3FNA_3FNM_3FNS_3FOP_3 FOP_DEF.$.3RAT_3 RAT_DEF.$.3RAT_M_3RBF_3RDT_3RDT_RDT_3 RDT_RDT_V_3RDT_RVN_3RDT_V_3RECORD_ACCESS_3LAN_3LINKUP3LOC_3LOWEST_LEVEL_AREA_NUMBER_3MAKE_FCB3MAKE_XABTd MASK_BUILDER^ MASK_RETURN3MAXIMUM_RECORD_NUMBER_3MAXIMUM_RECORD_SIZE_t RMS_DELETEtRMS_DISCONNECT3 RMS_DISPLAYt RMS_ENTERt RMS_ERASEl RMS_EXTEND3 RMS_FABDEFtRMS_FINDt RMS_FINDKEYt RMS_FLUSHtRMS_FREElRMS_GETl RMS_GETDIRkz RMS_GETERRMSGl RMS_GETKEYl RMS_GETRFAt RMS_GETSEQl RMS_GETVFC^RMS_INFO^ RMS_INFO_PAS3 RMS_KEYDEF3 RMS_NAMDEF3RMS_OPENt RMS_PARSE3 RMS_PRODEFlRMS_PUTS_RABDEF3 RMS_RDTDEFlRMS_READ3RMS_RESTORE_DATAPRINT_FILE_INFOtRMSERRORj&RMSPROTkz RMS_ERR_INFO3RMS_INTERFACE_2TdRMS_INTERFACE_3VVRMS_INTERFACE_4YRMS_INTERFACE_5^RMS_INTERFACE_6gRMS_INTERFACE_7lRMS_INTERFACE_IO_1tRMS_INTERFACE_IO_2j&PROTECTION_ANALYZER^ PROT_RETURN3PRO_3PRO_M_3PSZ_3RABCTX_3 RABS_FAB_3 RAB_CONTEXT_3RAC_3 RAC_DEF.$.3RAC_V_kz RMS_PUTERRMSGl RMS_PUTKEYt RMS_PUTSEQl RMS_PUTVFC3 RMS_RABDEF3 RMS_RDTDEFlRMS_READt RMS_RELEASEt RMS_REMOVEt RMS_RENAME3RMS_RESTORE_DATA3 RMS_AUTO_ASTt RMS_BLKREADt RMS_BLKWRITEl RMS_CLOSEl RMS_CLOSEOUTl RMS_CONNECT3 RMS_CREATE3 RMS_DATDEFt RMSIF_BADTIMEt RMSIF_DUPDEFtRMSIF_FATALERRt RMSIF_MNEMt RMSIF_NONSARGtRMSIF_NOSUCHXAB3 RMS_ALLDEF3 RMS_ALLOW_ASTg PRFX_DEFS2.$.g PRFX_DEFS3.$.PRINT_FILE_INFOVVPROCESS_STRING_ARGS3PROLOG_3PROMPT_BUFFER_3PROMPT_BUFFER_SIZE_ !"#$%&'()*+,-./01241ْH09RMS_INTERFACE_2013-NOV-1983 03:55 VAX-11 Macro V03-003RMS2+USER$DISK:[FRANK.SOFTWARE.LIBRARY]MACROS/LIB  3ALLOCATION_QUANTITY_  ALN_DEF.$.  AOP_DEF.$.  ASYNC_ERROR_ ASYNC_SUCCESS_ m BLOCK_SIZE_ QBUCKET_  BUCKET_SIZE_ L DATA_AREA_NUMBER_ . DATA_FILL_SIZE_  DATA_TYPE_ DEFAULT_EXTENSION_QUANTITY_ DEFAULT_FILE5_NAME_ RDEFAULT_NAME_ADDRESS_ rDEFAULT_NAME_SIZE_ . DTP_DEF.$.  ENABLE_AST.$ ERROR_ lEXPANDED_STRING_ADDRESS_ 0EXPANDED_STRING_SIZE_ P FAB_CONTEXT_  FAC_DEF.$. 7FILE_  FILE_ACCESS_  FILE_NAME_ FILE_NAME_ADDRESS_ &FILE_NAME_SIZE_  FILE_OPTIONS_ FILE_ORGANIZATION_  FILE_SHARING_ FIXED_AREA_SIZE_ T FLG_DEF.$.  FOP_DEF.$. gGLOBAL_BUFFE6R_COUNT_  HOLD_AST.$ j INDEX_AREA_NUMBER_  INDEX_FILL_SIZE_  KEY_BUFFER_ yKEY_BUFFER_SIZE_  KEY_NAME_ADDRESS_ KEY_OF_REFERENCE_ * KEY_OPTIONS_FLAG_  KEY_POSITION_  KEY_SIZE_ LIB$GET_VM LIB$SIGNAL  LOWEST_LEVEL_AREA_NUMBER_ MAKE_XAB MASK_BUILDER ,MAXIMUM_RECORD_NUMBER_ IMAXIMUM_RECORD_SIZE_ MULTIBLOCK_COUNT_ -MULTIBUFFER_COUNT_  NULL_KEY_VALUE_ 7 ORG_DEF.$.PAC.$PROCESS_STRING_ARGS PROMPT_BUFFER_ [PROMPT_BUFFER_SIZE_PROTECTION_ANALYZER n RAB_CONTEXT_ > RAC_DEF.$. b RAT_DEF.$.  RECORD_ACCESS_ RECORD_ATTRIBUTES_ RECORD_BUFFER_ RECORD_BUFFER_SIZE_ RECORD_FILE_ADDRESS_ RECORD_FORMAT_ >RECORD_HEADER_BUFFER_ RECORD_OPTIONS_ ] REFERENCE_NUMBER_ RELATED_FILE_NAM_ RESULTANT_STRING_ADDRESS_ NRES8ULTANT_STRING_SIZE_ DRETRIEVAL_WINDOW_SIZE_ x RFM_DEF.$. RMSIF_BADIFI RMSIF_BADTIME RMSIF_DUPDEFRMSIF_FATALERRRMSIF_NOSUCHXAB  ROP_DEF.$.SETFN  SETUP_ASYNC.$  SHR_DEF.$. SUCCESS_ SYS$BINTIM SYS$CONNECT SYS$CREATE SYS$DISPLAYSYS$OPEN SYS$PUTMSG SYS$SETAST TEST_ASYNC.$ TIMEOUT_ mUNRECOVERABLE_ERROR  USER_BUFFER_ USER_BUFFER_SIZE_ VALUE_BUILDER 9. ABS . . BLANK .P$ABS$-PPPPPPPPPPPRMS_DATAPS'^'_'''-'5''$CODEPQCYLLBNRFIVBNQQQCBTCTGHRDONCQQQIN2BN2BN4IN2IN4PACSTGQ#Q#QCHG DAT_NCMPRDUP IDX_NCMPR KEY_NCMPRNULQ0Q0QPUTGET:DELUPDNILMSEUPIQ#Q#QPUTGETDELUPDTRNBIOBROQ#Q#QCBTCIFCTGDFWDLTESCINPKFOMXVNAMNEF NFSOFPPOSPPFRCKRWC RWOSCFSPL SQOSUPTEFTMDTMPUFMkUFOWCK QrQQBLKCRFTNPRNQQQFIXVARVFCSTMSTMCRSTMLFUDFQ'Q'QRELSEQIDX QQQASYBIO CCOCVTEOFFDLLOCKGEKGTLOA LIMNLKNXRPMTPTARAH REARLKRNERNF;RRLTMOTPTUIFULKWATWBH QwQQKEYSEQRFAQQPP| P|RMS_STORE_DATA& (,`| j|RMS_RESTORE_DATA&( x RMS_ALLOW_AST&  RMS_AUTO_AST&}P~ SYS$SETAST}P}P~ SYS$SETAST}P   ARG_PROCESSOR&0ЬR RMSIF_DUPDEF <LIB$SIGNAL1GЦfX0]XP X=P PVPk1 Цk1lݬ~RMSIF_NOSUCHXAB LIB$SIGNALݬ!ЫPR:X bRQQxQSX S XSSP SUC_&0Ь Џ P ERR_&0Ь  ASYNC_SUC_&0ЬЏ P  ASYNC_ERR_&0Ь  TEST_IFI.$&AЬZ j Z~ RMSIF_BADIFI LIB$SIGNAL 7IFI_&|0RЬ>?^^[kk LIB$GET_VMP1,`kЫЫЫPP  wЏP MTACC_&)ЬP[~ ~~~ P UIC_&E[~~~2~P[~ ~~2~P GRP_&%[~~~2~P !MBM_&%[~ ~~2~ϣP APRO_&BPROTECTION_ANALYZER[~~~2P~zP j?PRO_M_& P rXABPRO_&L2~lPROCESS_STRING_ARGS2~lPAC.$ЏP@ @ RMS_PRODEF&h2~lPROCESS_STRING_ARGS2~lPAC.$V~V~0`[nl0 AID_&10w~~~~@P ALN_&? VALUE_BUILDERw~ ~~P~ϧ@P <XABALQ_&#w~~~ݼω@P Z@AOP_&>Ϸ MASK_BUILDERw~~~P~]@P AOP_M_& P BKZ_&$w~~~~6@P XABDEQ_&$w~~~2~@P LOC_&#w ~ ~~ݼ@P VOL_&$w ~ ~~2~@P  RFI_&bw~~~2~ϻ@Pw~~~2~ϟ@Pw~~~2 ~σ@P `XAABALL_&J@~lPROCESS_STRING_ARGS@~lPAC.$ЏP@ @ RMS_ALLDEF&f@~lPROCESS_STRING_ARGS@~lPAC.$V~V~F`wτl0 BINTIM_&L SYS$BINTIMP|~ RMSIF_BADTIME LIB$SIGNAL BDT_&R^^[kƟ~$~~kϾP~(~~ݫϢP B BDT_V_&^^[}k P CDT_&SB^^[kn~~~kfP~~~ݫJP  CDT_V_&^^[}k  EDT_&S^^[k~~~kP~ ~~ݫP  EDT_V_&^^[}k  RDT_&S^^[kϾ~ ~~k϶P~~~ݫϚP J RDT_V_&^^[}k X RVN_&%~~~2~lPC x XABDAT_&L2~lPROCESS_STRING_ARGS2~lPAC.$ Џ P@  @ RMS_DATDEF&i2~lPROCESS_STRING_ARGS2~lPAC.$V~V~*`hl0  RDT_RDT_&S^^[k~ ~~kP~~~ݫϮP 6  RDT_RDT_V_&^^[}k D RDT_RVN_&%~~~2~πP d XABRDT_&L2~lDPROCESS_STRING_ARGS2~lPAC.$ ЏP@  @ RMS_RDTDEF&h2~lPROCESS_STRING_ARGS2~lPAC.$V~V~>`|l0  PROLOG_&$~H~~~P  DTP_&>1 VALUE_BUILDER~~~P~P " DTP_V_& P * FLG_&=$ MASK_BUILDER~~~P~ύP U FLG_M_&E P ] REF_&00,~~~~\P  KNM_&%P~8~~P<P  SIZ_&:lR.S TլTS~~ST\RڰP  POS_&:lRSTլTS~2~ST\RڰP  IFL_&#~~~2~ϴP . DFL_&#~~~2~ϖP L DAN_&#~ ~~~xPF j IAN_&#~~~~ZP  NUL_&#~~~~<P  LAN_&#~ ~~~P  KEY_&H~lPROCESS_STRING_ARGS~lPAC.$ ЏP@  @ RMS_KEYDEF&d~lPROCESS_STRING_ARGS~lPAC.$V~V~`$l0 0ESS_&#<~ ~~~ϔP NRSS_&#G<~~~~vP lESA_&"<~ ~~ݬYP RSA_&"<~~~ݬ<P RLF_&"<~~~ݼP@ @ RMS_NAMDEF&s~lPROCESS_STRING_ARGS~lPAC.$VЦP~ϹP`@`<?l0 BKS_&"~>~~~ϯP 3ALQ_&!~~~ݼϒP PFABCTX_&H!~~~ݼuP mBLS_&"~<~~2~WP DEQ_&"~~~2~9P FOP_&;$ MASK_BUILDER ~~~PP FOP_M_& мP FAC_&< MASK_BUILDER~~~P~P FAC_M_& мP FSZ_&" ~?~~~϶P ,MRN_&! ~8~I~ݼϙP IMRS_&" ~6~~2~{P gGBC_&#~H~~2~\P ORG_&= VALUE_BUILDER ~~~P~1P ORG_V_& мP RAT_&<ϣ MASK_BUILDER~~~P~P RAT_M_& мP RFM_&=φ VALUE_BUILDER~~~P~P RFM_V_& JмP SHR_&<b MASK_BUILDER~~~P~ϘP JSHR_M_& мP RDNA_&$P~0~~PpP rDNS_&"~5~~~RP FNM_&AЬS~4~~c~1P~,~~ݣP DNM_&AЬS~5~~c~P~0~~ݣP FNA_&$P~,~~PϼPK &FNS_&"~4~~~ϞP DRTV_&"~~~~πP@ b@ RMS_FABDEF&|~lPROCESS_STRING_ARGS~lPAC.$VЦP ~PVP`ϖl0  RABS_FAB_&!s~<~~ݼP   ROP_&D MASK_BUILDERlȼPs~~~PP ROP_M_& мP   RFA_&AЬRsL~~~bϬPs~~~2~ϑP QBKT_&!s~8~~ݼtP nRABCTX_&!s~~~ݼWP KBF_&$Rs~0~~R7P PBF_&$Rs ~0~~RP RBF_&$Rs ~(~~RP UBF_&$Rs~$~~RP  RAC_&=- VALUE_BUILDERs ~~~P~ϬMP 6RAC_V_& мP >RHB_&!s ~,~~ݬχP [PSZ_&"s ~4~~~iP yKSZ_&"s~4~~~KP RSZ_&"s~"~~2~-P USZ_&"s~ ~~2~P MBC_&"s~7~~~P TMO_&"s~~~~P KRF_&"s~5~N~~ϵP -MBF_&"s~6~~~ϗP@ K@ RMS_RABDEF&g~lPROCESS_STRING_ARGS~lPAC.$VfP ~2Pf`sl0& ALLOCATE_INTERNAL&QЬVfqVϸ~ݬ~@~ݬ~2ݬ LINKUP&_ЬVfW է<Ц<ЦWЦ(Ц$ЎP}~}~||P0 - RMS_CREATE&T27<~OlPAC.$~lPROCESS_STRING_ARGST:d~SETFN0} ~} ~ݮߴ SYS$CREATEP} ~d~SETFNߴ SYS$CONNECT TEST_ASYNC.$< < RMS_DISPLAY&T20<~lPAC.$~lPROCESS_STRING_ARGSTd~SETFNФU0( dUХRHB_ RLF_ RMS_ALLDEFx RMS_ALLOW_AST RMS_AUTO_AST- RMS_CREATE  RMS_DATDEF RMS_DISPLAYb RMS_FABDEF  RMS_KEYDEF RMS_NAMDEFRMS_OPENT RMS_PRODEFK RMS_RABDEF  RMS_RDTDEFjRMS_RESTORE_DATAPRMS_STORE_DATA ROP_ ROP_M_ RSA_ NRSS_ RSZ_ DRTV_ X RVN_ SHR_ JSHR_M_  SIZ_ SUC_ TEST_IFI.$ TMO_ UBF_ UIC_ USZ_ VOL_`XABALL_<XABALQ_x XABDAT_0XABDEQ_rXABPRO_Ud XABRDT_A . BLANK .RMS_DATA$CODEww1@޺H09RMS_INTERFACE_3013-NOV-1983 03:23 VAX-11 Macro V03-007RMS3.MAR+USER$DISK:[FRANK.SOFTWARE.LIBRARY]MACROS/LIB Z LIB$SIGNALRMSIF_BADSTRNG RMSIF_MNEM & SKIP_BLANKS  UPSHIFT.$ . ABS . . BLANK .P$ABS$PPPP$CODE~PVZ<Yja jz jZY뺏YLOC?VOL@RFIAGRPBMBMCUICDMTACCERVNFRDT_RVNGQhQhkP  kPROCESS_STRING_ARGS&VЬ[&^^XЏި"kШ"PШ"P[kY뱩 1 i1iЩ 1:= 1QU¨ QQhШ PU h VALUE_BUILDERŕP1<54?H86   .H     $00(,0 DHL@PT < @D4 9:;8<=*$ <   $    & (  r TBL_SCANNER&&PQRbbbRPQ TRANSLATE_TO_ASCII&^^[Yb WPPYP,P g RMS_ADDR_DATAUP## !),6:P RMS_INFO& ^^[мݫ TEST_IFI.$֧lkkYYZЬX,Zi h f  PROT_RETURN&%0eVFpWYW 2g~54  DSCR_RETURN&> ^^[0=VFHWYWgPP@P@iPЬ R,P b #NUMERICAL_RETURN&^^[0VF WFX;XTvPYQWQAi!0:ՠ1PWFIND_XABPkkYWl Լ (XGi Ь P,XGi`T`UХBADSTRNG*Invalid character string detected--ignored< ARGNOTALL(Illegal RMS field specification detected8BADNUM&Invalid numeric character string '!AS'<BADINFID)Invalid item spec for RMS_INFO, arg # !SL0 NOSUCHXABXAB !SL not found -- created8BADTIME%Invalid time format '!AS' encountered*FATALERRFatal error encounteredFBADIFI5Invalid Internal File Identifier encountered; val=!XLRMSIFww1@H01:PRINT_FILE_INFO0114-Dec-1983 22:3014-Dec-1983 22:30VAX-11 FORTRAN V3.4-56PRINT_FILE_INFOP hO\W)]X,#-L Nsys$error rat=cr;fop=mxv- -$ F I L E I N F O R M A T I O N D I S P L A Y  -File: ) --- )) = ) = ) = ) #) = )) = ) = P242f DD FNM_@OO RMS_CREATE@P  $( ,(0$4,8PPP<P4f^@PP@Q0QQFAB status wordFAB status valuRAB status wordRAB status valuMax rec # Max rec size# of Blocks Key size Last IO File access File type File options Record format Sharing Record access Record OptionsQ   PRINT_FILE_INFOPN[˸lk<FNM_P^XDIFI_P^\T RMS_CREATE^PPd RMS_PUTERRMSGFOR$STOPkl LIB$MOVC5޼ˈ˄RMS_INFO˸`~ FOR$ENCODE_MF FOR$IO_END RMS_PUTSEQ RMS_PUTSEQSTR$TRIM  RMS_PUTSEQ RMS_PUTSEQSTR$TRIM˸~ FOR$ENCODE_MFPP,0, FOR$IO_T_DS PP484 FOR$IO_T_DS FOR$IO_ENDSTR$TRIMݫ^@< RMS_PUTSEQ^Y˸~ FOR$ENCODE_MFYZ4J˱84 FOR$IO_T_DSIt FOR$IO_L_R,J0, FOR$IO_T_DSIx FOR$IO_L_R FOR$IO_ENDSTR$TRIM  RMS_PUTSEQL LIB$MOVC5Ithd RMS_GETERRMSGPhЏzp