%ì Librarian A09-23Ùúz×÷/¢”÷$¡n¥ ƒÜ„MD(® $LINE  *DAF*.DATJ .CRF_CROSSN.CRF_FILE_NAMESK.CRF_MOD_NAMES[.DIRÈ ACU_PORTSD ACU_USERSYDOCDB FILECAB.INDEXFP KEYS-*.INDQ KEYS-*.VALrLMF$LURT¤ MNU_USERSZNETWORK^ PARTITIONPENDING/PROFILEh RESERVATIONS] RIGHTSLIST"ê SWITCHFILE SYSUAFfUSERTYPE_MYTYPE+ VMS$PASSWORD_HISTORY,&VMSMAIL_PROFILE­œc›ã/¢integer*2 verslim bits*1 flags string namepad*2structure v(64) integer*2 version fileid fileid!test extra regel!test extra regel endstructureww­î’Э ¡ character*7 Name byte Null_1 character*6 DeviceNode byte Null_2 character*30 Text byte Null_3 character*10 Cable byte Null_4 character*10 Room byte Null_5 character*10 DevType byte Null_6 character*16 DevNumber byte Null_7 logical*1 Notify logical*1 ThuisMenu logical*1 MayLogin date*8 MayLoginTime logical*1 NoStop date*8 NoStopTime byte LogCnt structure WPLog(30) character*6 Name byte Null_1 character*30 Value byte Null_2 end structure byte %fill(59)ww­ýøÑ­ ¡ character*12 Name byte Null_1 character*30 Text byte Null_2 byte Site character*10 Room byte Null_3 character*10 Telephone byte Null_4 logical*1 Privileged logical*1 System logical*1 MayLogin integer*4 MayLoginTime(2) logical*1 NoStop integer*4 NoStopTime(2) integer*4 MaxSessions integer*4 NoHomeCount byte PortCnt# structure Ports(8)4 character*7 Port4 byte Null end structure byte %fill(400)ww­ÅÖ=N\¦¡!! OA$xxx:DAF*.DAT+! definitie O­Þ®œ˜Ù ¤!$! Des fierl voor PENDING.DAT!d character*64 pending_keyo character*1 record_codeo character*1 cont_flag  integer*2 total_attr_size  integer*2 this_rec_attr  character*2 usage_count2 character*5 new_mail_count character*3 padding1 structure pointers(100)$ integer*2/limit=>30 type [7=mail] integer*2 %dummyT pointer*4 offs [pointers] structure werk  integer*2 lengthI byte %kweenie(6) character*(length-6) test endº«dèQ̵ߤ STUBBE INDEXFº«¹Òæ$ठSTUBBF INDEXFº«D“À%ठSTUBBF INDEXFº«UŽ‚ˆ*ठSTUBBF INDEXFº«ןwð-ठSTUBBF INDEXFº«ħ@æ.ठSTUBBF INDEXFº«P¹©¨Çó¤ STUBBF #LINEº«}#×zÚó¤ STUBBF #LINEº«Þ.tŠÚó¤ STUBBF $LINEº«¶· ô_<¥ STUBBF SYSUAFº«¨Kp`<¥ STUBBF SYSUAFº«>{1@¥ STUBBF SYSUAFº«º”`çô@¥ STUBBF INDEXFº«–ŒišA¥ STUBBF SYSUAFº«¹‘»P¥ STU ­ôhšA¥2 BYTE UAF$B_RTYPE ! UAF-record type5 BYTE UAF$B_VERSION ! UAF format version H INTEGER*2 UAF$W_USRDATOFF ! offset of counted string of user data CHARACTER*32 UAF$T_USERNAME structure unionf map; INTEGER*2/OCTAL UAF$W_MEM ! member subfielde: INTEGER*2/OCTAL UAF$W_GRP ! group subfield end map map/ UIC UAF$L_UIC !the real uic !as a uic type end map end unione end structure: INTEGERS*4 UAF$L_SUB_ID ! user sub-identifier INTEGER*4 UAF$Q_PARENT_ID(2) CHARACTER*(32) UAF$T_ACCOUNT STRING*31 UAF$T_OWNERI STRING*31 UAF$T_DEFDEV STRING*63 UAF$T_DEFDIR STRING*63 UAF$T_LGICMD STRING*31 UAF$T_DEFCLI STRING*31 UAF$T_CLITABLESe INTEGER*4/HEX UAF$Q_PWD(2) INTEGER*4/HEX UAF$Q_PWD2(2) : INTEGER*2 UAF$W_LOGFAILS ! count of login failures7 INTEGER*2 UAF$W_SALT ! random password saltrM BYTE UAF$B_ENCRYPT [0=A ­Nñ’L–¤ character*30 naam! character*64 display_naamn byte %fill(8) character mail_drawer byte %fill(55) string noded byte %fill string fnama byte %fill(1024)www­àR®¡integer*2 verslim bits*1 flags string namepad*2structure v(64) integer*2 version fileid fileid!test extra regel!test extra regel endstructureww­Ù$H â¡ character*64 naam byte %fill(94)­¾ a?±Ï¤c c record def for OA$DAF*.DATc character*64 pending_key character*1 record_code character*1 cont_flag$ integer*2 total_attr_size" integer*2 this_rec_attr integer*2 usage_count character*2 counter integer*2 new_mail_count character*4 padding. structure pointers(100) y integer*4 type [8=prio,10=to,11=cc,12=topic,13=sender,14=dept,16=phone,31=creadate,33=change­¹tŠÚó¤ character*32267 linewwfset ! Offset to Ident area= ubyte map_offset ! Offset mapping area < ubyte acl_offset ! Offset to ACL areaA ubyte res_offset ! Offset to reserved areahB integer*2 seg_num ! Extension seqment numberA byte struct_lev_min ! On disk structure level A byte struct_lev_maj ! On disk structure levelp1 fileid date,22=attachment] #if f$exists("_debug")- pointer*4 offset [pointers] #elseF8 pointer*4 offset [pointers] /nodisplay#endif. structure work & integer*2 length/nodisplay# character*(length) dataS. end structure / exit [offset+length+2>=this_rec_attr]. end structure " character*1920 %attributeswwDAF*º« â/y9¢K¤ STUBBF BBF INDEXFXfile_id ! File id1( fileid ext_fid/record -S /comp="f$getd($file,""blnr"")+int(f$extr(1,-1,f$elem(0,"","",$FIELD)))" -I: /if="int(f$extr(1,-1,f$elem(0,"","",$FIELD)))>0" structure rec_attr byte rectyp byte recattrt integer*2 recsizR rinteger*4 hblk rinteger*4 eofblk integer*2 eofbyte byte bucketsize byte vfcsizeB integer*2 maxrec[ integer*2 defer*2/hex checksumww­8­õ·-¢ character*20 lineww­;?PK1/¢ integer*4 janww­à=•"Wœ integer*2 vaxtype integer*4 %fill1(2) string*35 name integer*2 needed_a integer*2 needed_b integer*2 needed_c integer*2 needed_d integer*2 needed_e integer*2 needed_f integer*2 needed_g integer*2 needed_h integer*2 needed_i integer*2 %fill10(17)ww­3RÞ^ ¡ character*12 Name integer*2 N_Main structure Main(99) byte Number byte N_Sub byte Sub(99) end structureww­ˆ€¨(§¡c network.dat van Allin1 character*30 a1_naam character*6 nodenaam character*16 datum character*32 naam character*30 jobtitle character*24 afdeling character*20 telefoon character*30 adres1 character*30 adres2 character*30 adres3 character*30 adres4 character*10 postcode character*62 mailadres character*23 last_update character*1 multi_node character*1 deletedww­}—LÚ ¡L! ! All-in-1 file PARTITION.DAT! character*60 a1_lade_naam" character*72 a1_lade_beschrijving character*2 %filler_1 character*30 vms_owner character*68 a1_lade_directory character*792 %filler_2ww­HÅû(^¦¡!! Des fierl voor PENDING.DAT! character *64 pending_key character*1 record_code character*1 cont_flag integer*2 total_attr_size integer*2 this_rec_attr character*2 usage_count character*5 new_mail_count character*3 padding character*1920 attributesww­‹š¢ character*30 a1naam character*20 template character*68 a1directory character*68 frmlib character*1 notinuse character*1 crate$fail character*12 vmsuser character*70 vmsdirectory character*15 reserved character*1 rsvd_for_tcs character*40 achternaam character*16 voornaam character*5 initialen character*64 fullname character*64 company character*32 department character*20 location character*20 int_location character*3 generation character*40 functie character*32 telefoon character*32 telefoonint character*40 adr1 character*40 adr2 character*40 adr3 character*40 adr4 character*40 adr5 character*40 adr6 character*40 country character*40 zipcod character*16 voornaam2 character*16 voornaam3 character*16 voornaam4 character*16 voornaam5 character*40 achternaam2 character*40 achternaam3 character*5 initialen2 character*5 initialen3 character*5 initialen4 character*5 initialen5 character*68 status character*31 mail_reply character*78 mail_forward% character*1 notify !notiry new mail. character*1 qpnot !notify print job complete. character*1 qbnot !notify batch jobs complet character*1 tickler character*1 actitem character*78 mail_forward2 character*78 mail_forward3 character*78 mail_forward4 character*10 maides character*10 mail_menu character*1 mail_read_receipt character*30 start character*10 tm$menu character*31 password character*10 editor character*1 enforced_archive character*8 mail$area character*1 admin character*1 date$format character*15 printer character*1 printer_port# character*1 prvdcl !priv to dcl / character*1 prvcmd !priv to exec a1 commands character*1 prvupddcl character*1 prvupdfnc character*1 prvxown character*1 prvview character*1 prvsub/ character*1 prvsup !priv to super fms fields character*1 prverr6 character*1 prvsrc !priv to exe unanchores searches character*1 corp_phone character*1 prvlog2 character*1 prvapp !priv to access cm subsystem$ character*1 md_flag !User to DDS? character*1 multi_node  character*1 set_mode character*25 keyboard character*13 node character*1 startd character*7 starth character*7 meals character*1 nodays character*7 endh character*7 meale character*1 timefmt character*5 caltimeinc4 character*1 setusr !priv to set ower to other cal character*45 oper character*1 calday character*32 ddsid character*43 extra1 character*10 class character*1 uflag1 character*1 uflag2 character*1 uflag3 character*1 uflag4 character*1 uflag5 character*1 uflag6 character*1 uflag7 character*1 uflag8 character*1 uflag9 character*1 uflag10 character*20 language character*50 extra2 character*10 quota character*10 overdraft character*10 doccount character*1 logincheck character*1 utility3 CHARACTER*1 STATUS$LINE 3 CHARACTER*1 READ$WIDE 3 CHARACTER*1 DL_READ 3 CHARACTER*1 DL_PRINT 3 CHARACTER*1 CONFIRM$SEL 3 CHARACTER*1 DELETE$UNREAD  3 CHARACTER*1 NEW$FOLDER$PROMPT 3 CHARACTER*1 COVER$NOTE 3 CHARACTER*1 DELETE$PROMPT 3 CHARACTER*1 DELETE_JOB 3 CHARACTER*1 CDA_STORAGE 3 CHARACTER*1 CDA_HANDLING 3 CHARACTER*3 CLASSIFICATION 3 CHARACTER*16 CATEGORIES 3 CHARACTER*1 CREATE_GRP 3 CHARACTER*1 RCV$SUB 3 CHARACTER*1 CREATE_CONF 3 CHARACTER*1 CREATE_DRAWER 3 CHARACTER*2 CREATE_DRAWER_NUMBER 3 CHARACTER*1 CLEANMAIL 3 CHARACTER*1 REGULAR_USER 3 CHARACTER*16 TIME_STAMP 3 CHARACTER*32 ORGUNIT1 3 CHARACTER*32 ORGUNIT2 3 CHARACTER*32 ORGU NIT3 3 CHARACTER*32 ORGUNIT4 3 CHARACTER*1 EXPIRY_WARNING 3 CHARACTER*1 DELETE_EXPIRED 3 CHARACTER*1 BCC_DELETE 3 CHARACTER*1 X400_CORREL 3 CHARACTER*1 AUTO_FWD_REDIR 3 CHARACTER*1 X500_UPDATE 3 CHARACTER*12 X500_POLICY 3 CHARACTER*3 COUNTRY_ID  3 CHARACTER*16 ADMD 3 CHARACTER*16 PRMD 3 CHARACTER*1 A1FS_ACCESS 3 CHARACTER*1 A1FS_CREATE 3 CHARACTER*1 A1FS_SCHEDULE_PRIV 3 CHARACTER*1 A1FS_RULE_QUEUE 3 CHARACTER*1 CUS$FLAG1 3 CHARACTER*1 CUS$FLAG2 3 CHARACTER*1 CUS$FLAG3 3 CHA RACTER*1 CUS$FLAG4 3 CHARACTER*1 CUS$FLAG5 3 CHARACTER*1 CUS$FLAG6 3 CHARACTER*1 CUS$FLAG7 3 CHARACTER*1 CUS$FLAG8 3 CHARACTER*1 CUS$FLAG9 3 CHARACTER*1 CUS$FLAG10 3 CHARACTER*6 CUS$NUM1 3 CHARACTER*6 CUS$NUM2 3 CHARACTER*6 CUS$NUM3 ! 3 CHARACTER*16 CUS$DATE1 3 CHARACTER*16 CUS$DATE2 3 CHARACTER*30 CUS$USER1 3 CHARACTER*30 CUS$USER2 3 CHARACTER*1 LAST_DIP 3 CHARACTER*1 DIP_RESULT 3 CHARACTER*16 DATE_LAST_DIPPED 3 CHARACTER*5 DEC$TEXT1 3 CHARACTER*40 SURNAME1_PR " 3 CHARACTER*16 FORENAME1_PR 3 CHARACTER*5 INITIALS1_PR 3 CHARACTER*3 GENERATION_PR 3 CHARACTER*12 DEC$TEXT2 ww­ qˆemíš integer*4 identifier@ bits*4 flags [resource,dynamic,noaccess,subsystem,impersonate,-0 holder_hidden,name_hidden] integer*4 holderG bits*4 holder_flags [resource,dynamic,noaccess,subsystem,impersonate,-0 #holder_hidden,name_hidden] character*32 name0 INTEGER*2 KGB$W_LEVEL ! File structure level INTEGER*2 %FILL0 INTEGER*4 KGB$Q_SYS_ID(2) ! System identifier7 INTEGER*4 KGB$L_NEXT_ID ! Next available identifierww­ â²ê3 character*6 nodenaam integer*4 huidige_periode integer*4 dagwissel integer*4 weekwissel integer*4 maanwissel! character*10 selectiedatum_start! character*10 selectiedatum_eindeww­"(Ç÷/¢3 BYTE UAF$B $_RTYPE ! UAF-record type5 BYTE UAF$B_VERSION ! UAF format versionH INTEGER*2 UAF$W_USRDATOFF ! offset of counted string of user data CHARACTER*32 UAF$T_USERNAME8 INTEGER*2/OCTAL UAF$W_MEM ! member subfield7 INTEGER*2/OCTAL UAF$W_GRP ! group subfield6 INTEGER*4 UAF$L_SUB_ID ! user sub-identifier INTEGER*4 UAF$Q_PARENT_ID(2) CHARACTER*32 UAF$T_ACCOUNT STRING*31 UAF$T_OWNER STRING*31 UAF$T_DEFDEV STRING*63 UAF$ %T_DEFDIR STRING*63 UAF$T_LGICMD STRING*31 UAF$T_DEFCLI STRING*31 UAF$T_CLITABLES INTEGER*4/HEX UAF$Q_PWD(2) INTEGER*4/HEX UAF$Q_PWD2(2): INTEGER*2 UAF$W_LOGFAILS ! count of login failures7 INTEGER*2 UAF$W_SALT ! random password saltM BYTE UAF$B_ENCRYPT [0=AD-II,1=PURDY,2=PURDY_V,3=PURDY_S,127=DEFAULT]N BYTE UAF$B_ENCRYPT2 [0=AD-II,1=PURDY,2=PURDY_V,3=PURDY_S,127=DEFAULT]: BYTE UAF$B_PWD_LENGTH ! minimum password length byt &e %filler date*8 UAF$Q_EXPIRATION date*8 UAF$Q_PWD_LIFETIME date*8 UAF$Q_PWD_DATE date*8 UAF$Q_PWD2_DATE date*8 UAF$Q_LASTLOGIN_I date*8 UAF$Q_LASTLOGIN_N bits*8 UAF$Q_PRIV -{ [CMKRNL,CMEXEC,SYSNAM,GRPNAM,ALLSPOOL,IMPERSONATE,DIAGNOSE,LOG_IO,GROUP,NOACNT,PRMCEB,PRMMBX,PSWAPM,SETPRI,SETPRV,TMPMBX,- WORLD,MOUNT,OPER,EXQUOTA,NETMBX,VOLPRO,PHY_IO,BUGCHK,PRMGBL,SYSGBL,PFNMAP,SHMEM,SYSPRV,BYPASS,SYSLCK,SHARE,UPGRADE,DOWNGRADE,-7 GRPPR 'V,READALL,IMPORT,AUDIT,SECURITY,,,ACNT,,,,ALTPRI] bits*8 UAF$Q_DEFPRIV -{ [CMKRNL,CMEXEC,SYSNAM,GRPNAM,ALLSPOOL,IMPERSONATE,DIAGNOSE,LOG_IO,GROUP,NOACNT,PRMCEB,PRMMBX,PSWAPM,SETPRI,SETPRV,TMPMBX,- WORLD,MOUNT,OPER,EXQUOTA,NETMBX,VOLPRO,PHY_IO,BUGCHK,PRMGBL,SYSGBL,PFNMAP,SHMEM,SYSPRV,BYPASS,SYSLCK,SHARE,UPGRADE,DOWNGRADE,-7 GRPPRV,READALL,IMPORT,AUDIT,SECURITY,,,ACNT,,,,ALTPRI] character*20 UAF$R_MIN_CLASS character*20 UAF$R_MAX_CLASS BITS*4 UAF$L_FLAGS -N [DISCTLY,DEFC (LI,LOCKPWD,RESTRICTED,DISACNT,DISWELCOME,DISMAIL,NOMAIL,GENPWD,-B PWD_EXPIRED,PWD2_EXPIRED,AUDIT,DISREPORT,DISRECONNECT,AUTOLOGIN,-X DISFORCE_PWD_CHANGE,CAPTIVE,DISIMAGE,DISPWDDIC,DISPWDHIS,DEFCLSVAL,EXTAUTH,MIGRATEPWD,- VMSAUTH,DISPWDSYNCH,PWDMIX]$ bits*3 UAF$B_NETWORK_ACCESS_P$ bits*3 UAF$B_NETWORK_ACCESS_S" bits*3 UAF$B_BATCH_ACCESS_P" bits*3 UAF$B_BATCH_ACCESS_S" bits*3 UAF$B_LOCAL_ACCESS_P" bits*3 UAF$B_LOCAL_ACCESS_S# bits*3 UAF$B_DIALUP_ACCES)S_P# bits*3 UAF$B_DIALUP_ACCESS_S# bits*3 UAF$B_REMOTE_ACCESS_P# bits*3 UAF$B_REMOTE_ACCESS_S byte %filler(12) bitfield rBits*7 UAF$B_PRIMEDAYS -D [MONDAY,TUESDAY,WEDNEDSAY,THURSDAY,FRYDAY,SATURDAY,SUNDAY] endbitfield byte %filler2; BYTE/Ran=0:31 UAF$B_PRI ! base process priority? BYTE UAF$B_QUEPRI ! maximum job queuing priority? INTEGER*2 UAF$W_MAXJOBS ! maximum jobs for UIC allowedC INTEGER*2 * UAF$W_MAXACCTJOBS ! maximum jobs for account allowedE INTEGER*2 UAF$W_MAXDETACH ! maximum detached processes for UIC; INTEGER*2 UAF$W_PRCCNT ! subproces creation limit5 INTEGER*2 UAF$W_BIOLM ! buffered I/O limit3 INTEGER*2 UAF$W_DIOLM ! direct I/O limit: INTEGER*2 UAF$W_TQCNT ! timer queue entry limit2 INTEGER*2 UAF$W_ASTLM ! AST queue limit0 INTEGER*2 UAF$W_ENQLM ! enqueue limit2 INTEGER*2 UAF$W_FILLM ! open +file limit4 INTEGER*2 UAF$W_SHRFILLM ! shared file limit9 INTEGER*4 UAF$L_WSQUOTA ! working set size quota; INTEGER*4 UAF$L_DFWSCNT ! default working set size9 INTEGER*4 UAF$L_WSEXTENT ! working set size limit2 INTEGER*4 UAF$L_PGFLQUOTA ! page file quota1 CPUTIME UAF$L_CPUTIM ! CPU time quota@ INTEGER*4 UAF$L_BYTLM ! buffered I/O byte count limitD INTEGER*4 UAF$L_PBYTLM ! paged buffer I/O byte count limitM INTEGER*4 UAF$ ,L_JTQUOTA ! job-wide logical name table creation quotaC INTEGER*2 UAF$W_PROXY_LIM ! number of proxies user can grant< INTEGER*2 UAF$W_PROXIES ! number of proxies grantedA INTEGER*2 UAF$W_ACCOUNT_LIM ! number of sub-accounts allowed@ INTEGER*2 UAF$W_ACCOUNTS ! number of sub-accounts in use1 character*20 UAF$R_DEF_CLASS ! default classes BYTE %UNKNOWN(1478)ww­àÅ>› character*32 username structure item(132) integer*8/hex binpwd d-ate*8 date end structureww­À0»ü|œ CHARACTER*31 USERNAME STRUCTURE TEMP(100)? INTEGER*2 TYPE [1=NEW_MAIL,2=FLAG,3=DIRECTORY,4=FORW_ADDR, -O 5=PERSONAL_NAME,6=MAILPLUS,7=TRANSPORT,8=EDITOR,9=PR_QUEUE,-< 10=USER1,11=USER2,12=USER3,13=FORM] UNION MAP TYPE=new_mail INTEGER*2 %LENGTH INTEGER*2 new_mail_count END MAP MAP TYPE=flag INTEGER*2 %LENGTHL BITS*2 flags [copy_send,copy_reply,noauto_p urge,copy_forward,cc_prompt] END MAP ! MAP *! WSTRING other_name ! ENDMAP MAP TYPE=3:form WSTRING name ENDMAP END UNION END STRUCTUREww L­ŸF‘»P¥> ubyte id_offset ! Offset to Ident area= ubyte map_offset ! Offset mapping area$< ubyte acl_offset ! Offset to ACL areaA ubyte res_offset ! Offset to reserved area*B integer*2 seg_num ! Extension seqment numberA byte struct_lev_min ! On disk structure levelCA byte struct_lev_maj ! On disk structure level(1 fileid 0­È ¥›¶I¢ character*30 a1naam character*20 template character*68 a1directory character*68 frmlib character*1 notinuse character*1 crate$fail character*12 vmsuser! character*70 vmsdirectory character*15 reserved! character*1 rsvd_for_tcs character*40 achternaam character*16 voornaam character*5 initialen character*64 fullname character*64 company1 character*32 department character*20 location! character*20 int_location character*3 generation character*40 functie character*32 telefoon character*32 telefoonint character*40 adr1 character*40 adr2 character*40 adr3 character*40 adr4 character*40 adr5 character*40 adr6 character*40 country character*40 zipcod character*16 voornaam2 charac2ter*16 voornaam3 character*16 voornaam4 character*16 voornaam5 character*40 achternaam2 character*40 achternaam3 character*5 initialen2 character*5 initialen3 character*5 initialen4 character*5 initialen5 character*68 status character*31 mail_reply! character*78 mail_forward0 character*1 notify !notiry new mail: character*1 qpnot !notify print job complete: ch3aracter*1 qbnot !notify batch jobs complet character*1 tickler character*1 actitem" character*78 mail_forward2" character*78 mail_forward3" character*78 mail_forward4 character*10 maides character*10 mail_menu& character*1 mail_read_receipt character*30 start character*10 tm$menu character*31 password character*10 editor% character*1 enforced_archive character*8 mail$4area character*1 admin character*1 date$format character*15 printer! character*1 printer_port8 character*1 prvdcl !priv to dcl A character*1 prvcmd !priv to exec a1 commands character*1 prvupddcl character*1 prvupdfnc character*1 prvxown character*1 prvview character*1 prvsubA character*1 prvsup !priv to super fms fields character*1 prv5errH character*1 prvsrc !priv to exe unanchores searches character*1 corp_phone character*1 prvlogD character*1 prvapp !priv to access cm subsystem5 character*1 md_flag !User to DDS? character*1 multi_node  character*1 set_mode character*25 keyboard character*13 node character*1 startd character*7 starth character*7 meals character*1 n6odays character*7 endh character*7 meale character*1 timefmt character*5 caltimeincF character*1 setusr !priv to set ower to other cal character*45 oper character*1 calday character*32 ddsid character*43 extra1 character*10 class character*1 uflag1 character*1 uflag2 character*1 uflag3 character*1 uflag4 character*1 uflag5 char7acter*1 uflag6 character*1 uflag7 character*1 uflag8 character*1 uflag9 character*1 uflag10 character*20 language character*50 extra2 character*10 quota character*10 overdraft character*10 doccount character*1 logincheck character*1 utility: CHARACTER*1 STATUS$LINE : CHARACTER*1 READ$WIDE : CHARACTER*1 DL_READ 8 : CHARACTER*1 DL_PRINT : CHARACTER*1 CONFIRM$SEL : CHARACTER*1 DELETE$UNREAD : CHARACTER*1 NEW$FOLDER$PROMPT : CHARACTER*1 COVER$NOTE : CHARACTER*1 DELETE$PROMPT : CHARACTER*1 DELETE_JOB : CHARACTER*1 CDA_STORAGE 9 : CHARACTER*1 CDA_HANDLING : CHARACTER*3 CLASSIFICATION : CHARACTER*16 CATEGORIES : CHARACTER*1 CREATE_GRP : CHARACTER*1 RCV$SUB : CHARACTER*1 CREATE_CONF : CHARACTER*1 CREATE_DRAWER : CHARACTER*2 CREATE_DRAWER_NUMBER : CHARACTER*1 C :LEANMAIL : CHARACTER*1 REGULAR_USER : CHARACTER*16 TIME_STAMP : CHARACTER*32 ORGUNIT1 : CHARACTER*32 ORGUNIT2 : CHARACTER*32 ORGUNIT3 : CHARACTER*32 ORGUNIT4 : CHARACTER*1 EXPIRY_WARNING : CHARACTER*1 DELETE_EXPIRED ; : CHARACTER*1 BCC_DELETE : CHARACTER*1 X400_CORREL : CHARACTER*1 AUTO_FWD_REDIR : CHARACTER*1 X500_UPDATE : CHARACTER*12 X500_POLICY : CHARACTER*3 COUNTRY_ID : CHARACTER*16 ADMD : CHARACTER*16 PRMD : CHARAC <TER*1 A1FS_ACCESS : CHARACTER*1 A1FS_CREATE : CHARACTER*1 A1FS_SCHEDULE_PRIV : CHARACTER*1 A1FS_RULE_QUEUE : CHARACTER*1 CUS$FLAG1 : CHARACTER*1 CUS$FLAG2 : CHARACTER*1 CUS$FLAG3 : CHARACTER*1 CUS$FLAG4 : CHARACTER*1 CUS$FLAG5 = : CHARACTER*1 CUS$FLAG6 : CHARACTER*1 CUS$FLAG7 : CHARACTER*1 CUS$FLAG8 : CHARACTER*1 CUS$FLAG9 : CHARACTER*1 CUS$FLAG10 : CHARACTER*6 CUS$NUM1 : CHARACTER*6 CUS$NUM2 : CHARACTER*6 CUS$NUM3 : > CHARACTER*16 CUS$DATE1 : CHARACTER*16 CUS$DATE2 : CHARACTER*30 CUS$USER1 : CHARACTER*30 CUS$USER2 : CHARACTER*1 LAST_DIP : CHARACTER*1 DIP_RESULT : CHARACTER*16 DATE_LAST_DIPPED : CHARACTER*5 DEC$TEXT1 : CHARACTER*40 SURNAME1_PR : CHARACTER*16 FORENAME1_PR : CHARACTER*5 INITIALS1_PR : CHARACTER*3 GENERATION_PR : CHARACTER*12 DEC$TEXT2 ww @­î†ÏwO¢3 BYTE UAF$B_RTYPE ! UAF-record type5 BYTE UAF$B_VERSION ! UAF format versionH INTEGER*2 UAF$W_USRDATOFF ! offset of counted string of user data CHARACTER*32 UAF$T_USERNAME8 INTEGER*2/OCTAL UAF$W_MEM ! member subfield7 INTEGER*2/OCTAL UAF$W_GRP ! group subfield6 INTEGER*4 UAF$L_SUB_ID ! user sub-identifier INTEGER*4 UAF$Q_PARENT_ID(2) CHARACTER*(32) UAF$T_ACCOUNT STRING*31 UAF$T_OWNER STR AING*31 UAF$T_DEFDEV STRING*63 UAF$T_DEFDIR STRING*63 UAF$T_LGICMD STRING*31 UAF$T_DEFCLI STRING*31 UAF$T_CLITABLES INTEGER*4/HEX UAF$Q_PWD(2) INTEGER*4/HEX UAF$Q_PWD2(2): INTEGER*2 UAF$W_LOGFAILS ! count of login failures7 INTEGER*2 UAF$W_SALT ! random password saltM BYTE UAF$B_ENCRYPT [0=AD-II,1=PURDY,2=PURDY_V,3=PURDY_S,127=DEFAULT]N BYTE UAF$B_ENCRYPT2 [0=AD-II,1=PURDY,2=PURDY_V,3=PURDY_S,127=DEFAULT]: BYTE UAF$B_PW BD_LENGTH ! minimum password length byte %filler date*8 UAF$Q_EXPIRATION date*8 UAF$Q_PWD_LIFETIME date*8 UAF$Q_PWD_DATE date*8 UAF$Q_PWD2_DATE date*8 UAF$Q_LASTLOGIN_I date*8 UAF$Q_LASTLOGIN_N bits*8 UAF$Q_PRIV -{ [CMKRNL,CMEXEC,SYSNAM,GRPNAM,ALLSPOOL,IMPERSONATE,DIAGNOSE,LOG_IO,GROUP,NOACNT,PRMCEB,PRMMBX,PSWAPM,SETPRI,SETPRV,TMPMBX,- WORLD,MOUNT,OPER,EXQUOTA,NETMBX,VOLPRO,PHY_IO,BUGCHK,PRMGBL,SYSGBL,PFNMAP,SHMEM,SYSPRV,BYPASS C,SYSLCK,SHARE,UPGRADE,DOWNGRADE,-7 GRPPRV,READALL,IMPORT,AUDIT,SECURITY,,,ACNT,,,,ALTPRI] bits*8 UAF$Q_DEFPRIV -{ [CMKRNL,CMEXEC,SYSNAM,GRPNAM,ALLSPOOL,IMPERSONATE,DIAGNOSE,LOG_IO,GROUP,NOACNT,PRMCEB,PRMMBX,PSWAPM,SETPRI,SETPRV,TMPMBX,- WORLD,MOUNT,OPER,EXQUOTA,NETMBX,VOLPRO,PHY_IO,BUGCHK,PRMGBL,SYSGBL,PFNMAP,SHMEM,SYSPRV,BYPASS,SYSLCK,SHARE,UPGRADE,DOWNGRADE,-7 GRPPRV,READALL,IMPORT,AUDIT,SECURITY,,,ACNT,,,,ALTPRI] character*20 UAF$R_MIN_CLASS character*20 UAF$R_MAX_CLASS B DITS*4 UAF$L_FLAGS -N [DISCTLY,DEFCLI,LOCKPWD,RESTRICTED,DISACNT,DISWELCOME,DISMAIL,NOMAIL,GENPWD,-B PWD_EXPIRED,PWD2_EXPIRED,AUDIT,DISREPORT,DISRECONNECT,AUTOLOGIN,-X DISFORCE_PWD_CHANGE,CAPTIVE,DISIMAGE,DISPWDDIC,DISPWDHIS,DEFCLSVAL,EXTAUTH,MIGRATEPWD,- VMSAUTH,DISPWDSYNCH,PWDMIX]$ bits*3 UAF$B_NETWORK_ACCESS_P$ bits*3 UAF$B_NETWORK_ACCESS_S" bits*3 UAF$B_BATCH_ACCESS_P" bits*3 UAF$B_BATCH_ACCESS_S" bits*3 UAF$B_LOCAL_ACCESS_P" bits*3 UAF$B_LOCAL_EACCESS_S# bits*3 UAF$B_DIALUP_ACCESS_P# bits*3 UAF$B_DIALUP_ACCESS_S# bits*3 UAF$B_REMOTE_ACCESS_P# bits*3 UAF$B_REMOTE_ACCESS_S byte %filler(12) bitfield rBits*7 UAF$B_PRIMEDAYS -D [MONDAY,TUESDAY,WEDNEDSAY,THURSDAY,FRYDAY,SATURDAY,SUNDAY] endbitfield byte %filler2; BYTE/Ran=0:31 UAF$B_PRI ! base process priority? BYTE UAF$B_QUEPRI ! maximum job queuing priority? INTEGER*2 UAF$W_MAXJOBS ! F maximum jobs for UIC allowedC INTEGER*2 UAF$W_MAXACCTJOBS ! maximum jobs for account allowedE INTEGER*2 UAF$W_MAXDETACH ! maximum detached processes for UIC; INTEGER*2 UAF$W_PRCCNT ! subproces creation limit5 INTEGER*2 UAF$W_BIOLM ! buffered I/O limit3 INTEGER*2 UAF$W_DIOLM ! direct I/O limit: INTEGER*2 UAF$W_TQCNT ! timer queue entry limit2 INTEGER*2 UAF$W_ASTLM ! AST queue limit0 INTEGER*2 UAF$W_ENQLM ! enqueue limit G2 INTEGER*2 UAF$W_FILLM ! open file limit4 INTEGER*2 UAF$W_SHRFILLM ! shared file limit9 INTEGER*4 UAF$L_WSQUOTA ! working set size quota; INTEGER*4 UAF$L_DFWSCNT ! default working set size9 INTEGER*4 UAF$L_WSEXTENT ! working set size limit2 INTEGER*4 UAF$L_PGFLQUOTA ! page file quota1 CPUTIME UAF$L_CPUTIM ! CPU time quota@ INTEGER*4 UAF$L_BYTLM ! buffered I/O byte count limitD INTEGER*4 UAF$L_PBYTLM ! paged buffe r I/O byte count limitM INTEGER*4 UAF$L_JTQUOTA ! job-wide logical name table creation quotaC INTEGER*2 UAF$W_PROXY_LIM ! number of proxies user can grant< INTEGER*2 UAF$W_PROXIES ! number of proxies grantedA INTEGER*2 UAF$W_ACCOUNT_LIM ! number of sub-accounts allowed@ INTEGER*2 UAF$W_ACCOUNTS ! number of sub-accounts in use1 character*20 UAF$R_DEF_CLASS ! default classes BYTE %UNKNOWN(1478)ww­†ˆâ;Q¢+ integer*2 caller_nr/file=*.crf_mod_names+ integer*2 called_nr/file=*.crf_mod_namesww­BžVQ¢+ integer*2 caller_nr/file=*.crf_mod_names+ integer*2 called_nr/file=*.crf_mod_namesww­5OrQ¢+ integer*2 /file=.crf_mod_names caller_nrs* integer*2 called_nr/file=.crf_mod_nameswwllerww­­òfQ¢ integer*2 mod_nr character*32 mod_name, integer*2 file_nr/file=.crf_file_namesww xfile_id ! File id ( fileid ext_fid/record -S /comp="f$getd($file,""blnr"")+int(f$extr(1,-1,f$elem(0,"","",$FIELD)))" -*: /if="int(f$extr(1,-1,f$elem(0,"","",$FIELD)))>0" structure rec_attr bitfield1_ integer*4 rtype [0=undefined,1=fixed,2=variable,3=vfc,4=stream,5=streamlf,6=streamcr]2B integer*4 fileorg [0=sequential,1=relative,2=indexed,3=special] endbitfield C bits*1 recattr [fortrancc,impliedcc,printcc,n‚¤ STUBBF KEY_*.VALº«"µB㢂¤ STUBBF KEY_*.INDº«#åÁU袂¤ STUBBF KEYS-*.indº«#×íí¢‚¤ STUBBF KEYS-*.VALº«`)õ؆¤ STUBBF SYSUAFº« E ›ÇK–¤ STUBBF FILECABº« @¡# L–¤ STUBBF FILECABº« ÔàãL–¤ STUBBF FILECABº« Ö–53L–¤ STUBBF FILECABº« GŒ=L–¤ STUBBF FILECABº« ˜=Ž’L–¤ STUBBF FILECABº«"Za?±Ï¤ STUBBF *DAF*.DATº«íe²ß¤ STUBBE INDEXFº«³%X´ß¤ STUBBE INDEXF­YeƒDQ¢ integer*2 file_nr character*60 file_name integer*2 %fillerww structure t end structure character*1920 %attributestww,Badacl,-< Spool,Directory,Badblock,Markdel,Nocharge,Erase,alm_aip,-> shelved,scratch,nomove,noshelvable,shelv_res]! character*2 %res_1 ! reserved 1I' ubyte map_in_use ! # map words in useR0 byte acc_mode ! File accessor priv mode needed uic owner ! Owning UIC ( protection protection ! File protection fileid backl_fid/record -_S /comp="f$getd($file,""blnr"")+int(f$extr(1,-1,f$elem(0,"","",$FIEL­À›U袂¤ character*1 vlag(999)wwt [pointers] /nodisplay. structure work & integer*2 length/nodisplayc byte %dunnow(6)s# character*(length) data . end structure / exit [offset+length+2>=this_rec_attr] . end structure " character*1920 %attributesww date FI5$Q_BAKDATE V date FI5$Q_ACCDATE S date FI5$Q_ATTDATE , ­²îìí¢‚¤ integer*4 entry union map entry=0 date*8 timestamp end map map * ubyte maine ubyte sub character*12 username end map end union fww end structure / exit [offset+length+2>=this_rec_attr]*. end structure " character*1920 %attributeswwacter*66 rest_fnamM end mapS map *, integer*4 data(20)a end map$ end union1 range (map_offset*2:2*(map_of V­Ìœõ؆¤3 BYTE UAF$B_RTYPE ! UAF-record typec5 BYTE UAF$B_VERSION ! UAF format version H INTEGER*2 UAF$W_USRDATOFF ! offset of counted string of user data CHARACTER*32 UAF$T_USERNAME 8 INTEGER*2/OCTAL UAF$W_MEM ! member subfield7 INTEGER*2/OCTAL UAF$W_GRP ! group subfieldd: INTEGER*4 UAF$L_SUB_ID ! user sub-identifier INTEGER*4 UAF$Q_PARENT_ID(2) CHARACTER*(32) UAF$T_ACCOUNT STRING*31 UAF$T_OWNERn TD-II,1=PURDY,2=PURDY_V,3=PURDY_S,127=DEFAULT]tN BYTE UAF$B_ENCRYPT2 [0=AD-II,1=PURDY,2=PURDY_V,3=PURDY_S,127=DEFAULT]: BYTE UAF$B_PWD_LENGTH ! minimum password length byte %filler,' deltatime*8 UAF$Q_EXPIRATION [0=none]c) deltatime*8 UAF$Q_PWD_LIFETIME [0=none]S8 date*8 UAF$Q_PWD_DATE [0=never,-1=pre_expired]) date*8 UAF$Q_PWD2_DATE [0=never]h) date*8 UAF$Q_LASTLOGIN_I [0=never]/) date*8 UAF$Q_LASTLOGIN_N [0=never]r bits*8 UAF$UQ_PRIV -{ [CMKRNL,CMEXEC,SYSNAM,GRPNAM,ALLSPOOL,IMPERSONATE,DIAGNOSE,LOG_IO,GROUP,NOACNT,PRMCEB,PRMMBX,PSWAPM,SETPRI,SETPRV,TMPMBX,-  WORLD,MOUNT,OPER,EXQUOTA,NETMBX,VOLPRO,PHY_IO,BUGCHK,PRMGBL,SYSGBL,PFNMAP,SHMEM,SYSPRV,BYPASS,SYSLCK,SHARE,UPGRADE,DOWNGRADE,-r7 GRPPRV,READALL,IMPORT,AUDIT,SECURITY,,,ACNT,,,,ALTPRI]  bits*8 UAF$Q_DEFPRIV - { [CMKRNL,CMEXEC,SYSNAM,GRPNAM,ALLSPOOL,IMPERSONATE,DIAGNOSE,LOG_IO,GROUP,NOACNT,PRMCEB,PRMMBX,PSWAPM,SETPRI,SETPRV,TMPMBX,-n WORLD,MOUNT,OPER,EXQUOT sA,NETMBX,VOLPRO,PHY_IO,BUGCHK,PRMGBL,SYSGBL,PFNMAP,SHMEM,SYSPRV,BYPASS,SYSLCK,SHARE,UPGRADE,DOWNGRADE,-o7 GRPPRV,READALL,IMPORT,AUDIT,SECURITY,,,ACNT,,,,ALTPRI]  character*20 UAF$R_MIN_CLASSi character*20 UAF$R_MAX_CLASSe BITS*4 UAF$L_FLAGS -iN [DISCTLY,DEFCLI,LOCKPWD,RESTRICTED,DISACNT,DISWELCOME,DISMAIL,NOMAIL,GENPWD,-B PWD_EXPIRED,PWD2_EXPIRED,AUDIT,DISREPORT,DISRECONNECT,AUTOLOGIN,-X DISFORCE_PWD_CHANGE,CAPTIVE,DISIMAGE,DISPWDDIC,DISPWDHIS,DEFCLSVAL,EXTAUTH,MIGRATEPWD,- VMSAUTH,D l STRING*31 UAF$T_DEFDEV STRING*63 UAF$T_DEFDIR STRING*63 UAF$T_LGICMD STRING*31 UAF$T_DEFCLI STRING*31 UAF$T_CLITABLESe INTEGER*4/HEX UAF$Q_PWD(2) INTEGER*4/HEX UAF$Q_PWD2(2)t: INTEGER*2 UAF$W_LOGFAILS ! count of login failures7 INTEGER*2 UAF$W_SALT ! random password saltnM BYTE UAF$B_ENCRYPT [0=AD-II,1=PURDY,2=PURDY_V,3=PURDY_S,127=DEFAULT] N BYTE UAF$B_ENCRYPT2 [0=AD-II,1=PURDY,2=PURDY_V,3=PURDY_S,127=DEFAULT]: BYTE UAF$­u÷6lÖ…¢integer*2 verslim bits*1 flags string namepad*2structure v(64) integer*2 version3 fileid fileid/file=[000000]indexf.sys/record/-S compu="f$getd(%file,""blnr"")+int(f$extr(1,-1,f$element(0,"","",'thisfield')))-1"!test extra regel!test extra regel endstructureww_ext= integer*2 globbuf integer*2 %fil3(4)m integer*2 verslim end structuret# bits*4 file_char - D [Wascontig,Nobackup,Writeback,Readcheck,Writecheck,-4 Contigb,Locked,Contig,#,#,,Badacl,-J Spool,Directory,Badblock,Markdel,Nocharge,Erase,alm_aip,-> shelved,scratch,nomove,noshelvable,shelv_res] bitfield,+ position/relative (-24) !backup 3 bytesOD integer*2 caching [writethrZ­.a~PÉ£! ! Structure voor docdb.dat! CHARACTER*30 FOLDER CHARACTER*6 FIXERt CHARACTER*6 REFNUM CHARACTER*6 TITLE_HASH CHARACTER*64 FILENAME -1 /if="F$EXTRACT(0,7,$FIELD) = ""OA$SHAR""" - W /file="""OA$SHAR""+F$EXTRA(7,1,$FIELD)+"":OA$DAF_""+F$EXTRA(7,1,$FIELD)+"".DAT"""t CHARACTER*1 DAPOINTER  CHARACTER*72 TITLEE CHARACTER*30 AUTHOR CHARACTER*15 TYPE CHARACTER*15 SETUP1 CHARACTER*15 FORMAT CHARACTER*50 KEYWORDS CHARACTER*8 CREDAT CHARACTERk*8 MODDAT CHARACTER*6 MAIL_ORIG" character*1 COMPOSITE " character*1 IMPORTANCE " character*1 SENSITIVITY " character*1 REPLY_REQUEST " character*1 REPLY_ISSUED " character*1 NOTIFICATION_REQUEST " character*1 NOTIFICATION_SENT " character*1 EXPIRY_DATE_PRESENT " character*4 RECIPIENT_ID " character*4 IPMID_HASH " character*14 SYS5  CHARACTER*20 MAIL_STATUS  CHARACTER*6 DOCNUM CHARACTER*1 DELETE C ­ܺ]Ѷ£integer*2 verslim [32767=none] bits*1 flags string nameZpad*20structure v(64)d integer*2 versionw= fileid fileid/file="""[000000]""+""indexf.sys"""/record--J /comp="f$getd($file,""blnr"")+int(f$extr(1,-1,f$elem(0,"","",$field)))" endstructurewweww¢ character*6 node character*249 xxx character*6 node23 character*40 a1naam/file=oa$data:profile.dat/key=0)ww£ STUBBE USERTYPE:newtypeº«'^&R[ƒ£ STUBBF usetype:mytypeº«(À±Q_ƒ£c­“öÑø£ show symb *1if (p1 = "SIZE") then a = 4 stat = 1 endif"if (p1 = "INTASC") then k = 0 a = ""lp1: byt = f$extra(k,1,p2) if (byt <> "") then k = k + 1e a = a + "," + f$extz(0,8,byt)1 goto lp1 endif stat = 1-endif"if (p1 = "ASCINT") thenr set noont a = ""  k = 0 stat = 2elp2: part = f$eleme(k,",",p2)  if (part .nes. ",") theni byt = int(part)z if .not. $status then goto err1 if (byt .lt. 0 .or. byt .gt. 255) then goto errt a i­)ܶ£5 integer*4 identifier/file=sysuaf/if="$FIELD>0"/key=1"@ bits*4 flags [resource,dynamic,noaccess,subsystem,impersonate,-0 holder_hidden,name_hidden] integer*4 holder G bits*4 holder_flags [resource,dynamic,noaccess,subsystem,impersonate,-r0 holder_hidden,name_hidden] character*32 name0 INTEGER*2 KGB$W_LEVEL ! File structure level INTEGER*2 %FILL0 INTEGER*4 KGB$Q_SYS_ID(2) ! System identifier7 INTEGER*4 KGB$L_NEXT_ID ! Nea­’ë5NIÛ¢L! ! All-in-1 file PARTITION.DAT! character*60 a1_lade_naam" character*72 a1_lade_beschrijving character*2 %filler_1 character*30 vms_owner character*68 a1_lade_directory character*28 mooi character*2 country character*2 language integer*2 teller character*4 keweenie integer*2 teller2/ zstring*13 disknaam !zero filled van docdb.dat& fileid fileid !van docdb.dat cha`ough,writeback,flush_on_clos,no_cache]' position/relative (22) !skip 22 bits, end bitfieldD, Integer*2 rec_prot ! < ubyte map_in_use ! # map words in useH byte acc_mode ! File accessor priv mode needed4 uic owner ! Owning UIC9 protection protection ! File protectionA* fileid backl_fid/record -S /comp="f$getd($file,""blnr"")+int(f$extr(1,-1,f$elem(0,"",p"",$FIELD)))" -c: /if="int(f$extr(1,-1,f$elem(0,"","",$FIELD)))>0"; bits*2 journal ! Journalling flagsLF integer*2 ru_active ! Recover facility unit numberE integer highwater ! Highest blocknr written + 1, unionT map struct_lev_maj=5S1 byte FI5$B_CONTROL [0=ODS-2,1=ODS-5]i byte FI5$B_NAMELEN C% integer*2 FI5$W_REVISION S% date FI5$Q_CREDATE [0=none]_% racter*16 timestamp character*517 %fil1 integer*2 teller3 character*197 %filler_2ww­veQ_ƒ£ show symb *if (p1 = "AI") then a = "ABCD"else a = "1234"endifresult aexitww= a + f$char(byt) k = k + 1 goto lp2 endifstat = 1err:endifresult a exit 'stat'wwe­ÝÁÌ£if (p1 = "SIZE") then a = 4 stat = 1endif!if (p1 = "INTASC") then stat = 0 k = 0 a = ""lp1: kar = f$extra(k,1,p2) if (kar <> "") then byt = f$extz(0,8,kar) if (byt <> 0) stat = 1 k = k + 1 a = a + "," + string(byt) goto lp1 endif a = f$extra(1,-1,a) stat = 1endif!if (p1 = "ASCINT") then set noon a = "" k = 0 stat = 2lp2: part = f$eleme(k,",",p2) if (part <> ",") then byt = int(part) if (even($status)) goto err# if (byt < 0 | byt > 255) goto err a = a + f$char(byt) k = k + 1 goto lp2 endifstat = 1err:endifresult a show symb ashow symb stat exit 'stat'wwg­‘ýq¦£> if (action = "SIZE") then !return symbol SIZE (size in bits)6 size = 32*8 !will not be called since the size is stat = 1 !fixed at 8 bytes endifb3 if (action = "BINASC") then !return symbol RESULT  nk = f$length(data)( stat = 0 !assume all bytes are ZERO result = "" for k=1,nk  kar = f$extract(k-1,1,data)= byt = f$extzv(0,8,kar). if (byt <> 0) stat = 1 !not all bytes ZERO' result = result + "," + string(byt)l endfora" rjesult = f$extract(1,-1,result) endif"< if (action = "ASCBIN") then !return symbol RESULT and SIZE set noony result = "" k = 0* stat = 2 !assmume error in conversion# lp2: part = f$element(k,",",data) if (part <> ",") then byt = int(part) if (even($status)) goto err% if (byt < 0 | byt > 255) goto err! result = result + f$char(byt) k = k + 1 goto lp2 endif5 size = f$length(result)*8 !return length in bits! stat = 1 !successfu­*å²Ö¶£S character*6 nummer/file=docdb.dat/key=1/comp="f$fao(""!6ZL"",1000000-int($FIELD))"S character*64 kweenie character*63 besnam5 character*12 usernaam/file=oa$data:profile.dat/key=1e character*18 dd0i character*16 datum( character*18 dd1) character*21 www character*6 node character*249 xxx character*6 node23 character*30 a1naam/file=oa$data:profile.dat/key=0 ww CSV03xt available identifier ww 018944R VMS_USER_M:[MARKETINGRO.A1.DOC4]IUH309R8.DOC KNOOPH 2002110113593027 P CSV035 l convert err: endif* exit 'stat' !return conversion resultwwmHARACTER*1 MODIFY CHARACTER*16 CREATEDT character*1 sys3  CHARACTER*16 MODIFIED character*1 autoforward_sentF CHARACTER*15 V1TYPE CHARACTER*15 DSAB CHARACTER*6 CUSTOMER CHARACTER*40 ARCHIVE_POINTER 2 character*19 CREATED1 2 character*19 MODIFIED1 2 character*8 CREDAT2 2 character*8 MODDAT2  character*64 FILENAME2b1 character*10 RECIP_ID 21 c nB_PWD_LENGTH ! minimum password length byte %filler) date*8 UAF$Q_EXPIRATION date*8 UAF$Q_PWD_LIFETIME date*8 UAF$Q_PWD_DATE date*8 UAF$Q_PWD2_DATEs date*8 UAF$Q_LASTLOGIN_I  date*8 UAF$Q_LASTLOGIN_N$ bits*8 UAF$Q_PRIV -{ [CMKRNL,CMEXEC,SYSNAM,GRPNAM,ALLSPOOL,IMPERSONATE,DIAGNOSE,LOG_IO,GROUP,NOACNT,PRMCEB,PRMMBX,PSWAPM,SETPRI,SETPRV,TMPMBX,-X WORLD,MOUNT,OPER,EXQUOTA,NETMBX,VOLPRO,PHY_IO,BUGCHK,PRMGBL,SYSGBL,PFNMAP,SHMEM,SYSPRV,BYharacter*12 IMPORTANCE_TEXT t1 character*20 SENSITIVITY_TEXT p1 character*3 NOTIF_SENT 1 character*3 REP_ISSUED t1 character*3 REP_REQUEST 1 character*3 AUTOFWD_SENT iwwr*4 data(20) end mape end union1 range (map_offset*2:2*(map_offset+map_in_use)-1)  diskmap maps(256) end range$ range (acl_offset*2:res_offset*2-1) acl acls(50) e end range&oPASS,SYSLCK,SHARE,UPGRADE,DOWNGRADE,-t7 GRPPRV,READALL,IMPORT,AUDIT,SECURITY,,,ACNT,,,,ALTPRI]I bits*8 UAF$Q_DEFPRIV -a{ [CMKRNL,CMEXEC,SYSNAM,GRPNAM,ALLSPOOL,IMPERSONATE,DIAGNOSE,LOG_IO,GROUP,NOACNT,PRMCEB,PRMMBX,PSWAPM,SETPRI,SETPRV,TMPMBX,-  WORLD,MOUNT,OPER,EXQUOTA,NETMBX,VOLPRO,PHY_IO,BUGCHK,PRMGBL,SYSGBL,PFNMAP,SHMEM,SYSPRV,BYPASS,SYSLCK,SHARE,UPGRADE,DOWNGRADE,-a7 GRPPRV,READALL,IMPORT,AUDIT,SECURITY,,,ACNT,,,,ALTPRI]d character*20 UAF$R_MIN_CLASSn character*20 UAF$R_MAX_CLASSf t BITS*4 UAF$L_FLAGS -aN [DISCTLY,DEFCLI,LOCKPWD,RESTRICTED,DISACNT,DISWELCOME,DISMAIL,NOMAIL,GENPWD,-B PWD_EXPIRED,PWD2_EXPIRED,AUDIT,DISREPORT,DISRECONNECT,AUTOLOGIN,-X DISFORCE_PWD_CHANGE,CAPTIVE,DISIMAGE,DISPWDDIC,DISPWDHIS,DEFCLSVAL,EXTAUTH,MIGRATEPWD,- VMSAUTH,DISPWDSYNCH,PWDMIX]% rbits*3 UAF$B_NETWORK_ACCESS_P% rbits*3 UAF$B_NETWORK_ACCESS_S# rbits*3 UAF$B_BATCH_ACCESS_P# rbits*3 UAF$B_BATCH_ACCESS_S# rbits*3 UAF$B_LOCAL_ACCESS_P# rbits*3 q date FI5$Q_REVDATE [0=none]s' date FI5$Q_EXPDATE [0=none] r' date FI5$Q_BAKDATE [0=none] s& date FI5$Q_ACCDATE [0=none] ( date FI5$Q_ATTDATE [0=none] $ integer*8 FI5$Q_EX_RECATTR bitfield-" integer*63 FI5$Q_DATAREC_COUNT rlogical*1 records_valid integer*63 FI5$Q_byte_COUNT, rlogical*1 bytes_valid end bitfield 2 character*(fi5$b_namelen) FI5$S_FILENAME end map map struct_lev_maj=2 A r character*20 fnam ! Variable mapped entries ! integer*2 revnrI1 date*8 cdat [0=none] c1 date*8 rdat [0=none] m1 date*8 edat [0=none] A1 date*8 bdat [0=none] G! character*66 rest_fname end map map * integer*4 data(20) end map end union 8 range (map_offset*2:2*(map_offset+map_in_use)-1) diskmap maps(256)  end range + range (acl_offset*2:res_offset*2-1)  acl acls(50)  end rangeF0 position (min(510,max(0,%recordsize()))) integer*2/hex checksumwww; INTEGER*4 UAF$L_DFWSCNT ! default working set sizes9 INTEGER*4 UAF$L_WSEXTENT ! working set size limite2 INTEGER*4 UAF$L_PGFLQUOTA ! page file quota1 CPUTIME UAF$L_CPUTIM ! CPU time quota @ INTEGER*4 UAF$L_BYTLM ! buffered I/O byte~ISPWDSYNCH,PWDMIX]% rbits*3 UAF$B_NETWORK_ACCESS_Pf% rbits*3 UAF$B_NETWORK_ACCESS_S # rbits*3 UAF$B_BATCH_ACCESS_P # rbits*3 UAF$B_BATCH_ACCESS_S2# rbits*3 UAF$B_LOCAL_ACCESS_Po# rbits*3 UAF$B_LOCAL_ACCESS_SA$ rbits*3 UAF$B_DIALUP_ACCESS_P$ rbits*3 UAF$B_DIALUP_ACCESS_S$ rbits*3 UAF$B_REMOTE_ACCESS_P$ rbits*3 UAF$B_REMOTE_ACCESS_S byte %filler(12) bitfield2 rBits*7 UAF$B_PRIMEDAYS -D [MONDAY,TUESDAY,WEu UAF$B_LOCAL_ACCESS_S$ rbits*3 UAF$B_DIALUP_ACCESS_P$ rbits*3 UAF$B_DIALUP_ACCESS_S$ rbits*3 UAF$B_REMOTE_ACCESS_P$ rbits*3 UAF$B_REMOTE_ACCESS_S byte %filler(12) bitfield rBits*7 UAF$B_PRIMEDAYS -D [MONDAY,TUESDAY,WEDNEDSAY,THURSDAY,FRYDAY,SATURDAY,SUNDAY] endbitfield byte %filler2; BYTE/Ran=0:31 UAF$B_PRI ! base process priority? BYTE UAF$B_QUEPRI ! maximum job queuing priority? INTEGER*2 UAF$ vW_MAXJOBS ! maximum jobs for UIC allowedC INTEGER*2 UAF$W_MAXACCTJOBS ! maximum jobs for account allowedE INTEGER*2 UAF$W_MAXDETACH ! maximum detached processes for UIC; INTEGER*2 UAF$W_PRCCNT ! subproces creation limit5 INTEGER*2 UAF$W_BIOLM ! buffered I/O limit3 INTEGER*2 UAF$W_DIOLM ! direct I/O limit: INTEGER*2 UAF$W_TQCNT ! timer queue entry limit2 INTEGER*2 UAF$W_ASTLM ! AST queue limit0 INTEGER*2 UAF$W_ENQLM w! enqueue limit2 INTEGER*2 UAF$W_FILLM ! open file limit4 INTEGER*2 UAF$W_SHRFILLM ! shared file limit9 INTEGER*4 UAF$L_WSQUOTA ! working set size quota; INTEGER*4 UAF$L_DFWSCNT ! default working set size9 INTEGER*4 UAF$L_WSEXTENT ! working set size limit2 INTEGER*4 UAF$L_PGFLQUOTA ! page file quota1 CPUTIME UAF$L_CPUTIM ! CPU time quota@ INTEGER*4 UAF$L_BYTLM ! buffered I/O byte count limitD INTEGER*4 UAF$L_PBYTLM ! paged buffer I/O byte count limitM INTEGER*4 UAF$L_JTQUOTA ! job-wide logical name table creation quotaC INTEGER*2 UAF$W_PROXY_LIM ! number of proxies user can grant< INTEGER*2 UAF$W_PROXIES ! number of proxies grantedA INTEGER*2 UAF$W_ACCOUNT_LIM ! number of sub-accounts allowed@ INTEGER*2 UAF$W_ACCOUNTS ! number of sub-accounts in use1 character*20 UAF$R_DEF_CLASS ! default classes BYTE %UNKNOWN(44) string user_datawwyospan,msbrcw]2 integer*2 recsizU rinteger*4 hblk rinteger*4 eofblk integer*2 eofbyte byte bucketsize byte vfcsizes integer*2 maxrec  integer*2 defext$ integer*2 globbuf integer*2 %fil3(4)  integer*2 verslim end structure# bits*4 file_char -tD [Wascontig,Nobackup,Writeback,Readcheck,Writecheck,-4 Contigb,Locked,Contig,#,#,,Badacl,-J z Spool,Directory,Badblock,Markdel,Nocharge,Erase,alm_aip,-> shelved,scratch,nomove,noshelvable,shelv_res] bitfieldA+ position/relative (-24) !backup 3 bytes,D integer*2 caching [writethrough,writeback,flush_on_clos,no_cache]' position/relative (22) !skip 22 bits, end bitfieldO, Integer*2 rec_prot ! < ubyte map_in_use ! # map words in useH byte acc_mode ! File accessor priv mode needed4{ uic owner ! Owning UIC9 protection protection ! File protectionS* fileid backl_fid/record -S /comp="f$getd($file,""blnr"")+int(f$extr(1,-1,f$elem(0,"","",$FIELD)))" -N: /if="int(f$extr(1,-1,f$elem(0,"","",$FIELD)))>0"; bits*2 journal ! Journalling flags,F integer*2 ru_active ! Recover facility unit numberE integer highwater ! Highest blocknr written + |1N unionC map struct_lev_maj=5C1 byte FI5$B_CONTROL [0=ODS-2,1=ODS-5]s byte FI5$B_NAMELEN r% integer*2 FI5$W_REVISION i% date FI5$Q_CREDATE [0=none]s% date FI5$Q_REVDATE [0=none]3' date FI5$Q_EXPDATE [0=none] ' date FI5$Q_BAKDATE [0=none] f& date FI5$Q_ACCDATE [0=none] ( date FI5$Q_ATTDATE [0=none] $ integer*8 FI5$Q_EX_RECATTR bitfieldi" integer*63 FI5$Q_DATAREC_C}OUNT rlogical*1 records_valid integer*63 FI5$Q_byte_COUNT  rlogical*1 bytes_valid end bitfieldi2 character*(fi5$b_namelen) FI5$S_FILENAME end map map struct_lev_maj=2AA character*20 fnam ! Variable mapped entries_! integer*2 revnrc1 date*8 cdat [0=none] s1 date*8 rdat [0=none] 1 date*8 edat [0=none] I1 date*8 bdat [0=none] _! character*66 rest_fnamm end map map * integer*4 data(20) end map end unionm8 range (map_offset*2:2*(map_offset+map_in_use)-1) diskmap maps(256)  end rangeI+ range (acl_offset*2:res_offset*2-1)s acl acls(50)  end range 0 position (min(510,max(0,%recordsize()))) integer*2/hex checksumww INTEGER*4 UAF$L_PGFLQUOTA ! page file quota1 C DNEDSAY,THURSDAY,FRYDAY,SATURDAY,SUNDAY] endbitfield byte %filler2; BYTE/Ran=0:31 UAF$B_PRI ! base process priorityT? BYTE UAF$B_QUEPRI ! maximum job queuing priorityn? INTEGER*2 UAF$W_MAXJOBS ! maximum jobs for UIC allowednC INTEGER*2 UAF$W_MAXACCTJOBS ! maximum jobs for account allowedlE INTEGER*2 UAF$W_MAXDETACH ! maximum detached processes for UICp; INTEGER*2 UAF$W_PRCCNT ! subproces creation limitm5 INTEGER*2 UAF$W_BIOLM € ! buffered I/O limite3 INTEGER*2 UAF$W_DIOLM ! direct I/O limit: INTEGER*2 UAF$W_TQCNT ! timer queue entry limit2 INTEGER*2 UAF$W_ASTLM ! AST queue limit0 INTEGER*2 UAF$W_ENQLM ! enqueue limit2 INTEGER*2 UAF$W_FILLM ! open file limit4 INTEGER*2 UAF$W_SHRFILLM ! shared file limit9 INTEGER*4 UAF$L_WSQUOTA ! working set size quota ; INTEGER*4 UAF$L_DFWSCNT ! default working set sizet9 INTEGER*4 UAF$L_WSEXTENT ! ƒ working set size limit 2 INTEGER*4 UAF$L_PGFLQUOTA ! page file quota: CPUTIME UAF$L_CPUTIM [0=(none)] ! CPU time quota@ INTEGER*4 UAF$L_BYTLM ! buffered I/O byte count limitD INTEGER*4 UAF$L_PBYTLM ! paged buffer I/O byte count limitM INTEGER*4 UAF$L_JTQUOTA ! job-wide logical name table creation quotaC INTEGER*2 UAF$W_PROXY_LIM ! number of proxies user can grant< INTEGER*2 UAF$W_PROXIES ! number of proxies grantedA INTEGER*2 UAF$W_‚PUTIME UAF$L_CPUTIM ! CPU time quotad@ INTEGER*4 UAF$L_BYTLM ! buffered I/O byte count limitD INTEGER*4 UAF$L_PBYTLM ! paged buffer I/O byte count limitM INTEGER*4 UAF$L_JTQUOTA ! job-wide logical name table creation quotanC INTEGER*2 UAF$W_PROXY_LIM ! number of proxies user can grantf< INTEGER*2 UAF$W_PROXIES ! number of proxies grantedA INTEGER*2 UAF$W_ACCOUNT_LIM ! number of sub-accounts allowedl@ INTEGER*2 UAF$W_ACCOUNTS ! number of sub-accounts in use1 character*20 UAF$R_DEF_CLASS ! default classes BYTE %UNKNOWN(44) string user_datawwACCOUNT_LIM ! number of sub-accounts allowed@ INTEGER*2 UAF$W_ACCOUNTS ! number of sub-accounts in use1 character*20 UAF$R_DEF_CLASS ! default classes BYTE %UNKNOWN(44) string user_dataww