6 FMSFLBFLI200 9-OCT-1989 17:48:4618-OCT-1990 04:31:04  PROFILJPROFIL2PROFIL3NPROFIL4XPROFIL52PROFIL5~MAIN2 FRM 9-OCT-1989 17:48:46 6 FMSFLBFED200 9-OCT-1989 17:47:48 9-OCT-1989 17:47:48  J BB " 20 >PPMAIN    # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help   DAY  DATE  ..#.F;L  b % )  @0@@BA 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ @ .TYPE2 .IF $RELEASE_NOTES NES "12" THEN DO RELNOTES' ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER !Z!  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN "<"  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE #V#  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER $T$  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL %%  OA$_MO_PRINT ELSE &6&  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ 'P'  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ (T(  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER )X)  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *P*  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER +X+  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE ,^,  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ -Z- ! OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK .N. "OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" /F/ #OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY 0J0 $OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 121 %OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 2.2 &OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 3(3 'OA$_MO_USER_DEFINED FORM WPEDUDP 4@4 (OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 5Z5 )OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 606 *OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 7X7 + ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 8 8 , ~~TRAINING~~ FORM CBIWPL 9V9 -.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= :(: ..DOWN OA$_GBL_BOTTOM_OF_FOLDER ;.; /.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC <N< 0.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER =L= 1.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >J> 2.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET ?X? 3 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= @D@ 4 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ABA 5.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST B$B 6CHOICE/HARD=OA$_WP_HRD_OPT C(C 7CURFDR/HARD=OA$_GBL_CURR_FOLDER D(D 8CURTITL/HARD=OA$_GBL_CURR_TITLE E"E 9MODATE/HARD=OA$_GBL_DATE F(F :CURNUM/HARD=OA$_GBL_CURR_NUMBER G&G ;.GOLD AFORM MAIN2\OA$FLD_DONE H*H < OA$_MO_MOREFORM MAIN2\OA$FLD_DONE I6I =.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" J6J >.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" K lqwqwqwqwqwqwqwqwqwqk L x M V N x O a P x Q x R x S i T  x U  n V  x W  a X  x Y t Z x [ i \ x ] o ^ x _ n ` x a  informatique b mqvqvqvqvqvqvqvqvqvqj c  d  SEL e" Select Folder: f - g %Title: h - i %Date: j - Modified on: k  C l" Create Number: m - n 4 o  E p Edit q  D r Delete s  P t Print u  R v Read w  ,FC x 1 File cabinet y  I z Index {  ,DT | 1Document transfer }  RI ~  Recall index  ,UD  1User-defined processing   S  Send  ,TR  1Training   EX  Exit $  Enter option and press RETURN, L  Gor press NEXT SCREEN for more options (more...)  FRM20-OCT-1989 22:37:04 6 FMSFLBFLG20020-OCT-1989 22:29:0120-OCT-1989 22:29:01  *,*,* $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE .TYPE0/POST= 'IFEXIT\DO SUBSCRIBER\GET #UPDT_USER=USER  .TYPE \DO SMNETUPDT " .TYPE\GET #FRMLIB=FRMLIB L .TYPE=\.IF #APP_CHANGE EQS 1 THEN COMMAND OA$LIB:MUA_SWITCH_APP_PRV $ .TYPE\\GET FRMLIB=#FRMLIB' , .FILEOA$DATA_SHARE:PROFILE.DAT,USER 2  .FORM_SETPROFIL2,PROFIL3,PROFIL4,PROFIL5 N USER@/RSE_RECOG=PROFIL.USER WITH .USER = USER AND NOT (.USER = "@" OR 2 USER$ .USER <=> ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' J TEMPLATE8/RSE_RECOG=SMTEMPLATE.TEMPLATE WITH .TEMPLATE = TEMPLATE , TEMPLATE/HARD=OA$_GBL_HRD_TEMPLATE $! VMSUSR/RECOG=UAF:.USERNAME !*" VMSUSR/HARD=OA$_GBL_VMS_USERNAME "*# FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB #*$ DIRECT/HARD=OA$_GBL_HRD_DIRECTORY $0% SURNAME1/POST='GET #SURNAME = SURNAME1' %*& SURNAME1/HARD=OA$_GBL_HRD_SURNAME &X'  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ '.(  FORENAME1 PUT_FIELD FULNAM, #FULNAM' (,)  FORENAME1/HARD=OA$_GBL_HRD_FORENAME )2*  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS *&+ FULNAM/HARD=OA$_GBL_FULL_NAME +", DEPART/HARD=OA$_GBL_DEPT ,,- LOCATION/HARD=OA$_GBL_HRD_LOCATION -&. COMPANY/HARD=OA$_GBL_COMPANY .4/  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION /00  GENERATION/HARD=OA$_GBL_HRD_GENERATION 0"1 PHONE/HARD=OA$_GBL_PHONE 122 INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE 2*3 !ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 3*4 "ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 4*5 #ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 5*6 $ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 6*7 %ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 7*8 &ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 8*9 'ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 9.: ( FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 :.; ) FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 ;.< * FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 <.= + FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 =,> ,SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 >,? -SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 ?.@ . INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 @.A / INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 A.B 0 INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 B.C 1 INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 C$D 2STATUS/HARD=OA$_GBL_STATUS DPE 3NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" E8F 4NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" G6H 6QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" I6J 8QPNOT(/RECOG=MAIL_READ_RECEIPT9/VALID=OA$TABLE:OA$_LANG_YNA_TABLE/LANGUAGE="Y,N,A/Y,N,A" PBQ ?MAIL_READ_RECEIPT(/RECOG=S A DELETE$UNREAD(/RECOG=U CEDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" U*V DSTART/HARD=OA$_GBL_HRD_INIT_FORM V.W E MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE W:X F MAIL_MENU(/RECOG= ":" OR NODE <=> " " cNd RNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID dJe SPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" e8f TPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" 8 TIMEFMT(/RECOG=  PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2  PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" >  PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: R KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM20-OCT-1989 22:37:11 6 FMSFLBFLG20020-OCT-1989 22:29:0920-OCT-1989 22:29:09   \\m $ 203PPPROFIL2  @ COMPANY  DEPART   LOCATION    INT_LOCATION    GENERATION  ( TITLE  PHONE  INTERNAL_PHONE  ( ADDR1  ( ADDR2  ( ADDR3  ( ADDR4  ( ADDR5  ( ADDR6  (  COUNTRY_NAME  ( ZIPCOD & @`t        C k!!     $ User Profile - continued (1)   Organization:   Department:   Location:  Internal location:   Generation:   Job title:  Business number:  Internal number:  Postal address:  Country:   Zip code: !R LEnter account details and press RETURN to complete, or press NEXT SCREEN for "V Omore fields. (more...) # FRM20-OCT-1989 22:37:16 6 FMSFLBFLG20020-OCT-1989 22:29:1620-OCT-1989 22:29:16    $ 20DPPPROFIL3    FORENAME2    FORENAME3    FORENAME4    FORENAME5  ( SURNAME2  ( SURNAME3    INITIALS2    INITIALS3    INITIALS4    INITIALS5  D STATUS    MAIL_REPLY   ANOTIFYY   AQPNOTY   AQBNOTY   ATICKLERY   AACTITEMY  N  MAIL_FORWARD  N  MAIL_FORWARD2  N  MAIL_FORWARD3  N  MAIL_FORWARD4  & &0 @ h   $  /   8  8  Z    $ User Profile - Continued (2) P IAlternative names (or spellings) which can be used to identify the user:   Given name:   Given name:  Surname:  Surname:   Initials: ! Status: " Notification of: # New mail (Y/N): $ Print completion(Y/N): % !Batch completion(Y/N): & Display Tasks(Y/N): ' !Count Tasks(Y/N): (R LEnter account details and press RETURN, or press NEXT SCREEN for more fields ) G (more...) * FRM20-OCT-1989 22:37:20 6 FMSFLBFLG20020-OCT-1989 22:29:2120-OCT-1989 22:29:21  ! . .  $ 20PPPROFIL4 " @MAIDESALL-IN-1 &  AMAIL_READ_RECEIPTY   @ MAIL_MENUEMC "  A DELETE$UNREADN   @STARTMAIN  @EDITORWPSPLUS   PASWRD &  AENFORCED_ARCHIVEN $  A MAIL$AREAOA$SHARE   @AD$MINN     DATE$FORMAT7 "   IMAGE$DISPLAYN   ATM$MENUTMMENU "  APRINT SYS$PRINT "  A PRINTER_PORTY   APRVDCLN   APRVSUPN   APRVERRN   APRVCMDN   APRVSRCN   APRVAPPN    A CORP_PHONEN   APRVLOGN   MDFLAGN    A MULTI_NODEN   ASET_MODE  @NODE !  A KEY$BOARD  F  F  4 >  ] 1 ^  f 1 g 7 h i s 3$).38>0; !   !$ User Profile - continued (3) " Mail destination: # -Send mail receipts(Y/N): $  Mail menu: % -Delete unread mail(Y/N): &  Initial form: '  Edit style: ( ALL-IN-1 password: ) Enforced archiving: * $ Mail area: + Administrator: , $ Date format: - Initial TM form: . Printer: / $ Printer port: 0D >ALL-IN-1 privileges: DCL SUP ERR CMD SRC APP CPHD LOG 1 Mail directory 2 MNODE 3 !Terminal mode: 4 5Node: 5 Keyboard mapping: 6R LEnter account details and press RETURN, or press NEXT SCREEN for more fields 7 G (more...) 8 FRM20-OCT-1989 22:37:25 6 FMSFLBFLG20020-OCT-1989 22:29:2620-OCT-1989 22:29:26  #  $ 20PPPROFIL5   STARTD2    STARTH08:00A    MEALS12:00P   NODAYS5   ENDH05:00P   MEALE01:00P   ATIMEFMTY $   CALTIMEINC00015   ASETUSRN  - OPER   CALDAY2  DDSID  + EXTRA1  ACLASS   AUFLAG1   AUFLAG2   AUFLAG3   AUFLAG4   AUFLAG5   AUFLAG6   AUFLAG7   AUFLAG8   AUFLAG9   AUFLAG10 "  ALANGUAGEENGLISH  2 EXTRA2  QUOTA10000 !  OVERDRAFT " DOCCOUNT #  @LOGINCHKN !" !G ! G  ;   $  % " R 0 S s  < 4!  ".# "   #$ User Profile - continued (4) $  Working week: %  First day: &  Start hour: ' 5Meal hour: Start: (  No. of days: )  End hour: * @End: + 12 hour clock: ,, %Calendar time increment (in minutes): -  Set User: .& Advanced calendar day position: / Class: 0  User Flags: 1 2 Language: 2 Document quota: 3 Permitted overdraft: 4 Document count: 5 Enforce Quota: 6, &Enter account details and press RETURN 7 FRM20-OCT-1989 22:42:59 6 FMSFLBFED20020-OCT-1989 22:42:4220-OCT-1989 22:42:42  ,,) $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE .TYPE0/POST= 'IFEXIT\DO SUBSCRIBER\GET #UPDT_USER=USER  .TYPE \DO SMNETUPDT " .TYPE\GET #FRMLIB=FRMLIB L .TYPE=\.IF #APP_CHANGE EQS 1 THEN COMMAND OA$LIB:MUA_SWITCH_APP_PRV $ .TYPE\\GET FRMLIB=#FRMLIB' , .FILEOA$DATA_SHARE:PROFILE.DAT,USER 2  .FORM_SETPROFIL2,PROFIL3,PROFIL4,PROFIL5 N USER@/RSE_RECOG=PROFIL.USER WITH .USER = USER AND NOT (.USER = "@" OR 2 USER$ .USER <=> ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' J TEMPLATE8/RSE_RECOG=SMTEMPLATE.TEMPLATE WITH .TEMPLATE = TEMPLATE , TEMPLATE/HARD=OA$_GBL_HRD_TEMPLATE $! VMSUSR/RECOG=UAF:.USERNAME !*" VMSUSR/HARD=OA$_GBL_VMS_USERNAME "*# FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB #*$ DIRECT/HARD=OA$_GBL_HRD_DIRECTORY $0% SURNAME1/POST='GET #SURNAME = SURNAME1' %*& SURNAME1/HARD=OA$_GBL_HRD_SURNAME &X'  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ '.(  FORENAME1 PUT_FIELD FULNAM, #FULNAM' (,)  FORENAME1/HARD=OA$_GBL_HRD_FORENAME )2*  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS *&+ FULNAM/HARD=OA$_GBL_FULL_NAME +", DEPART/HARD=OA$_GBL_DEPT ,,- LOCATION/HARD=OA$_GBL_HRD_LOCATION -&. COMPANY/HARD=OA$_GBL_COMPANY .4/  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION /00  GENERATION/HARD=OA$_GBL_HRD_GENERATION 0"1 PHONE/HARD=OA$_GBL_PHONE 122 INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE 2*3 !ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 3*4 "ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 4*5 #ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 5*6 $ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 6*7 %ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 7*8 &ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 8*9 'ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 9.: ( FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 :.; ) FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 ;.< * FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 <.= + FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 =,> ,SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 >,? -SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 ?.@ . INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 @.A / INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 A.B 0 INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 B.C 1 INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 C$D 2STATUS/HARD=OA$_GBL_STATUS DPE 3NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" E8F 4NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" G6H 6QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" I6J 8QPNOT(/RECOG=MAIL_READ_RECEIPT9/VALID=OA$TABLE:OA$_LANG_YNA_TABLE/LANGUAGE="Y,N,A/Y,N,A" PBQ ?MAIL_READ_RECEIPT(/RECOG=S A DELETE$UNREAD(/RECOG=U CEDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" U*V DSTART/HARD=OA$_GBL_HRD_INIT_FORM V.W E MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE W:X F MAIL_MENU(/RECOG= ":" OR NODE <=> " " cNd RNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID dJe SPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" e8f TPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" 8 TIMEFMT(/RECOG=  PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2  PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" >  PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM20-OCT-1989 22:54:36 6 FMSFLBFED20020-OCT-1989 22:54:3220-OCT-1989 22:54:32  ++) $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE .TYPE0/POST= 'IFEXIT\DO SUBSCRIBER\GET #UPDT_USER=USER  .TYPE \DO SMNETUPDT " .TYPE\GET #FRMLIB=FRMLIB L .TYPE=\.IF #APP_CHANGE EQS 1 THEN COMMAND OA$LIB:MUA_SWITCH_APP_PRV $ .TYPE\\GET FRMLIB=#FRMLIB' , .FILEOA$DATA_SHARE:PROFILE.DAT,USER 2  .FORM_SETPROFIL2,PROFIL3,PROFIL4,PROFIL5 N USER@/RSE_RECOG=PROFIL.USER WITH .USER = USER AND NOT (.USER = "@" OR 2 USER$ .USER <=> ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' J TEMPLATE8/RSE_RECOG=SMTEMPLATE.TEMPLATE WITH .TEMPLATE = TEMPLATE , TEMPLATE/HARD=OA$_GBL_HRD_TEMPLATE $! VMSUSR/RECOG=UAF:.USERNAME !*" VMSUSR/HARD=OA$_GBL_VMS_USERNAME "*# FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB #*$ DIRECT/HARD=OA$_GBL_HRD_DIRECTORY $0% SURNAME1/POST='GET #SURNAME = SURNAME1' %*& SURNAME1/HARD=OA$_GBL_HRD_SURNAME &X'  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ '.(  FORENAME1 PUT_FIELD FULNAM, #FULNAM' (,)  FORENAME1/HARD=OA$_GBL_HRD_FORENAME )2*  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS *&+ FULNAM/HARD=OA$_GBL_FULL_NAME +", DEPART/HARD=OA$_GBL_DEPT ,,- LOCATION/HARD=OA$_GBL_HRD_LOCATION -&. COMPANY/HARD=OA$_GBL_COMPANY .4/  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION /00  GENERATION/HARD=OA$_GBL_HRD_GENERATION 0"1 PHONE/HARD=OA$_GBL_PHONE 122 INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE 2*3 !ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 3*4 "ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 4*5 #ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 5*6 $ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 6*7 %ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 7*8 &ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 8*9 'ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 9.: ( FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 :.; ) FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 ;.< * FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 <.= + FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 =,> ,SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 >,? -SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 ?.@ . INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 @.A / INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 A.B 0 INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 B.C 1 INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 C$D 2STATUS/HARD=OA$_GBL_STATUS DPE 3NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" E8F 4NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" G6H 6QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" I6J 8QPNOT(/RECOG=MAIL_READ_RECEIPT9/VALID=OA$TABLE:OA$_LANG_YNA_TABLE/LANGUAGE="Y,N,A/Y,N,A" PBQ ?MAIL_READ_RECEIPT(/RECOG=S A DELETE$UNREAD(/RECOG=U CEDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" U*V DSTART/HARD=OA$_GBL_HRD_INIT_FORM V.W E MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE W:X F MAIL_MENU(/RECOG= ":" OR NODE <=> " " cNd RNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID dJe SPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" e8f TPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" 8 TIMEFMT(/RECOG=  PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2  PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" >  PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM18-NOV-1989 23:00:49 6 FMSFLBFED20018-NOV-1989 23:00:3018-NOV-1989 23:00:30  I  " 20 =PPMAIN  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help   DAY  DATE  ..#.F;L  b B F  0B0B 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN <!  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE !V"  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER "T#  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL #$  OA$_MO_PRINT ELSE $6%  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ %P&  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ &T'  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER 'X(  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE (P)  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER )X*  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *^+  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ +Z,  OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK ,N- !OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" -F. "OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY .J/ #OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY /20 $OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 0.1 %OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 1(2 &OA$_MO_USER_DEFINED FORM WPEDUDP 2@3 'OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 3Z4 (OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 405 )OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 5X6 * ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 6 7 + ~~TRAINING~~ FORM CBIWPL 7V8 ,.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 8(9 -.DOWN OA$_GBL_BOTTOM_OF_FOLDER 9.: ..DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC :N; /.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER ;L< 0.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET <J= 1.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =X> 2 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= >D? 3 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ?B@ 4.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST @$A 5CHOICE/HARD=OA$_WP_HRD_OPT A(B 6CURFDR/HARD=OA$_GBL_CURR_FOLDER B(C 7CURTITL/HARD=OA$_GBL_CURR_TITLE C"D 8MODATE/HARD=OA$_GBL_DATE D(E 9CURNUM/HARD=OA$_GBL_CURR_NUMBER E&F :.GOLD AFORM MAIN2\OA$FLD_DONE F*G ; OA$_MO_MOREFORM MAIN2\OA$FLD_DONE G6H <.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" H6I =.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" I lqwqwqwqwqwqwqwqwqwqk J x K V L x M a N x O  x P  x Q  i R  x S  n T x U a V x W t X x Y i Z x [ o \ x ] n ^ x _  informatique ` mqvqvqvqvqvqvqvqvqvqj a  b  SEL c" Select Folder: d - e %Title: f - g %Date: h - Modified on: i  C j" Create Number: k - l 4 m  E n Edit o  D p Delete q  P r Print s  R t Read u  ,FC v 1 File cabinet w  I x Index y  ,DT z 1Document transfer {  RI |  Recall index } ,UD ~ 1User-defined processing   S  Send  ,TR  1Training   EX  Exit $  Enter option and press RETURN, L  Gor press NEXT SCREEN for more options (more...)  FRM19-NOV-1989 03:16:01 6 FMSFLBFED20019-NOV-1989 03:14:3919-NOV-1989 03:14:39  I  " 20 =PPMAIN    # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help   DAY  DATE  ..#.F;L  b B F  0@ 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN !<!  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE "V"  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER #T#  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL $$  OA$_MO_PRINT ELSE %6%  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ &P&  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ 'T'  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER (X(  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE )P)  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER *X*  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE +^+  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ ,Z,  OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK -N- !OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" .F. "OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY /J/ #OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 020 $OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 1.1 %OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 2(2 &OA$_MO_USER_DEFINED FORM WPEDUDP 3@3 'OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 4Z4 (OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 505 )OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 6X6 * ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 7 7 + ~~TRAINING~~ FORM CBIWPL 8V8 ,.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 9(9 -.DOWN OA$_GBL_BOTTOM_OF_FOLDER :.: ..DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC ;N; /.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER <L< 0.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =J= 1.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >X> 2 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= ?D? 3 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC @B@ 4.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST A$A 5CHOICE/HARD=OA$_WP_HRD_OPT B(B 6CURFDR/HARD=OA$_GBL_CURR_FOLDER C(C 7CURTITL/HARD=OA$_GBL_CURR_TITLE D"D 8MODATE/HARD=OA$_GBL_DATE E(E 9CURNUM/HARD=OA$_GBL_CURR_NUMBER F&F :.GOLD AFORM MAIN2\OA$FLD_DONE G*G ; OA$_MO_MOREFORM MAIN2\OA$FLD_DONE H6H <.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" I6I =.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" J Vaxination informatique KV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq L  SEL M" Select Folder: N - O %Title: P - Q %Date: R - Modified on: S  C T" Create Number: U - V 4 W  E X Edit Y  D Z Delete [  P \ Print ]  R ^ Read _  ,FC ` 1 File cabinet a  I b Index c  ,DT d 1Document transfer e  RI f  Recall index g ,UD h 1User-defined processing i  S j Send k ,TR l 1Training m  EX n Exit o$  Enter option and press RETURN, pL  Gor press NEXT SCREEN for more options (more...) q FRM19-NOV-1989 03:16:10 6 FMSFLBFED20019-NOV-1989 03:15:2419-NOV-1989 03:15:24  5 _ " 20 )PPMAIN2     DAY  DATE . F CHOICEPress GOLD H for Help   CURNUM  " CURFDR  " CURTITL   MODATE  AE /T /Z /| <  0@ H .TYPE:MENU /CHOICE=CHOICE/CLEAR/DATE=DATE/GET=DAY,OA$DAY;CURFDR, L .TYPE>"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; " .TYPECURNUM,"$WPDOC:6:30"  .TYPE/MORE="MAIN,FC1" D .TYPE6/PRE='GET #CURDOC="$WPDOC"\.IF $WPDOC:6:30 NES "" THEN 2 .TYPE# CAB CURRENT $WPDOC ELSE CAB CLEAR' * .TYPE/HARD=OA$_WPCONT1_HRD_TITLE 2 OA$_MO_LIST_PROCESSINGXOP "WP$WPCONT1_LP" . OA$_MO_SPELL_CHECKXOP "WP$WPCONT1_SC" 0 OA$_MO_DICTIONARIESXOP "WP$WPCONT1_DIC" 8 OA$_MO_PARAGRAPH_NUMBERINGXOP "WP$WPCONT1_SCD" * OA$_MO_DECPAGEXOP "WP$WPCONT1_DP" 2 OA$_MO_GRAMMAR_CHECKERXOP "WP$WPCONT1_GC" < OA$_MO_GRAMMAR_CHECKER_DEFAULTSXOP "WP$WPCONT1_GCD" $  WP$WPCONT1_LP FORM WPLPMENU H  WP$WPCONT1_SC2GET #CURDOC="$WPDOC"\.IF @#CURDOC:6:30 == "" THEN P  WP$WPCONT1_SC: .FX GET OA$DISPLAY= OA$_GBL_NODOCSEL\\FORCE\\OA$FLD_DONE   WP$WPCONT1_SC ELSE V  WP$WPCONT1_SC? GET #SCRIPT="LNGSPLSC2"\\GET #METERNAME=OA$_WP_SPELL\\DO METER  WP$WPCONT1_DICFORM SCD !P! WP$WPCONT1_SCD9GET #SCRIPT="PARANUM"\GET #METERNAME=OA$_WP_PARA\DO METER "N"  WP$WPCONT1_DP7GET #DP=OA$DIR:"*.*".%WHOLE["DECPAGE$EXE:TYPESET.EXE"]\ #J#  WP$WPCONT1_DP3 .IF #DP NES "" THEN FORM DECP ELSE GET OA$DISPLAY= $6$  WP$WPCONT1_DP OA$_WP_WPSPLUS_NO_DECPAGE\FORCE %J%  WP$WPCONT1_GC4GET #GC=OA$DIR:"*.*".%WHOLE["GCS$DATA:GCSDISK.DAT"]\ &L&  WP$WPCONT1_GC6 .IF #GC NES "" THEN DO GRAMCHECK ELSE GET OA$DISPLAY= '8'  WP$WPCONT1_GC" OA$_WP_WPSPLUS_NO_GRAMCHECK\FORCE ((( WP$WPCONT1_GCDFORM GRAMMARDEFS )() CHOICE/HARD=OA$_WPCONT1_HRD_OPT *V* .DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= +(+ .DOWN OA$_GBL_BOTTOM_OF_FOLDER ,., .DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC -N- !.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER .L. ".GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET /J/ #.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET 0X0 $ .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 1D1 % .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC 2B2 &.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST 3&3 '.GOLD AFORM MAIN\OA$FLD_DONE 444 (.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN" 545 ).PC PREV SCREENGET OA$MENU_REMAINDER="MAIN" 6 Vaxination informatique 7V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 8  SEL 9" Select Folder: : . ; &Title: < . = &Date: > . Modified on: ? &Number: @ . A 5 B2  -Word and Document Processing - continued (1) C  SC D  Spell check E  ,LP F 1List processing G  DIC H  Dictionaries I ,DP J 1DECpage document formatting K ,PN L 1Paragraph numbering M  GC N Grammar checker O  GCD P Grammar checker defaults Q"  Enter option and press RETURN R FRM19-NOV-1989 03:23:45 6 FMSFLBFED20019-NOV-1989 03:19:0619-NOV-1989 03:19:06  5 _ " 20 )PPMAIN2     DAY  DATE . F CHOICEPress GOLD H for Help   CURNUM  " CURFDR  " CURTITL   MODATE  AE /T /Z /| <  0@ H .TYPE:MENU /CHOICE=CHOICE/CLEAR/DATE=DATE/GET=DAY,OA$DAY;CURFDR, L .TYPE>"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; " .TYPECURNUM,"$WPDOC:6:30"  .TYPE/MORE="MAIN,FC1" D .TYPE6/PRE='GET #CURDOC="$WPDOC"\.IF $WPDOC:6:30 NES "" THEN 2 .TYPE# CAB CURRENT $WPDOC ELSE CAB CLEAR' * .TYPE/HARD=OA$_WPCONT1_HRD_TITLE 2 OA$_MO_LIST_PROCESSINGXOP "WP$WPCONT1_LP" . OA$_MO_SPELL_CHECKXOP "WP$WPCONT1_SC" 0 OA$_MO_DICTIONARIESXOP "WP$WPCONT1_DIC" 8 OA$_MO_PARAGRAPH_NUMBERINGXOP "WP$WPCONT1_SCD" * OA$_MO_DECPAGEXOP "WP$WPCONT1_DP" 2 OA$_MO_GRAMMAR_CHECKERXOP "WP$WPCONT1_GC" < OA$_MO_GRAMMAR_CHECKER_DEFAULTSXOP "WP$WPCONT1_GCD" $  WP$WPCONT1_LP FORM WPLPMENU H  WP$WPCONT1_SC1GET #CURDOC="$WPDOC"\.IF @#CURDOC:6:30 == "" THEN P  WP$WPCONT1_SC9 .FX GET OA$DISPLAY= OA$_GBL_NODOCSEL\\FORCE\\OA$FLD_DONE   WP$WPCONT1_SC ELSE V  WP$WPCONT1_SC? GET #SCRIPT="LNGSPLSC2"\\GET #METERNAME=OA$_WP_SPELL\\DO METER  WP$WPCONT1_DICFORM SCD !P! WP$WPCONT1_SCD9GET #SCRIPT="PARANUM"\GET #METERNAME=OA$_WP_PARA\DO METER "N"  WP$WPCONT1_DP7GET #DP=OA$DIR:"*.*".%WHOLE["DECPAGE$EXE:TYPESET.EXE"]\ #J#  WP$WPCONT1_DP3 .IF #DP NES "" THEN FORM DECP ELSE GET OA$DISPLAY= $6$  WP$WPCONT1_DP OA$_WP_WPSPLUS_NO_DECPAGE\FORCE %J%  WP$WPCONT1_GC4GET #GC=OA$DIR:"*.*".%WHOLE["GCS$DATA:GCSDISK.DAT"]\ &L&  WP$WPCONT1_GC6 .IF #GC NES "" THEN DO GRAMCHECK ELSE GET OA$DISPLAY= '8'  WP$WPCONT1_GC" OA$_WP_WPSPLUS_NO_GRAMCHECK\FORCE ((( WP$WPCONT1_GCDFORM GRAMMARDEFS )() CHOICE/HARD=OA$_WPCONT1_HRD_OPT *V* .DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= +(+ .DOWN OA$_GBL_BOTTOM_OF_FOLDER ,., .DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC -N- !.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER .L. ".GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET /J/ #.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET 0X0 $ .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 1D1 % .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC 2B2 &.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST 3&3 '.GOLD AFORM MAIN\OA$FLD_DONE 444 (.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN" 545 ).PC PREV SCREENGET OA$MENU_REMAINDER="MAIN" 6 Vaxination informatique 7V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 8  SEL 9" Select Folder: : . ; &Title: < . = &Date: > . Modified on: ? &Number: @ . A 5 B2  -Word and Document Processing - continued (1) C  SC D  Spell check E  ,LP F 1List processing G  DIC H  Dictionaries I ,DP J 1DECpage document formatting K ,PN L 1Paragraph numbering M  GC N Grammar checker O  GCD P Grammar checker defaults Q"  Enter option and press RETURN R FRM19-NOV-1989 03:23:55 6 FMSFLBFED20019-NOV-1989 03:23:3919-NOV-1989 03:23:39  I  " 20 =PPMAIN     DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  BF  .T .Z.} ;  0@ 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN !<!  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE "V"  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER #T#  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL $$  OA$_MO_PRINT ELSE %6%  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ &P&  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ 'T'  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER (X(  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE )P)  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER *X*  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE +^+  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ ,Z,  OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK -N- !OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" .F. "OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY /J/ #OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 020 $OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 1.1 %OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 2(2 &OA$_MO_USER_DEFINED FORM WPEDUDP 3@3 'OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 4Z4 (OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 505 )OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 6X6 * ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 7 7 + ~~TRAINING~~ FORM CBIWPL 8V8 ,.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 9(9 -.DOWN OA$_GBL_BOTTOM_OF_FOLDER :.: ..DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC ;N; /.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER <L< 0.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =J= 1.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >X> 2 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= ?D? 3 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC @B@ 4.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST A$A 5CHOICE/HARD=OA$_WP_HRD_OPT B(B 6CURFDR/HARD=OA$_GBL_CURR_FOLDER C(C 7CURTITL/HARD=OA$_GBL_CURR_TITLE D"D 8MODATE/HARD=OA$_GBL_DATE E(E 9CURNUM/HARD=OA$_GBL_CURR_NUMBER F&F :.GOLD AFORM MAIN2\OA$FLD_DONE G*G ; OA$_MO_MOREFORM MAIN2\OA$FLD_DONE H6H <.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" I6I =.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" J Vaxination informatique KV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq L  SEL M" Select Folder: N - O %Title: P - Q %Date: R - Modified on: S  C T" Create Number: U - V 4 W  E X Edit Y  D Z Delete [  P \ Print ]  R ^ Read _  ,FC ` 1 File cabinet a  I b Index c  ,DT d 1Document transfer e  RI f  Recall index g ,UD h 1User-defined processing i  S j Send k ,TR l 1Training m  EX n Exit o$  Enter option and press RETURN, pL  Gor press NEXT SCREEN for more options (more...) q FRM19-NOV-1989 03:33:54 6 FMSFLBFED20019-NOV-1989 03:33:3819-NOV-1989 03:33:38  I  " 20 =PPMAIN     DAY  DATE . F CHOICEPress GOLD H for Help   CURNUM  # CURFDR  # CURTITL   MODATE  BF. .1 .T ;Z  p  0@ 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN !<!  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE "V"  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER #T#  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL $$  OA$_MO_PRINT ELSE %6%  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ &P&  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ 'T'  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER (X(  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE )P)  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER *X*  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE +^+  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ ,Z,  OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK -N- !OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" .F. "OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY /J/ #OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 020 $OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 1.1 %OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 2(2 &OA$_MO_USER_DEFINED FORM WPEDUDP 3@3 'OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 4Z4 (OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 505 )OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 6X6 * ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 7 7 + ~~TRAINING~~ FORM CBIWPL 8V8 ,.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 9(9 -.DOWN OA$_GBL_BOTTOM_OF_FOLDER :.: ..DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC ;N; /.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER <L< 0.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =J= 1.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >X> 2 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= ?D? 3 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC @B@ 4.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST A$A 5CHOICE/HARD=OA$_WP_HRD_OPT B(B 6CURFDR/HARD=OA$_GBL_CURR_FOLDER C(C 7CURTITL/HARD=OA$_GBL_CURR_TITLE D"D 8MODATE/HARD=OA$_GBL_DATE E(E 9CURNUM/HARD=OA$_GBL_CURR_NUMBER F&F :.GOLD AFORM MAIN2\OA$FLD_DONE G*G ; OA$_MO_MOREFORM MAIN2\OA$FLD_DONE H6H <.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" I6I =.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" J Vaxination informatique KV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq L  SEL M" Select Folder: N - O %Title: P - Q %Date: R - Modified on: S  C T" Create Number: U - V 4 W  E X Edit Y  D Z Delete [  P \ Print ]  R ^ Read _  ,FC ` 1 File cabinet a  I b Index c  ,DT d 1Document transfer e  RI f  Recall index g ,UD h 1User-defined processing i  S j Send k ,TR l 1Training m  EX n Exit o$  Enter option and press RETURN, pL  Gor press NEXT SCREEN for more options (more...) q FRM19-NOV-1989 03:41:52 6 FMSFLBFED20019-NOV-1989 03:41:4419-NOV-1989 03:41:44  I  " 20 =PPMAIN   DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  BF..1 .T ;Z  p  0 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN <!  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE !V"  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER "T#  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL #$  OA$_MO_PRINT ELSE $6%  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ %P&  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ &T'  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER 'X(  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE (P)  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER )X*  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *^+  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ +Z,  OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK ,N- !OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" -F. "OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY .J/ #OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY /20 $OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 0.1 %OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 1(2 &OA$_MO_USER_DEFINED FORM WPEDUDP 2@3 'OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 3Z4 (OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 405 )OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 5X6 * ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 6 7 + ~~TRAINING~~ FORM CBIWPL 7V8 ,.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 8(9 -.DOWN OA$_GBL_BOTTOM_OF_FOLDER 9.: ..DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC :N; /.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER ;L< 0.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET <J= 1.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =X> 2 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= >D? 3 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ?B@ 4.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST @$A 5CHOICE/HARD=OA$_WP_HRD_OPT A(B 6CURFDR/HARD=OA$_GBL_CURR_FOLDER B(C 7CURTITL/HARD=OA$_GBL_CURR_TITLE C"D 8MODATE/HARD=OA$_GBL_DATE D(E 9CURNUM/HARD=OA$_GBL_CURR_NUMBER E&F :.GOLD AFORM MAIN2\OA$FLD_DONE F*G ; OA$_MO_MOREFORM MAIN2\OA$FLD_DONE G6H <.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" H6I =.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" I Vaxination informatique JV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq K  SEL L" Select Folder: M - N %Title: O - P %Date: Q - Modified on: R  C S" Create Number: T - U 4 V  E W Edit X  D Y Delete Z  P [ Print \  R ] Read ^  ,FC _ 1 File cabinet `  I a Index b  ,DT c 1Document transfer d  RI e  Recall index f ,UD g 1User-defined processing h  S i Send j ,TR k 1Training l  EX m Exit n$  Enter option and press RETURN, oL  Gor press NEXT SCREEN for more options (more...) p FRM19-NOV-1989 03:45:32 6 FMSFLBFED20019-NOV-1989 03:45:2519-NOV-1989 03:45:25  I  " 20 =PPMAIN  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help   DAY  DATE  ..#.F;L  b + /  0 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN <!  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE !V"  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER "T#  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL #$  OA$_MO_PRINT ELSE $6%  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ %P&  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ &T'  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER 'X(  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE (P)  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER )X*  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *^+  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ +Z,  OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK ,N- !OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" -F. "OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY .J/ #OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY /20 $OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 0.1 %OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 1(2 &OA$_MO_USER_DEFINED FORM WPEDUDP 2@3 'OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 3Z4 (OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 405 )OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 5X6 * ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 6 7 + ~~TRAINING~~ FORM CBIWPL 7V8 ,.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 8(9 -.DOWN OA$_GBL_BOTTOM_OF_FOLDER 9.: ..DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC :N; /.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER ;L< 0.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET <J= 1.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =X> 2 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= >D? 3 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ?B@ 4.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST @$A 5CHOICE/HARD=OA$_WP_HRD_OPT A(B 6CURFDR/HARD=OA$_GBL_CURR_FOLDER B(C 7CURTITL/HARD=OA$_GBL_CURR_TITLE C"D 8MODATE/HARD=OA$_GBL_DATE D(E 9CURNUM/HARD=OA$_GBL_CURR_NUMBER E&F :.GOLD AFORM MAIN2\OA$FLD_DONE F*G ; OA$_MO_MOREFORM MAIN2\OA$FLD_DONE G6H <.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" H6I =.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" I Vaxination informatique JV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq K  SEL L" Select Folder: M - N %Title: O - P %Date: Q - Modified on: R  C S" Create Number: T - U 4 V  E W Edit X  D Y Delete Z  P [ Print \  R ] Read ^  ,FC _ 1 File cabinet `  I a Index b  ,DT c 1Document transfer d  RI e  Recall index f ,UD g 1User-defined processing h  S i Send j ,TR k 1Training l  EX m Exit n$  Enter option and press RETURN, oL  Gor press NEXT SCREEN for more options (more...) p FRM19-NOV-1989 03:52:10 6 FMSFLBFED20019-NOV-1989 03:51:1319-NOV-1989 03:51:13  I  " 20 =PPMAIN  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help   DAY  DATE  ? C ..1.T;Z  p  0 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN <!  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE !V"  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER "T#  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL #$  OA$_MO_PRINT ELSE $6%  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ %P&  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ &T'  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER 'X(  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE (P)  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER )X*  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *^+  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ +Z,  OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK ,N- !OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" -F. "OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY .J/ #OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY /20 $OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 0.1 %OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 1(2 &OA$_MO_USER_DEFINED FORM WPEDUDP 2@3 'OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 3Z4 (OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 405 )OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 5X6 * ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 6 7 + ~~TRAINING~~ FORM CBIWPL 7V8 ,.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 8(9 -.DOWN OA$_GBL_BOTTOM_OF_FOLDER 9.: ..DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC :N; /.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER ;L< 0.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET <J= 1.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =X> 2 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= >D? 3 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ?B@ 4.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST @$A 5CHOICE/HARD=OA$_WP_HRD_OPT A(B 6CURFDR/HARD=OA$_GBL_CURR_FOLDER B(C 7CURTITL/HARD=OA$_GBL_CURR_TITLE C"D 8MODATE/HARD=OA$_GBL_DATE D(E 9CURNUM/HARD=OA$_GBL_CURR_NUMBER E&F :.GOLD AFORM MAIN2\OA$FLD_DONE F*G ; OA$_MO_MOREFORM MAIN2\OA$FLD_DONE G6H <.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" H6I =.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" I Vaxination informatique JV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq K  SEL L" Select Folder: M - N %Title: O - P %Date: Q - Modified on: R  C S" Create Number: T - U 4 V  E W Edit X  D Y Delete Z  P [ Print \  R ] Read ^  ,FC _ 1 File cabinet `  I a Index b  ,DT c 1Document transfer d  RI e  Recall index f ,UD g 1User-defined processing h  S i Send j ,TR k 1Training l  EX m Exit n$  Enter option and press RETURN, oL  Gor press NEXT SCREEN for more options (more...) p FRM19-NOV-1989 03:52:15 6 FMSFLBFED20019-NOV-1989 03:52:0419-NOV-1989 03:52:04  5 _ " 20 )PPMAIN2     DAY  DATE . F CHOICEPress GOLD H for Help   CURNUM  " CURFDR  " CURTITL   MODATE  AE/ /0 /R <X  m  0@ H .TYPE:MENU /CHOICE=CHOICE/CLEAR/DATE=DATE/GET=DAY,OA$DAY;CURFDR, L .TYPE>"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; " .TYPECURNUM,"$WPDOC:6:30"  .TYPE/MORE="MAIN,FC1" D .TYPE6/PRE='GET #CURDOC="$WPDOC"\.IF $WPDOC:6:30 NES "" THEN 2 .TYPE# CAB CURRENT $WPDOC ELSE CAB CLEAR' * .TYPE/HARD=OA$_WPCONT1_HRD_TITLE 2 OA$_MO_LIST_PROCESSINGXOP "WP$WPCONT1_LP" . OA$_MO_SPELL_CHECKXOP "WP$WPCONT1_SC" 0 OA$_MO_DICTIONARIESXOP "WP$WPCONT1_DIC" 8 OA$_MO_PARAGRAPH_NUMBERINGXOP "WP$WPCONT1_SCD" * OA$_MO_DECPAGEXOP "WP$WPCONT1_DP" 2 OA$_MO_GRAMMAR_CHECKERXOP "WP$WPCONT1_GC" < OA$_MO_GRAMMAR_CHECKER_DEFAULTSXOP "WP$WPCONT1_GCD" $  WP$WPCONT1_LP FORM WPLPMENU H  WP$WPCONT1_SC1GET #CURDOC="$WPDOC"\.IF @#CURDOC:6:30 == "" THEN P  WP$WPCONT1_SC9 .FX GET OA$DISPLAY= OA$_GBL_NODOCSEL\\FORCE\\OA$FLD_DONE   WP$WPCONT1_SC ELSE V  WP$WPCONT1_SC? GET #SCRIPT="LNGSPLSC2"\\GET #METERNAME=OA$_WP_SPELL\\DO METER  WP$WPCONT1_DICFORM SCD !P! WP$WPCONT1_SCD9GET #SCRIPT="PARANUM"\GET #METERNAME=OA$_WP_PARA\DO METER "N"  WP$WPCONT1_DP7GET #DP=OA$DIR:"*.*".%WHOLE["DECPAGE$EXE:TYPESET.EXE"]\ #J#  WP$WPCONT1_DP3 .IF #DP NES "" THEN FORM DECP ELSE GET OA$DISPLAY= $6$  WP$WPCONT1_DP OA$_WP_WPSPLUS_NO_DECPAGE\FORCE %J%  WP$WPCONT1_GC4GET #GC=OA$DIR:"*.*".%WHOLE["GCS$DATA:GCSDISK.DAT"]\ &L&  WP$WPCONT1_GC6 .IF #GC NES "" THEN DO GRAMCHECK ELSE GET OA$DISPLAY= '8'  WP$WPCONT1_GC" OA$_WP_WPSPLUS_NO_GRAMCHECK\FORCE ((( WP$WPCONT1_GCDFORM GRAMMARDEFS )() CHOICE/HARD=OA$_WPCONT1_HRD_OPT *V* .DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= +(+ .DOWN OA$_GBL_BOTTOM_OF_FOLDER ,., .DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC -N- !.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER .L. ".GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET /J/ #.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET 0X0 $ .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 1D1 % .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC 2B2 &.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST 3&3 '.GOLD AFORM MAIN\OA$FLD_DONE 444 (.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN" 545 ).PC PREV SCREENGET OA$MENU_REMAINDER="MAIN" 6 Vaxination informatique 7V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 8  SEL 9" Select Folder: : . ; &Title: < . = &Date: > . Modified on: ? &Number: @ . A 5 B2  -Word and Document Processing - continued (1) C  SC D  Spell check E  ,LP F 1List processing G  DIC H  Dictionaries I ,DP J 1DECpage document formatting K ,PN L 1Paragraph numbering M  GC N Grammar checker O  GCD P Grammar checker defaults Q"  Enter option and press RETURN R FRM19-NOV-1989 04:10:27 6 FMSFLBFLG20019-NOV-1989 04:09:5319-NOV-1989 04:09:53  J XX " 20 >PPMAIN   DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  AE..1 .T ;Z  p  00 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ @ .TYPE2 .IF $RELEASE_NOTES NES "12" THEN DO RELNOTES' ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z!  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN !<"  OA$_MO_DELETE& GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE "V#  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER #T$  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL $%  OA$_MO_PRINT ELSE %6&  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ &P'  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ 'T(  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER (X)  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE )P*  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER *X+  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE +^,  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ ,L- ! OA$_MO_SEND7COPY OA$CURDOC_FILENAME "MAILFILE.TXT"\\COMMAND WPSMAIL -N. "OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" .F/ #OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY /J0 $OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 021 %OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 1.2 &OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 2(3 'OA$_MO_USER_DEFINED FORM WPEDUDP 3@4 (OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 4Z5 )OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 506 *OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 6X7 + ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 7 8 , ~~TRAINING~~ FORM CBIWPL 8V9 -.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 9(: ..DOWN OA$_GBL_BOTTOM_OF_FOLDER :.; /.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC ;N< 0.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER <L= 1.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =J> 2.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >X? 3 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= ?D@ 4 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC @BA 5.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST A$B 6CHOICE/HARD=OA$_WP_HRD_OPT B(C 7CURFDR/HARD=OA$_GBL_CURR_FOLDER C(D 8CURTITL/HARD=OA$_GBL_CURR_TITLE D"E 9MODATE/HARD=OA$_GBL_DATE E(F :CURNUM/HARD=OA$_GBL_CURR_NUMBER F&G ;.GOLD AFORM MAIN2\OA$FLD_DONE G*H < OA$_MO_MOREFORM MAIN2\OA$FLD_DONE H6I =.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" I6J >.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" J lqwqwqwqwqwqwqk K x L d M x N  i O  x P  g Q  x R  i S x T t U x V a W x X l Y x Z  [  \  WPS-PLUS/VMS V3.0 ] mqvqvqvqvqvqvqj ^( "Word and Document Processing Menu _  SEL `$ Select Folder: a - b %Title: c - d %Date: e - Modified on: f  C g$ Create Number: h - i 4 j  E k Edit l  D m Delete n  P o Print p  R q Read r  ,FC s 1 File cabinet t  I u Index v  ,DT w 1Document transfer x  RI y  Recall index z ,UD { 1User-defined processing |  S } Send ~ ,TR  1Training   EX  Exit $  Enter option and press RETURN, N  Gor press NEXT SCREEN for more options (more...)  FRM19-NOV-1989 04:12:58 6 FMSFLBFED20019-NOV-1989 04:12:5419-NOV-1989 04:12:54  J JJ " 20 >PPMAIN     DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  AE..1 .T ;Z  p  00@ 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ @ .TYPE2 .IF $RELEASE_NOTES NES "12" THEN DO RELNOTES' ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER !Z!  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN "<"  OA$_MO_DELETE& GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE #V#  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER $T$  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL %%  OA$_MO_PRINT ELSE &6&  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ 'P'  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ (T(  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER )X)  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *P*  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER +X+  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE ,^,  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ -L- ! OA$_MO_SEND7COPY OA$CURDOC_FILENAME "MAILFILE.TXT"\\COMMAND WPSMAIL .N. "OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" /F/ #OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY 0J0 $OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 121 %OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 2.2 &OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 3(3 'OA$_MO_USER_DEFINED FORM WPEDUDP 4@4 (OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 5Z5 )OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 606 *OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 7X7 + ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 8 8 , ~~TRAINING~~ FORM CBIWPL 9V9 -.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= :(: ..DOWN OA$_GBL_BOTTOM_OF_FOLDER ;.; /.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC <N< 0.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER =L= 1.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >J> 2.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET ?X? 3 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= @D@ 4 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ABA 5.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST B$B 6CHOICE/HARD=OA$_WP_HRD_OPT C(C 7CURFDR/HARD=OA$_GBL_CURR_FOLDER D(D 8CURTITL/HARD=OA$_GBL_CURR_TITLE E"E 9MODATE/HARD=OA$_GBL_DATE F(F :CURNUM/HARD=OA$_GBL_CURR_NUMBER G&G ;.GOLD AFORM MAIN2\OA$FLD_DONE H*H < OA$_MO_MOREFORM MAIN2\OA$FLD_DONE I6I =.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" J6J >.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" K Vaxination informatique LV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq M  SEL N" Select Folder: O - P %Title: Q - R %Date: S - Modified on: T  C U" Create Number: V - W 4 X  E Y Edit Z  D [ Delete \  P ] Print ^  R _ Read `  ,FC a 1 File cabinet b  I c Index d  ,DT e 1Document transfer f  RI g  Recall index h ,UD i 1User-defined processing j  S k Send l ,TR m 1Training n  EX o Exit p$  Enter option and press RETURN, qL  Gor press NEXT SCREEN for more options (more...) r FRM19-NOV-1989 04:18:18 6 FMSFLBFED20019-NOV-1989 04:17:5919-NOV-1989 04:17:59  H  " 20 <PPMAIN     DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  ?C..1 .T ;Z  p  0@ 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN <  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE !V!  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER "T"  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ##  OA$_MO_PRINT ELSE $6$  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ %P%  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ &T&  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER 'X'  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE (P(  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER )X)  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *^*  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ +Z+  OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK ,N, OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" -F- !OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY .J. "OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY /2/ #OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 0.0 $OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 1(1 %OA$_MO_USER_DEFINED FORM WPEDUDP 2@2 &OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 3Z3 'OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 404 (OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 5X5 ) ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 6 6 * ~~TRAINING~~ FORM CBIWPL 7V7 +.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 8(8 ,.DOWN OA$_GBL_BOTTOM_OF_FOLDER 9.9 -.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC :N: ..UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER ;L; /.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET <J< 0.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =X= 1 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= >D> 2 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ?B? 3.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST @$@ 4CHOICE/HARD=OA$_WP_HRD_OPT A(A 5CURFDR/HARD=OA$_GBL_CURR_FOLDER B(B 6CURTITL/HARD=OA$_GBL_CURR_TITLE C"C 7MODATE/HARD=OA$_GBL_DATE D(D 8CURNUM/HARD=OA$_GBL_CURR_NUMBER E&E 9.GOLD AFORM MAIN2\OA$FLD_DONE F*F : OA$_MO_MOREFORM MAIN2\OA$FLD_DONE G6G ;.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" H6H <.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" I Vaxination informatique JV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq K  SEL L" Select Folder: M - N %Title: O - P %Date: Q - Modified on: R  C S" Create Number: T - U 4 V  E W Edit X  D Y Delete Z  P [ Print \  R ] Read ^  ,FC _ 1 File cabinet `  I a Index b  ,DT c 1Document transfer d  RI e  Recall index f ,UD g 1User-defined processing h  S i Send j ,TR k 1Training l  EX m Exit n$  Enter option and press RETURN, oL  Gor press NEXT SCREEN for more options (more...) p FRM19-NOV-1989 04:25:25 6 FMSFLBFLG20019-NOV-1989 04:25:1319-NOV-1989 04:25:13  J tt " 20 >PPMAIN   DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  AE..1 .T ;Z  p  0 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ @ .TYPE2 .IF $RELEASE_NOTES NES "12" THEN DO RELNOTES' ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z!  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN !<"  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE "V#  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER #T$  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL $%  OA$_MO_PRINT ELSE %6&  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ &P'  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ 'T(  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER (X)  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE )P*  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER *X+  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE +^,  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ ,X- ! OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK -N. "OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" .F/ #OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY /J0 $OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 021 %OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 1.2 &OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 2(3 'OA$_MO_USER_DEFINED FORM WPEDUDP 3@4 (OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 4Z5 )OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 506 *OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 6X7 + ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 7 8 , ~~TRAINING~~ FORM CBIWPL 8V9 -.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 9(: ..DOWN OA$_GBL_BOTTOM_OF_FOLDER :.; /.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC ;N< 0.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER <L= 1.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =J> 2.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >X? 3 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= ?D@ 4 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC @BA 5.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST A$B 6CHOICE/HARD=OA$_WP_HRD_OPT B(C 7CURFDR/HARD=OA$_GBL_CURR_FOLDER C(D 8CURTITL/HARD=OA$_GBL_CURR_TITLE D"E 9MODATE/HARD=OA$_GBL_DATE E(F :CURNUM/HARD=OA$_GBL_CURR_NUMBER F&G ;.GOLD AFORM MAIN2\OA$FLD_DONE G*H < OA$_MO_MOREFORM MAIN2\OA$FLD_DONE H6I =.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" I6J >.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" J Vaxination informatique KV Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq L  SEL M$ Select Folder: N - O %Title: P - Q %Date: R - Modified on: S  C T$ Create Number: U - V 4 W  E X Edit Y  D Z Delete [  P \ Print ]  R ^ Read _  ,FC ` 1 File cabinet a  I b Index c  ,DT d 1Document transfer e  RI f  Recall index g ,UD h 1User-defined processing i  S j Send k ,TR l 1Training m  EX n Exit o$  Enter option and press RETURN, pN  Gor press NEXT SCREEN for more options (more...) q FRM19-NOV-1989 04:31:08 6 FMSFLBFED20019-NOV-1989 04:29:5419-NOV-1989 04:29:54  J jj " 20 >PPMAIN     DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  BF..1 .T ;Z  p  0@ 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ @ .TYPE2 .IF $RELEASE_NOTES NES "12" THEN DO RELNOTES' ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER !Z!  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN "<"  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE #V#  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER $T$  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL %%  OA$_MO_PRINT ELSE &6&  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ 'P'  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ (T(  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER )X)  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *P*  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER +X+  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE ,^,  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ -X- ! OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK .N. "OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" /F/ #OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY 0J0 $OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 121 %OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 2.2 &OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 3(3 'OA$_MO_USER_DEFINED FORM WPEDUDP 4@4 (OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 5Z5 )OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 606 *OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 7X7 + ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 8 8 , ~~TRAINING~~ FORM CBIWPL 9V9 -.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= :(: ..DOWN OA$_GBL_BOTTOM_OF_FOLDER ;.; /.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC <N< 0.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER =L= 1.GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >J> 2.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET ?X? 3 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= @D@ 4 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ABA 5.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST B$B 6CHOICE/HARD=OA$_WP_HRD_OPT C(C 7CURFDR/HARD=OA$_GBL_CURR_FOLDER D(D 8CURTITL/HARD=OA$_GBL_CURR_TITLE E"E 9MODATE/HARD=OA$_GBL_DATE F(F :CURNUM/HARD=OA$_GBL_CURR_NUMBER G&G ;.GOLD AFORM MAIN2\OA$FLD_DONE H*H < OA$_MO_MOREFORM MAIN2\OA$FLD_DONE I6I =.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" J6J >.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" K4 .qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq L  Vaxination informatique M4 .qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq N  SEL O" Select Folder: P - Q %Title: R - S %Date: T - Modified on: U  C V" Create Number: W - X 4 Y  E Z Edit [  D \ Delete ]  P ^ Print _  R ` Read a  ,FC b 1 File cabinet c  I d Index e  ,DT f 1Document transfer g  RI h  Recall index i ,UD j 1User-defined processing k  S l Send m ,TR n 1Training o  EX p Exit q$  Enter option and press RETURN, rL  Gor press NEXT SCREEN for more options (more...) s FRM19-NOV-1989 04:31:15 6 FMSFLBFED20019-NOV-1989 04:30:5219-NOV-1989 04:30:52  5 _ " 20 )PPMAIN2     DAY  DATE  " CURFDR  " CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  BF//0 /R <X  m  0@ H .TYPE:MENU /CHOICE=CHOICE/CLEAR/DATE=DATE/GET=DAY,OA$DAY;CURFDR, L .TYPE>"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; " .TYPECURNUM,"$WPDOC:6:30"  .TYPE/MORE="MAIN,FC1" D .TYPE6/PRE='GET #CURDOC="$WPDOC"\.IF $WPDOC:6:30 NES "" THEN 2 .TYPE# CAB CURRENT $WPDOC ELSE CAB CLEAR' * .TYPE/HARD=OA$_WPCONT1_HRD_TITLE 2 OA$_MO_LIST_PROCESSINGXOP "WP$WPCONT1_LP" . OA$_MO_SPELL_CHECKXOP "WP$WPCONT1_SC" 0 OA$_MO_DICTIONARIESXOP "WP$WPCONT1_DIC" 8 OA$_MO_PARAGRAPH_NUMBERINGXOP "WP$WPCONT1_SCD" * OA$_MO_DECPAGEXOP "WP$WPCONT1_DP" 2 OA$_MO_GRAMMAR_CHECKERXOP "WP$WPCONT1_GC" < OA$_MO_GRAMMAR_CHECKER_DEFAULTSXOP "WP$WPCONT1_GCD" $  WP$WPCONT1_LP FORM WPLPMENU H  WP$WPCONT1_SC1GET #CURDOC="$WPDOC"\.IF @#CURDOC:6:30 == "" THEN P  WP$WPCONT1_SC9 .FX GET OA$DISPLAY= OA$_GBL_NODOCSEL\\FORCE\\OA$FLD_DONE   WP$WPCONT1_SC ELSE V  WP$WPCONT1_SC? GET #SCRIPT="LNGSPLSC2"\\GET #METERNAME=OA$_WP_SPELL\\DO METER  WP$WPCONT1_DICFORM SCD !P! WP$WPCONT1_SCD9GET #SCRIPT="PARANUM"\GET #METERNAME=OA$_WP_PARA\DO METER "N"  WP$WPCONT1_DP7GET #DP=OA$DIR:"*.*".%WHOLE["DECPAGE$EXE:TYPESET.EXE"]\ #J#  WP$WPCONT1_DP3 .IF #DP NES "" THEN FORM DECP ELSE GET OA$DISPLAY= $6$  WP$WPCONT1_DP OA$_WP_WPSPLUS_NO_DECPAGE\FORCE %J%  WP$WPCONT1_GC4GET #GC=OA$DIR:"*.*".%WHOLE["GCS$DATA:GCSDISK.DAT"]\ &L&  WP$WPCONT1_GC6 .IF #GC NES "" THEN DO GRAMCHECK ELSE GET OA$DISPLAY= '8'  WP$WPCONT1_GC" OA$_WP_WPSPLUS_NO_GRAMCHECK\FORCE ((( WP$WPCONT1_GCDFORM GRAMMARDEFS )() CHOICE/HARD=OA$_WPCONT1_HRD_OPT *V* .DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= +(+ .DOWN OA$_GBL_BOTTOM_OF_FOLDER ,., .DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC -N- !.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER .L. ".GOLD UP;CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET /J/ #.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET 0X0 $ .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 1D1 % .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC 2B2 &.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST 3&3 '.GOLD AFORM MAIN\OA$FLD_DONE 444 (.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN" 545 ).PC PREV SCREENGET OA$MENU_REMAINDER="MAIN" 64 .qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 7  Vaxination informatique 84 .qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 9  SEL :" Select Folder: ; . < &Title: = . > &Date: ? . Modified on: @ &Number: A . B 5 C2  -Word and Document Processing - continued (1) D  SC E  Spell check F  ,LP G 1List processing H  DIC I  Dictionaries J ,DP K 1DECpage document formatting L ,PN M 1Paragraph numbering N  GC O Grammar checker P  GCD Q Grammar checker defaults R"  Enter option and press RETURN S FRM19-NOV-1989 04:37:19 6 FMSFLBFED20019-NOV-1989 04:37:0019-NOV-1989 04:37:00  J+J+7) $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE .TYPE0/POST= 'IFEXIT\DO SUBSCRIBER\GET #UPDT_USER=USER  .TYPE \DO SMNETUPDT " .TYPE\GET #FRMLIB=FRMLIB L .TYPE=\.IF #APP_CHANGE EQS 1 THEN COMMAND OA$LIB:MUA_SWITCH_APP_PRV $ .TYPE\\GET FRMLIB=#FRMLIB' , .FILEOA$DATA_SHARE:PROFILE.DAT,USER 2  .FORM_SETPROFIL2,PROFIL3,PROFIL4,PROFIL5 N USER@/RSE_RECOG=PROFIL.USER WITH .USER = USER AND NOT (.USER = "@" OR 2 USER$ .USER <=> ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' J TEMPLATE8/RSE_RECOG=SMTEMPLATE.TEMPLATE WITH .TEMPLATE = TEMPLATE , TEMPLATE/HARD=OA$_GBL_HRD_TEMPLATE $! VMSUSR/RECOG=UAF:.USERNAME !*" VMSUSR/HARD=OA$_GBL_VMS_USERNAME "*# FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB #*$ DIRECT/HARD=OA$_GBL_HRD_DIRECTORY $0% SURNAME1/POST='GET #SURNAME = SURNAME1' %*& SURNAME1/HARD=OA$_GBL_HRD_SURNAME &X'  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ '.(  FORENAME1 PUT_FIELD FULNAM, #FULNAM' (,)  FORENAME1/HARD=OA$_GBL_HRD_FORENAME )2*  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS *&+ FULNAM/HARD=OA$_GBL_FULL_NAME +", DEPART/HARD=OA$_GBL_DEPT ,,- LOCATION/HARD=OA$_GBL_HRD_LOCATION -&. COMPANY/HARD=OA$_GBL_COMPANY .4/  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION /00  GENERATION/HARD=OA$_GBL_HRD_GENERATION 0"1 PHONE/HARD=OA$_GBL_PHONE 122 INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE 2*3 !ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 3*4 "ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 4*5 #ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 5*6 $ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 6*7 %ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 7*8 &ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 8*9 'ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 9.: ( FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 :.; ) FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 ;.< * FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 <.= + FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 =,> ,SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 >,? -SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 ?.@ . INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 @.A / INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 A.B 0 INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 B.C 1 INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 C$D 2STATUS/HARD=OA$_GBL_STATUS DPE 3NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" E8F 4NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" G6H 6QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" I6J 8QPNOT(/RECOG=MAIL_READ_RECEIPT9/VALID=OA$TABLE:OA$_LANG_YNA_TABLE/LANGUAGE="Y,N,A/Y,N,A" PBQ ?MAIL_READ_RECEIPT(/RECOG=S A DELETE$UNREAD(/RECOG=U CEDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" U*V DSTART/HARD=OA$_GBL_HRD_INIT_FORM V.W E MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE W:X F MAIL_MENU(/RECOG= ":" OR NODE <=> " " cNd RNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID dJe SPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" e8f TPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" 8 TIMEFMT(/RECOG=  PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2  PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" >  PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM29-NOV-1989 14:20:48 6 FMSFLBFED20029-NOV-1989 14:15:2529-NOV-1989 14:15:25  K   " 20 ?PPMAIN     DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  BF..1 .T ;Z  p  0@ 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ @ .TYPE2 .IF $RELEASE_NOTES NES "12" THEN DO RELNOTES' ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER !Z!  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN "<"  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE #V#  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER $T$  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL %%  OA$_MO_PRINT ELSE &6&  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ 'P'  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ (T(  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER )X)  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE *P*  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER +X+  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE ,^,  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ -X- ! OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK .N. "OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" /F/ #OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY 0J0 $OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 121 %OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 2.2 &OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 3(3 'OA$_MO_USER_DEFINED FORM WPEDUDP 4@4 (OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 5Z5 )OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 606 *OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 7X7 + ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 8 8 , ~~TRAINING~~ FORM CBIWPL 9V9 -.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= :(: ..DOWN OA$_GBL_BOTTOM_OF_FOLDER ;.; /.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC <N< 0.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER =L= 1.GOLD UP:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >J> 2.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET ?X? 3 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= @D@ 4 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC ABA 5.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST B$B 6CHOICE/HARD=OA$_WP_HRD_OPT C(C 7CURFDR/HARD=OA$_GBL_CURR_FOLDER D(D 8CURTITL/HARD=OA$_GBL_CURR_TITLE E"E 9MODATE/HARD=OA$_GBL_DATE F(F :CURNUM/HARD=OA$_GBL_CURR_NUMBER G&G ;.GOLD AFORM MAIN2\OA$FLD_DONE H*H < OA$_MO_MOREFORM MAIN2\OA$FLD_DONE I6I =.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" J6J >.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" KK ?LOBYE L4 .qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq M  Vaxination informatique N4 .qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq O  SEL P" Select Folder: Q - R %Title: S - T %Date: U - Modified on: V  C W" Create Number: X - Y 4 Z  E [ Edit \  D ] Delete ^  P _ Print `  ,FC a 1 File cabinet b  R c Read d  ,DT e 1Document transfer f  I g Index h  ,UD i 1User-defined processing j  RI k  Recall index l ,S m 1 Send to Envoy n  EX o Exit p ,TR q 1Training r  LO s Logoff t$  Enter option and press RETURN, uL  Gor press NEXT SCREEN for more options (more...) v FRM15-DEC-1989 12:55:26 6 FMSFLBFED20015-DEC-1989 12:54:1715-DEC-1989 12:54:17  z#z#! $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' $ VMSUSR/RECOG=UAF:.USERNAME * VMSUSR/HARD=OA$_GBL_VMS_USERNAME * FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB *! DIRECT/HARD=OA$_GBL_HRD_DIRECTORY !0" SURNAME1/POST='GET #SURNAME = SURNAME1' "*# SURNAME1/HARD=OA$_GBL_HRD_SURNAME #X$  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ $.%  FORENAME1 PUT_FIELD FULNAM, #FULNAM' %,&  FORENAME1/HARD=OA$_GBL_HRD_FORENAME &2'  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS '&( FULNAM/HARD=OA$_GBL_FULL_NAME (") DEPART/HARD=OA$_GBL_DEPT ),* LOCATION/HARD=OA$_GBL_HRD_LOCATION *&+ COMPANY/HARD=OA$_GBL_COMPANY +4,  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION ,0-  GENERATION/HARD=OA$_GBL_HRD_GENERATION -". PHONE/HARD=OA$_GBL_PHONE .2/ INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE /*0 ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 0*1 ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 1*2 ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 2*3 !ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 3*4 "ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 4*5 #ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 5*6 $ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 6.7 % FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 7.8 & FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 8.9 ' FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 9.: ( FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 :,; )SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 ;,< *SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 <.= + INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 =.> , INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 >.? - INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 ?.@ . INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 @$A /STATUS/HARD=OA$_GBL_STATUS APB 0NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" B8C 1NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" D6E 3QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" F6G 5QPNOT(/RECOG=P > DELETE$UNREAD(/RECOG=R @EDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" R*S ASTART/HARD=OA$_GBL_HRD_INIT_FORM S.T B MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE T*U CMAIDES/HARD=OA$_GBL_HRD_MAIL_DEST U,V DPASWRD/HARD=OA$_GBL_HRD_A1_PASSWORD V*W ETITLE/HARD=OA$_GBL_HRD_JOB_TITLE W4X F COUNTRY_NAME/HARD=OA$_GBL_HRD_COUNTRY_NAME X0Y GNODE#/OPTIONAL/HARD=OA$_PROFIL_NODE_NAME Y<Z HNODE./BLANK/VALID=<.IF NODE <=> ":" OR NODE <=> " " ZN[ INODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID [J\ JPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" \8] KPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" ~8 mTIMEFMT(/RECOG= q PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2 r PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" > s PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM15-DEC-1989 13:19:50 6 FMSFLBFED20015-DEC-1989 13:19:3515-DEC-1989 13:19:35  n#n#! $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' $ VMSUSR/RECOG=UAF:.USERNAME * VMSUSR/HARD=OA$_GBL_VMS_USERNAME * FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB * DIRECT/HARD=OA$_GBL_HRD_DIRECTORY 0! SURNAME1/POST='GET #SURNAME = SURNAME1' !*" SURNAME1/HARD=OA$_GBL_HRD_SURNAME "X#  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ #.$  FORENAME1 PUT_FIELD FULNAM, #FULNAM' $,%  FORENAME1/HARD=OA$_GBL_HRD_FORENAME %2&  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS &&' FULNAM/HARD=OA$_GBL_FULL_NAME '"( DEPART/HARD=OA$_GBL_DEPT (,) LOCATION/HARD=OA$_GBL_HRD_LOCATION )&* COMPANY/HARD=OA$_GBL_COMPANY *4+  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION +0,  GENERATION/HARD=OA$_GBL_HRD_GENERATION ,"- PHONE/HARD=OA$_GBL_PHONE -2. INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE .*/ ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 /*0 ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 0*1 ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 1*2 ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 2*3 !ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 3*4 "ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 4*5 #ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 5.6 $ FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 6.7 % FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 7.8 & FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 8.9 ' FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 9,: (SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 :,; )SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 ;.< * INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 <.= + INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 =.> , INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 >.? - INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 ?$@ .STATUS/HARD=OA$_GBL_STATUS @PA /NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" A8B 0NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" C6D 2QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" E6F 4QPNOT(/RECOG=O = DELETE$UNREAD(/RECOG= DELETE$UNREAD/HARD=OA$_GBL_HRD_DELETE_UNREAD P>Q ?EDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" Q*R @START/HARD=OA$_GBL_HRD_INIT_FORM R.S A MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE S*T BMAIDES/HARD=OA$_GBL_HRD_MAIL_DEST T,U CPASWRD/HARD=OA$_GBL_HRD_A1_PASSWORD U*V DTITLE/HARD=OA$_GBL_HRD_JOB_TITLE V4W E COUNTRY_NAME/HARD=OA$_GBL_HRD_COUNTRY_NAME W0X FNODE#/OPTIONAL/HARD=OA$_PROFIL_NODE_NAME X<Y GNODE./BLANK/VALID=<.IF NODE <=> ":" OR NODE <=> " " YNZ HNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID ZJ[ IPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" [8\ JPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" }8~ lTIMEFMT(/RECOG= p PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2 q PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" > r PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM15-DEC-1989 13:21:06 6 FMSFLBFED20015-DEC-1989 13:21:0315-DEC-1989 13:21:03  n#n#! $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' $ VMSUSR/RECOG=UAF:.USERNAME * VMSUSR/HARD=OA$_GBL_VMS_USERNAME * FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB * DIRECT/HARD=OA$_GBL_HRD_DIRECTORY 0! SURNAME1/POST='GET #SURNAME = SURNAME1' !*" SURNAME1/HARD=OA$_GBL_HRD_SURNAME "X#  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ #.$  FORENAME1 PUT_FIELD FULNAM, #FULNAM' $,%  FORENAME1/HARD=OA$_GBL_HRD_FORENAME %2&  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS &&' FULNAM/HARD=OA$_GBL_FULL_NAME '"( DEPART/HARD=OA$_GBL_DEPT (,) LOCATION/HARD=OA$_GBL_HRD_LOCATION )&* COMPANY/HARD=OA$_GBL_COMPANY *4+  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION +0,  GENERATION/HARD=OA$_GBL_HRD_GENERATION ,"- PHONE/HARD=OA$_GBL_PHONE -2. INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE .*/ ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 /*0 ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 0*1 ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 1*2 ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 2*3 !ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 3*4 "ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 4*5 #ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 5.6 $ FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 6.7 % FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 7.8 & FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 8.9 ' FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 9,: (SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 :,; )SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 ;.< * INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 <.= + INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 =.> , INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 >.? - INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 ?$@ .STATUS/HARD=OA$_GBL_STATUS @PA /NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" A8B 0NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" C6D 2QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" E6F 4QPNOT(/RECOG=O = DELETE$UNREAD(/RECOG= DELETE$UNREAD/HARD=OA$_GBL_HRD_DELETE_UNREAD P>Q ?EDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" Q*R @START/HARD=OA$_GBL_HRD_INIT_FORM R.S A MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE S*T BMAIDES/HARD=OA$_GBL_HRD_MAIL_DEST T,U CPASWRD/HARD=OA$_GBL_HRD_A1_PASSWORD U*V DTITLE/HARD=OA$_GBL_HRD_JOB_TITLE V4W E COUNTRY_NAME/HARD=OA$_GBL_HRD_COUNTRY_NAME W0X FNODE#/OPTIONAL/HARD=OA$_PROFIL_NODE_NAME X<Y GNODE./BLANK/VALID=<.IF NODE <=> ":" OR NODE <=> " " YNZ HNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID ZJ[ IPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" [8\ JPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" }8~ lTIMEFMT(/RECOG= p PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2 q PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" > r PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM15-DEC-1989 13:22:25 6 FMSFLBFED20015-DEC-1989 13:22:2215-DEC-1989 13:22:22  n#n#! $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' $ VMSUSR/RECOG=UAF:.USERNAME * VMSUSR/HARD=OA$_GBL_VMS_USERNAME * FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB * DIRECT/HARD=OA$_GBL_HRD_DIRECTORY 0! SURNAME1/POST='GET #SURNAME = SURNAME1' !*" SURNAME1/HARD=OA$_GBL_HRD_SURNAME "X#  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ #.$  FORENAME1 PUT_FIELD FULNAM, #FULNAM' $,%  FORENAME1/HARD=OA$_GBL_HRD_FORENAME %2&  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS &&' FULNAM/HARD=OA$_GBL_FULL_NAME '"( DEPART/HARD=OA$_GBL_DEPT (,) LOCATION/HARD=OA$_GBL_HRD_LOCATION )&* COMPANY/HARD=OA$_GBL_COMPANY *4+  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION +0,  GENERATION/HARD=OA$_GBL_HRD_GENERATION ,"- PHONE/HARD=OA$_GBL_PHONE -2. INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE .*/ ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 /*0 ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 0*1 ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 1*2 ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 2*3 !ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 3*4 "ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 4*5 #ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 5.6 $ FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 6.7 % FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 7.8 & FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 8.9 ' FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 9,: (SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 :,; )SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 ;.< * INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 <.= + INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 =.> , INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 >.? - INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 ?$@ .STATUS/HARD=OA$_GBL_STATUS @PA /NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" A8B 0NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" C6D 2QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" E6F 4QPNOT(/RECOG=O = DELETE$UNREAD(/RECOG= DELETE$UNREAD/HARD=OA$_GBL_HRD_DELETE_UNREAD P>Q ?EDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" Q*R @START/HARD=OA$_GBL_HRD_INIT_FORM R.S A MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE S*T BMAIDES/HARD=OA$_GBL_HRD_MAIL_DEST T,U CPASWRD/HARD=OA$_GBL_HRD_A1_PASSWORD U*V DTITLE/HARD=OA$_GBL_HRD_JOB_TITLE V4W E COUNTRY_NAME/HARD=OA$_GBL_HRD_COUNTRY_NAME W0X FNODE#/OPTIONAL/HARD=OA$_PROFIL_NODE_NAME X<Y GNODE./BLANK/VALID=<.IF NODE <=> ":" OR NODE <=> " " YNZ HNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID ZJ[ IPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" [8\ JPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" }8~ lTIMEFMT(/RECOG= p PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2 q PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" > r PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM15-DEC-1989 13:25:23 6 FMSFLBFED20015-DEC-1989 13:25:2115-DEC-1989 13:25:21  ##K! $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE .TYPE./POST= 'IFEXIT\DISPLAY SHOULD DO SUBSCRIBER ' , .FILEOA$DATA_SHARE:PROFILE.DAT,USER 2  .FORM_SETPROFIL2,PROFIL3,PROFIL4,PROFIL5 N USER@/RSE_RECOG=PROFIL.USER WITH .USER = USER AND NOT (.USER = "@" OR 2 USER$ .USER <=> ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' $ VMSUSR/RECOG=UAF:.USERNAME * VMSUSR/HARD=OA$_GBL_VMS_USERNAME * FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB * DIRECT/HARD=OA$_GBL_HRD_DIRECTORY 0 SURNAME1/POST='GET #SURNAME = SURNAME1' * SURNAME1/HARD=OA$_GBL_HRD_SURNAME X!  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ !."  FORENAME1 PUT_FIELD FULNAM, #FULNAM' ",#  FORENAME1/HARD=OA$_GBL_HRD_FORENAME #2$  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS $&% FULNAM/HARD=OA$_GBL_FULL_NAME %"& DEPART/HARD=OA$_GBL_DEPT &,' LOCATION/HARD=OA$_GBL_HRD_LOCATION '&( COMPANY/HARD=OA$_GBL_COMPANY (4)  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION )0*  GENERATION/HARD=OA$_GBL_HRD_GENERATION *"+ PHONE/HARD=OA$_GBL_PHONE +2, INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE ,*- ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 -*. ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 .*/ ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 /*0 ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 0*1 ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 1*2 ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 2*3 !ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 3.4 " FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 4.5 # FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 5.6 $ FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 6.7 % FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 7,8 &SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 8,9 'SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 9.: ( INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 :.; ) INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 ;.< * INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 <.= + INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 =$> ,STATUS/HARD=OA$_GBL_STATUS >P? -NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" ?8@ .NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" A6B 0QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" C6D 2QPNOT(/RECOG=M ; DELETE$UNREAD(/RECOG=O =EDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" O*P >START/HARD=OA$_GBL_HRD_INIT_FORM P.Q ? MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE Q*R @MAIDES/HARD=OA$_GBL_HRD_MAIL_DEST R,S APASWRD/HARD=OA$_GBL_HRD_A1_PASSWORD S*T BTITLE/HARD=OA$_GBL_HRD_JOB_TITLE T4U C COUNTRY_NAME/HARD=OA$_GBL_HRD_COUNTRY_NAME U0V DNODE#/OPTIONAL/HARD=OA$_PROFIL_NODE_NAME V<W ENODE./BLANK/VALID=<.IF NODE <=> ":" OR NODE <=> " " WNX FNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID XJY GPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" Y8Z HPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" {8| jTIMEFMT(/RECOG= n PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2 o PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" > p PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM15-DEC-1989 13:35:51 6 FMSFLBFED20015-DEC-1989 13:35:4815-DEC-1989 13:35:48  ""! $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE .TYPE./POST= 'IFEXIT\DISPLAY SHOULD DO SUBSCRIBER ' , .FILEOA$DATA_SHARE:PROFILE.DAT,USER 2  .FORM_SETPROFIL2,PROFIL3,PROFIL4,PROFIL5 N USER@/RSE_RECOG=PROFIL.USER WITH .USER = USER AND NOT (.USER = "@" OR 2 USER$ .USER <=> ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' $ VMSUSR/RECOG=UAF:.USERNAME * VMSUSR/HARD=OA$_GBL_VMS_USERNAME * FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB * DIRECT/HARD=OA$_GBL_HRD_DIRECTORY 0 SURNAME1/POST='GET #SURNAME = SURNAME1' * SURNAME1/HARD=OA$_GBL_HRD_SURNAME X!  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ !."  FORENAME1 PUT_FIELD FULNAM, #FULNAM' ",#  FORENAME1/HARD=OA$_GBL_HRD_FORENAME #2$  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS $&% FULNAM/HARD=OA$_GBL_FULL_NAME %"& DEPART/HARD=OA$_GBL_DEPT &,' LOCATION/HARD=OA$_GBL_HRD_LOCATION '&( COMPANY/HARD=OA$_GBL_COMPANY (4)  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION )0*  GENERATION/HARD=OA$_GBL_HRD_GENERATION *"+ PHONE/HARD=OA$_GBL_PHONE +2, INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE ,*- ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 -*. ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 .*/ ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 /*0 ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 0*1 ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 1*2 ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 2*3 !ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 3.4 " FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 4.5 # FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 5.6 $ FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 6.7 % FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 7,8 &SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 8,9 'SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 9.: ( INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 :.; ) INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 ;.< * INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 <.= + INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 =$> ,STATUS/HARD=OA$_GBL_STATUS >P? -NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" ?8@ .NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" A6B 0QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" C6D 2QPNOT(/RECOG=M ; DELETE$UNREAD(/RECOG=O =EDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" O*P >START/HARD=OA$_GBL_HRD_INIT_FORM P.Q ? MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE Q*R @MAIDES/HARD=OA$_GBL_HRD_MAIL_DEST R,S APASWRD/HARD=OA$_GBL_HRD_A1_PASSWORD S*T BTITLE/HARD=OA$_GBL_HRD_JOB_TITLE T4U C COUNTRY_NAME/HARD=OA$_GBL_HRD_COUNTRY_NAME U0V DNODE#/OPTIONAL/HARD=OA$_PROFIL_NODE_NAME V<W ENODE./BLANK/VALID=<.IF NODE <=> ":" OR NODE <=> " " WNX FNODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID XJY GPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" Y8Z HPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" z8{ iTIMEFMT(/RECOG= m PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" 2 n PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" > o PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM15-DEC-1989 13:47:25 6 FMSFLBFED20015-DEC-1989 13:47:2115-DEC-1989 13:47:21  "" $ 20U PPPROFIL   @USER   @TEMPLATE  D @DIRECT  D @FRMLIB    NOT$IN$USE    CREATE$FAIL1  @VMSUSR   RESERVED    RSVD_FOR_TCS  ( SURNAME1    FORENAME1   @ INITIALS1  @ FULNAM   2 v             F .TYPE8ENTRY /MODE=UPDATE/KEY=USER/HARD=OA$_PROFIL_HRD_PROF_ENT J .TYPE ":")/HARD=OA$_GBL_A1_USER * USER/POST='GET #DDS_ACCOUNT=USER' $ VMSUSR/RECOG=UAF:.USERNAME * VMSUSR/HARD=OA$_GBL_VMS_USERNAME * FRMLIB/HARD=OA$_GBL_HRD_FORM_LIB * DIRECT/HARD=OA$_GBL_HRD_DIRECTORY 0 SURNAME1/POST='GET #SURNAME = SURNAME1' * SURNAME1/HARD=OA$_GBL_HRD_SURNAME X  FORENAME1F/POST='GET #FORENAME = FORENAME1\GET #FULNAM = FORENAME1 " " SURNAME1\ .!  FORENAME1 PUT_FIELD FULNAM, #FULNAM' !,"  FORENAME1/HARD=OA$_GBL_HRD_FORENAME "2#  INITIALS1/HARD=OA$_GBL_HRD_FULL_INITIALS #&$ FULNAM/HARD=OA$_GBL_FULL_NAME $"% DEPART/HARD=OA$_GBL_DEPT %,& LOCATION/HARD=OA$_GBL_HRD_LOCATION &&' COMPANY/HARD=OA$_GBL_COMPANY '4(  INT_LOCATION/HARD=OA$_GBL_HRD_INT_LOCATION (0)  GENERATION/HARD=OA$_GBL_HRD_GENERATION )"* PHONE/HARD=OA$_GBL_PHONE *2+ INTERNAL_PHONE/HARD=OA$_GBL_HRD_INT_PHONE +*, ADDR1/HARD=OA$_GBL_HRD_ADD_LINE_1 ,*- ADDR2/HARD=OA$_GBL_HRD_ADD_LINE_2 -*. ADDR3/HARD=OA$_GBL_HRD_ADD_LINE_3 .*/ ADDR4/HARD=OA$_GBL_HRD_ADD_LINE_4 /*0 ADDR5/HARD=OA$_GBL_HRD_ADD_LINE_5 0*1 ADDR6/HARD=OA$_GBL_HRD_ADD_LINE_6 1*2 ZIPCOD/HARD=OA$_GBL_HRD_ZIP_CODE 2.3 ! FORENAME2/HARD=OA$_GBL_HRD_FORENAME2 3.4 " FORENAME3/HARD=OA$_GBL_HRD_FORENAME3 4.5 # FORENAME4/HARD=OA$_GBL_HRD_FORENAME4 5.6 $ FORENAME5/HARD=OA$_GBL_HRD_FORENAME5 6,7 %SURNAME2/HARD=OA$_GBL_HRD_SURNAME2 7,8 &SURNAME3/HARD=OA$_GBL_HRD_SURNAME3 8.9 ' INITIALS2/HARD=OA$_GBL_HRD_INITIALS2 9.: ( INITIALS3/HARD=OA$_GBL_HRD_INITIALS3 :.; ) INITIALS4/HARD=OA$_GBL_HRD_INITIALS4 ;.< * INITIALS5/HARD=OA$_GBL_HRD_INITIALS5 <$= +STATUS/HARD=OA$_GBL_STATUS =P> ,NOTIFY@/HARD=OA$_GBL_HRD_NEW_MAIL_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" >8? -NOTIFY(/RECOG=/HARD=OA$_GBL_HRD_QBATCH_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" @6A /QBNOT(/RECOG=/HARD=OA$_GBL_HRD_QPRINT_NTFY/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" B6C 1QPNOT(/RECOG=L : DELETE$UNREAD(/RECOG=N <EDITOR./HARD=OA$_GBL_HRD_EDIT_STYLE/VALID="OA$EDITOR" N*O =START/HARD=OA$_GBL_HRD_INIT_FORM O.P > MAIL_MENU/HARD=OA$_GBL_HRD_MAIL_TYPE P*Q ?MAIDES/HARD=OA$_GBL_HRD_MAIL_DEST Q,R @PASWRD/HARD=OA$_GBL_HRD_A1_PASSWORD R*S ATITLE/HARD=OA$_GBL_HRD_JOB_TITLE S4T B COUNTRY_NAME/HARD=OA$_GBL_HRD_COUNTRY_NAME T0U CNODE#/OPTIONAL/HARD=OA$_PROFIL_NODE_NAME U<V DNODE./BLANK/VALID=<.IF NODE <=> ":" OR NODE <=> " " VNW ENODEA THEN GET OA$DISPLAY=OA$_ENT_NODE_NAME_ONLY ELSE OA$VAL_SET_VALID WJX FPRVDCL;/HARD=OA$_GBL_HRD_DCL_PRIV/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" X8Y GPRVDCL(/RECOG=/HARD=OA$_GBL_HRD_TIME_FORMAT/VALID="OA$YN"/LANGUAGE="Y,N/Y,N" y8z hTIMEFMT(/RECOG=~ l PRINTER_PORT)/HARD=OA$_PROFIL_PRINT_PORT/VALID="OA$YN" ~2 m PRINTER_PORT/OPTIONAL/LANGUAGE="Y,N/Y,N" > n PRINTER_PORT(/RECOG= LOGINCHK,/HARD=OA$_GBL_HRD_ENFORCEQUOTA/VALID="OA$YN" " GOLD AOA$FLD_PAGE_FORWARD  " User Profile  ALL-IN-1 account details:   Account name:  Account template:   Directory:   Form libr:   VMS account details:   Account name:  User details:  Surname:   Given name:   Initials:   Full name: P KEnter account details and press RETURN to complete or press NEXT SCREEN for T Nmore fields (more ...)  FRM17-JAN-1990 16:39:02 6 FMSFLBFED20017-JAN-1990 16:37:5817-JAN-1990 16:37:58  M B " 20 APPMAIN   DAY  DATE  # CURFDR  # CURTITL   CURNUM   MODATE . F CHOICEPress GOLD H for Help  BF..1 .T ;Z  p  0 2 .TYPE#MENU /CHOICE=CHOICE/CLEAR/DATE=DATE X .TYPEJ/GET=CURFDR,"$WPDOC:30";CURTITL,OA$CURDOC_TITLE;MODATE,OA$CURDOC_MODIFIED; . .TYPECURNUM,"$WPDOC:6:30";DAY,OA$DAY B .TYPE3/PRE='GET $DELETE_PROMPT=OA$N\GET #CURDOC="$WPDOC"\ R .TYPEC .IF $WPDOC:6:30 NES "" THEN CAB CURRENT $WPDOC ELSE CAB CLEAR\ @ .TYPE2 .IF $RELEASE_NOTES NES "12" THEN DO RELNOTES' ( .TYPE/HARD=OA$_GBL_WORD_AND_DOC ( .TYPE/MORE="MAIN2,FC1,WPDXMENU" * OA$_MO_RECALL_INDEX GET #TEMP=""\ N OA$_MO_RECALL_INDEX2GET OA$FUNCTION="GET #TEMP=" #WPIPH ".%FIRST['']"\ . OA$_MO_RECALL_INDEX.IF #TEMP EQS "" N OA$_MO_RECALL_INDEX1 THEN OA$MSG_PURGE\\GET OA$DISPLAY=OA$_INXNOINDEX 6 OA$_MO_RECALL_INDEX ELSE FORM WP$INDEX/PRE='' "  OA$_MO_INDEX FORM WP$INDEX V  OA$_MO_SELECT?GET #TITLE=#DOCNUM=""\GET #SELECT=OA$_GBL_CURR_DOC\DO DOCSELECT \  OA$_MO_CREATEECHECK_DISKQUOTA\.IF OA$STATUS == "1" THEN GET #CREATE=OA$_GBL_NEW_DOC X  OA$_MO_CREATEB \\GET #SCRIPT="DOCCREATE"\\GET #METERNAME=OA$_WP_CREATE\\DO METER T  OA$_MO_EDIT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL Z  OA$_MO_EDITE ELSE CHECK_DISKQUOTA\\.IF OA$STATUS == "1" THEN GET #SCRIPT="WPEDIT" @  OA$_MO_EDIT+ \\\\GET #METERNAME=OA$_WP_EDIT\\\\DO METER Z!  OA$_MO_DELETED.IF OA$CURDOC_DOCNUM == "" OR OA$CURDOC_FOLDER = OA$WASTEBASKET THEN !<"  OA$_MO_DELETE% GET OA$DISPLAY=OA$_GBL_NODELDOC ELSE "V#  OA$_MO_DELETE? GET #SCRIPT="WPDELETE"\\GET #METERNAME=OA$_WP_DELETE\\DO METER #T$  OA$_MO_PRINT?.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL $%  OA$_MO_PRINT ELSE %6&  OA$_MO_PRINT! GET #PRINT_DOCUMENT=OA$CURDOC\\ &P'  OA$_MO_PRINT; GET #PRINT_LISTFILE = OA$PARSED_USER:3 OA$CURDOC_DOCNUM\\ 'T(  OA$_MO_PRINT> GET #SCRIPT="WPPRINT"\\GET #METERNAME=OA$_WP_PRINT\\DO METER (X)  OA$_MO_READD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE )P*  OA$_MO_READ; GET #SCRIPT="WPLIST"\\GET #METERNAME=OA$_WP_READ\\DO METER *X+  OA$_MO_SENDD.IF OA$CURDOC_DOCNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE +^,  OA$_MO_SENDI FORM WPSMAIARG\\IFEXIT\\GET OA$DISPLAY="Mailing Document . . ."\\FORCE\\ ,X- ! OA$_MO_SENDDCOPY OA$CURDOC_FILENAME "SYS$LOGIN:MAILMSG.TMP"\\COMMAND WPSIBSALINK -N. "OLDIAGET #INDEX=OA$_GBL_DOC\FORM WPINDX/STYLE=CHOICE/LIST="WPLIST.SEL" .F/ #OLDI8 \.IF OA$SEL_COUNT NES "0" THEN GET @#CURDOC=OA$SEL_KEY /J0 $OLDI= \.IF OA$SRC_COUNT NES "0" THEN GET OA$DISPLAY=OA$_GBL_SELKEY 021 %OLDI$ ELSE GET OA$DISPLAY=OA$_GBL_NO_DOCS 1.2 &OA$_MO_DOCUMENT_TRANSFER FORM WPDXMENU 2(3 'OA$_MO_USER_DEFINED FORM WPEDUDP 3@4 (OA$_MO_FILE_CABINET#FORM FC1/MORE="WPDXMENU,MAIN,MAIN2" 4Z5 )OA$_MO_TRAININGA.IF OA$HARDCOPY EQ 1 THEN GET OA$DISPLAY = OA$_GBL_NO_CBI_HC_MODE 506 *OA$_MO_TRAINING ELSE XOP "~~TRAINING~~" 6X7 + ~~TRAINING~~BCHECK_DISKQUOTA,,"200"\IFSTATUS\OA$FLO_OPEN_LIB OA$LIB:OACBIFORMS\ 7 8 , ~~TRAINING~~ FORM CBIWPL 8V9 -.DOWNGCAB NEXT_DOCUMENT $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= 9(: ..DOWN OA$_GBL_BOTTOM_OF_FOLDER :.; /.DOWN\\CAB SELECT $WPDOC:30,,,$WPDOC ;N< 0.UPBCAB SELECT $WPDOC:30,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_FOLDER <L= 1.GOLD UP:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET =J> 2.GOLD T:CAB SELECT ,,,$WPDOC\GET OA$DISPLAY=OA$_GBL_TOP_OF_CABINET >X? 3 .GOLD DOWNECAB NEXT_FOLDER $WPDOC,$WPDOC\.IF OA$STATUS == 0 THEN GET OA$DISPLAY= ?D@ 4 .GOLD DOWN0 OA$_GBL_BOTTOM_OF_CABINET\\CAB SELECT ,,,$WPDOC @BA 5.PERIOD2GET OA$DISPLAY=OA$_GBL_SELECTING\FORCE\DO NEXTLIST A$B 6CHOICE/HARD=OA$_WP_HRD_OPT B(C 7CURFDR/HARD=OA$_GBL_CURR_FOLDER C(D 8CURTITL/HARD=OA$_GBL_CURR_TITLE D"E 9MODATE/HARD=OA$_GBL_DATE E(F :CURNUM/HARD=OA$_GBL_CURR_NUMBER F&G ;.GOLD AFORM MAIN2\OA$FLD_DONE G*H < OA$_MO_MOREFORM MAIN2\OA$FLD_DONE H6I =.PC NEXT SCREENGET OA$MENU_REMAINDER="MAIN2" I6J >.PC PREV SCREENGET OA$MENU_REMAINDER="MAIN2" JK ?LOBYE KL @.F6 FORM OA$DESK L M ASHLIST   Initials: ?  Full name: @ F (more ...) A FRM18-OCT-1990 04:30:51 6 FMSFLBFED20018-OCT-1990 04:26:0718-OCT-1990 04:26:07   m $ 203PPPROFIL2  @ COMPANY  DEPART   LOCATION    INT_LOCATION    GENERATION  ( TITLE  PHONE  INTERNAL_PHONE  ( ADDR1  ( ADDR2  ( ADDR3  ( ADDR4  ( ADDR5  ( ADDR6  (  COUNTRY_NAME  ( ZIPCOD & @`t        C k      WPSPLUS   User Profile -  /(1)   Organization:   Department:   Location:  Internal location:   Generation:   Job title:  Business number:  Internal number:  Postal address: ! Country: "  Zip code: # H (more...) $ FRM18-OCT-1990 04:30:56 6 FMSFLBFED20018-OCT-1990 04:27:4218-OCT-1990 04:27:42   VV $ 20DPPPROFIL3    FORENAME2    FORENAME3    FORENAME4    FORENAME5  ( SURNAME2  ( SURNAME3    INITIALS2    INITIALS3    INITIALS4    INITIALS5  D STATUS    MAIL_REPLY   ANOTIFYY   AQPNOTY   AQBNOTY   ATICKLERY   AACTITEMY  N  MAIL_FORWARD  N  MAIL_FORWARD2  N  MAIL_FORWARD3  N  MAIL_FORWARD4  & &0 @ h   &  1   8  8  Z    $ WPSPLUS user profile - (2)  Alternative names . (which can be used to identify the user:   Given name:   Given name:  Surname:  Surname: !  Initials: " Status: # Notification of: $ New mail (Y/N): % Print completion(Y/N): & !Batch completion(Y/N): ' Display Tasks(Y/N): ( !Count Tasks(Y/N): ) G (more...) * FRM18-OCT-1990 04:31:01 6 FMSFLBFED20018-OCT-1990 04:29:0818-OCT-1990 04:29:08  !  $ 20POPROFIL4 " @MAIDESALL-IN-1 &  AMAIL_READ_RECEIPTY   @ MAIL_MENUEMC "  A DELETE$UNREADN   @STARTMAIN  @EDITORWPSPLUS   PASWRD &  AENFORCED_ARCHIVEN $  A MAIL$AREAOA$SHARE   @AD$MINN     DATE$FORMAT7 "   IMAGE$DISPLAYN   ATM$MENUTMMENU "  APRINT SYS$PRINT "  A PRINTER_PORTY   APRVDCLN   APRVSUPN   APRVERRN   APRVCMDN   APRVSRCN   APRVAPPN    A CORP_PHONEN   APRVLOGN   MDFLAGN    A MULTI_NODEN   ASET_MODE  @NODE !  A KEY$BOARD  H  H  4 >  ] < ^  f < g B h i s >$).38>0; !   ! WPSPLUS "  User profile - (3) # Mail destination: $ /Send mail receipts(Y/N): %  Mail menu: & /Delete unread mail(Y/N): '  Initial form: (  Edit style: ) ALL-IN-1 password: * Enforced archiving: + / Mail area: , Administrator: - / Date format: . Initial TM form: / Printer: 0 / Printer port: 1D >ALL-IN-1 privileges: DCL SUP ERR CMD SRC APP CPHD LOG 2 Mail directory 3 MNODE 4 !Terminal mode: 5 5Node: 6 Keyboard mapping: 7 G (more...) 8 FRM18-OCT-1990 04:31:03 6 FMSFLBFED20018-OCT-1990 04:30:2318-OCT-1990 04:30:23  # nn $ 20POPROFIL5   STARTD2    STARTH08:00A    MEALS12:00P   NODAYS5   ENDH05:00P   MEALE01:00P   ATIMEFMTY $   CALTIMEINC00015   ASETUSRN  - OPER   CALDAY2  DDSID  + EXTRA1  ACLASS   AUFLAG1   AUFLAG2   AUFLAG3   AUFLAG4   AUFLAG5   AUFLAG6   AUFLAG7   AUFLAG8   AUFLAG9   AUFLAG10 "  ALANGUAGEENGLISH  2 EXTRA2  QUOTA10000 !  OVERDRAFT " DOCCOUNT #  @LOGINCHKN !" !G ! G  ;   $  % " R 0 S s  8 8!  "8# "   # WPSPLUS $ !User profile - (4) %  Working week: &  First day: '  Start hour: ( 5Meal hour: Start: )  No. of days: *  End hour: + @End: , 12 hour clock: -* %Calendar time increment (in minutes): .  Set User: /$ Advanced calendar day position: 0 Class: 1  User Flags: 2 . Language: 3 Document quota: 4 #Permitted overdraft: 5 Document count: 6 )Enforce Quota: 7  (last page) 8