home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / vmsnet / sources / 477 < prev    next >
Encoding:
Internet Message Format  |  1993-01-05  |  18.1 KB

  1. Path: sparky!uunet!spool.mu.edu!agate!dog.ee.lbl.gov!network.ucsd.edu!mvb.saic.com!vmsnet-sources
  2. From: tanner@cerritos.edu
  3. Newsgroups: vmsnet.sources
  4. Subject: DWProfile V3.3, part 06/06
  5. Message-ID: <9908619@MVB.SAIC.COM>
  6. Date: Mon, 04 Jan 1993 20:48:01 GMT
  7. Organization: Cerritos College, Norwalk CA
  8. Lines: 687
  9. Approved: Mark.Berryman@Mvb.Saic.Com
  10.  
  11. Submitted-by: tanner@cerritos.edu
  12. Posting-number: Volume 4, Issue 31
  13. Archive-name: dwprofile/part06
  14.  
  15. -+-+-+-+-+-+-+-+ START OF PART 6 -+-+-+-+-+-+-+-+
  16. X$ set file/owner=`5B'owner'`5D 'dev'`5B000000`5D'dir_2'.dir/log
  17. X$cleanup:
  18. X$ prevpriv = f$setprv(prevpriv)
  19. X$ exit
  20. $ CALL UNPACK RESETOWNER.COM;19 1428695270
  21. $ create 'f'
  22. Xvalue
  23. X`09UAI$_USERNAME:`094;
  24. X
  25. Xobject
  26. X`09user: XmForm `7B
  27. X`09`09arguments `7B
  28. X`09`09`09XmNx = k_tab1;
  29. X`09`09`09XmNy = k_line_1_y;
  30. X`09`09`09`7D;
  31. X`09`09controls `7B
  32. X`09`09`09XmLabel`09user_label;
  33. X`09`09`09XmText`09user_text;
  34. X`09`09`09`7D;
  35. X`09`09callbacks `7B
  36. X`09`09`09XmNhelpCallback = procedure Help("fields text user");
  37. X`09`09`09`7D;
  38. X`09`09`7D;
  39. X
  40. X`09user_label: XmLabel `7B
  41. X`09`09arguments `7B
  42. X`09`09`09XmNlabelString = "User:";
  43. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  44. X`09`09`09XmNleftOffset = k_label_deltax;
  45. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  46. X`09`09`09XmNtopOffset = k_label_form_offset;    `20
  47. X`09`09`09`7D;
  48. X`09`09`7D;
  49. X
  50. X`09user_text: XmText `7B
  51. X`09`09arguments `7B
  52. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  53. X`09`09`09XmNleftOffset = k_text_deltax1;
  54. X`09`09`09XmNcolumns = 14;
  55. X`09`09`09XmNmaxLength = 12;
  56. X`09`09`09`7D;
  57. X`09`09callbacks `7B
  58. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_USERNAME);
  59. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_USERNAME);
  60. X`09`09`09`7D;
  61. X`09`09`7D;
  62. X
  63. Xvalue
  64. X`09UAI$_OWNER:`0912;
  65. X
  66. Xobject
  67. X`09owner: XmForm `7B
  68. X`09`09arguments `7B
  69. X`09`09`09XmNx = k_tab2;
  70. X`09`09`09XmNy = k_line_1_y;
  71. X`09`09`09`7D;
  72. X`09`09controls `7B
  73. X`09`09`09XmLabel`09owner_label;
  74. X`09`09`09XmText`09owner_text;
  75. X`09`09`09`7D;
  76. X`09`09callbacks `7B
  77. X`09`09`09XmNhelpCallback = procedure Help("fields text owner");
  78. X`09`09`09`7D;
  79. X`09`09`7D;
  80. X
  81. X`09owner_label: XmLabel `7B
  82. X`09`09arguments `7B
  83. X`09`09`09XmNlabelString = "Owner:";
  84. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  85. X`09`09`09XmNleftOffset = k_label_deltax;
  86. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  87. X`09`09`09XmNtopOffset = k_label_form_offset;
  88. X`09`09`09`7D;
  89. X`09`09`7D;
  90. X
  91. X`09owner_text: XmText `7B
  92. X`09`09arguments `7B
  93. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  94. X`09`09`09XmNleftOffset = k_text_deltax2;
  95. X`09`09`09XmNleftWidget = XmLabel owner_label;
  96. X`09`09`09XmNcolumns = 32;
  97. X`09`09`09XmNmaxLength = 32;
  98. X`09`09`09`7D;
  99. X`09`09callbacks `7B
  100. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_OWNER);
  101. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_OWNER);
  102. X`09`09`09`7D;
  103. X`09`09`7D;
  104. X
  105. Xvalue
  106. X`09UAI$_ACCOUNT:`0911;
  107. X
  108. Xobject
  109. X`09account: XmForm `7B
  110. X`09`09arguments `7B
  111. X`09`09`09XmNx = k_tab1;
  112. X`09`09`09XmNy = k_line_2_y;
  113. X`09`09`09`7D;
  114. X`09`09controls `7B
  115. X`09`09`09XmLabel`09account_label;
  116. X`09`09`09XmText`09account_text;
  117. X`09`09`09`7D;
  118. X`09`09callbacks `7B
  119. X`09`09`09XmNhelpCallback = procedure Help("fields text account");
  120. X`09`09`09`7D;
  121. X`09`09`7D;
  122. X
  123. X`09account_label: XmLabel `7B
  124. X`09`09arguments `7B
  125. X`09`09`09XmNlabelString = "Account:";
  126. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  127. X`09`09`09XmNleftOffset = k_label_deltax;
  128. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  129. X`09`09`09XmNtopOffset = k_label_form_offset;
  130. X`09`09`09`7D;
  131. X`09`09`7D;
  132. X
  133. X`09account_text: XmText `7B
  134. X`09`09arguments `7B
  135. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  136. X`09`09`09XmNleftOffset = k_text_deltax1;
  137. X`09`09`09XmNleftWidget = XmLabel account_label;
  138. X`09`09`09XmNcolumns = 8;
  139. X`09`09`09XmNmaxLength = 8;
  140. X`09`09`09`7D;
  141. X`09`09callbacks `7B
  142. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_ACCOUNT);
  143. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_ACCOUNT);
  144. X`09`09`09`7D;
  145. X`09`09`7D;
  146. X
  147. Xvalue
  148. X`09UAI$_UIC:`096;
  149. X
  150. Xobject
  151. X`09uic: XmForm `7B
  152. X`09`09arguments `7B
  153. X`09`09`09XmNx = k_tab2;
  154. X`09`09`09XmNy = k_line_2_y;
  155. X`09`09`09`7D;
  156. X`09`09controls `7B
  157. X`09`09`09XmLabel`09uic_label;
  158. X`09`09`09XmText`09uic_text;
  159. X`09`09`09`7D;
  160. X`09`09callbacks `7B
  161. X`09`09`09XmNhelpCallback = procedure Help("fields text uic");
  162. X`09`09`09`7D;
  163. X`09`09`7D;
  164. X
  165. X`09uic_label: XmLabel `7B
  166. X`09`09arguments `7B
  167. X`09`09`09XmNlabelString = "UIC:";
  168. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  169. X`09`09`09XmNleftOffset = k_label_deltax;
  170. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  171. X`09`09`09XmNtopOffset = k_label_form_offset;
  172. X`09`09`09`7D;
  173. X`09`09`7D;
  174. X
  175. X`09uic_text: XmText `7B
  176. X`09`09arguments `7B
  177. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  178. X`09`09`09XmNleftOffset = k_text_deltax2;
  179. X`09`09`09XmNleftWidget = XmLabel uic_label;
  180. X`09`09`09XmNcolumns = 11;
  181. X`09`09`09XmNmaxLength = 15;
  182. X`09`09`09XmNresizeWidth = false;
  183. X`09`09`09`7D;
  184. X`09`09callbacks `7B
  185. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_UIC);
  186. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_UIC);
  187. X`09`09`09`7D;
  188. X`09`09`7D;
  189. X
  190. Xvalue
  191. X`09k_widget_uic_trans:`097;
  192. X
  193. Xobject
  194. X`09uic_trans: XmLabel `7B
  195. X`09`09arguments `7B
  196. X`09`09`09XmNx = k_tab3 + k_label_deltax + 5;
  197. X`09`09`09XmNy = k_line_2_y + k_label_form_offset;
  198. X`09`09`09`7D;
  199. X`09`09callbacks `7B
  200. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(k_widget_uic_trans);
  201. X`09`09`09`7D;
  202. X`09`09`7D;
  203. X
  204. Xvalue
  205. X`09UAI$_DEFDEV:`0913;
  206. X
  207. Xobject
  208. X`09device: XmForm `7B
  209. X`09`09arguments `7B
  210. X`09`09`09XmNx = k_tab1;
  211. X`09`09`09XmNy = k_line_3_y;
  212. X`09`09`09`7D;
  213. X`09`09controls `7B
  214. X`09`09`09XmLabel`09device_label;
  215. X`09`09`09XmText`09device_text;
  216. X`09`09`09`7D;
  217. X`09`09callbacks `7B
  218. X`09`09`09XmNhelpCallback = procedure Help("fields text device");
  219. X`09`09`09`7D;
  220. X`09`09`7D;
  221. X
  222. X`09device_label: XmLabel `7B
  223. X`09`09arguments `7B
  224. X`09`09`09XmNlabelString = "Device:";
  225. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  226. X`09`09`09XmNleftOffset = k_label_deltax;
  227. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  228. X`09`09`09XmNtopOffset = k_label_form_offset;
  229. X`09`09`09`7D;
  230. X`09`09`7D;
  231. X
  232. X`09device_text: XmText `7B
  233. X`09`09arguments `7B
  234. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  235. X`09`09`09XmNleftOffset = k_text_deltax1;
  236. X`09`09`09XmNleftWidget = XmLabel device_label;
  237. X`09`09`09XmNcolumns = 14;
  238. X`09`09`09XmNmaxLength = 32;
  239. X`09`09`09XmNresizeWidth = false;
  240. X`09`09`09`7D;
  241. X`09`09callbacks `7B
  242. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_DEFDEV);
  243. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_DEFDEV);
  244. X`09`09`09`7D;
  245. X`09`09`7D;
  246. X
  247. Xvalue
  248. X`09UAI$_CLITABLES:`0917;
  249. X
  250. Xobject
  251. X`09table: XmForm `7B
  252. X`09`09arguments `7B
  253. X`09`09`09XmNx = k_tab2;
  254. X`09`09`09XmNy = k_line_3_y;
  255. X`09`09`09`7D;
  256. X`09`09controls `7B
  257. X`09`09`09XmLabel`09table_label;
  258. X`09`09`09XmText`09table_text;
  259. X`09`09`09`7D;
  260. X`09`09callbacks `7B
  261. X`09`09`09XmNhelpCallback = procedure Help("fields text table");
  262. X`09`09`09`7D;
  263. X`09`09`7D;
  264. X
  265. X`09table_label: XmLabel `7B
  266. X`09`09arguments `7B
  267. X`09`09`09XmNlabelString = "Table:";
  268. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  269. X`09`09`09XmNleftOffset = k_label_deltax;
  270. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  271. X`09`09`09XmNtopOffset = k_label_form_offset;
  272. X`09`09`09`7D;
  273. X`09`09`7D;
  274. X
  275. X`09table_text: XmText `7B
  276. X`09`09arguments `7B
  277. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  278. X`09`09`09XmNleftOffset = k_text_deltax2;
  279. X`09`09`09XmNleftWidget = XmLabel table_label;
  280. X`09`09`09XmNcolumns = 11;
  281. X`09`09`09XmNmaxLength = 20;
  282. X`09`09`09XmNresizeWidth = false;
  283. X`09`09`09`7D;
  284. X`09`09callbacks `7B
  285. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_CLITABLES);
  286. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_CLITABLES);
  287. X`09`09`09`7D;
  288. X`09`09`7D;
  289. X
  290. Xvalue
  291. X`09UAI$_DEFCLI:`0916;
  292. X
  293. Xobject
  294. X`09cli: XmForm `7B
  295. X`09`09arguments `7B
  296. X`09`09`09XmNx = k_tab3;
  297. X`09`09`09XmNy = k_line_3_y;
  298. X`09`09`09`7D;
  299. X`09`09controls `7B
  300. X`09`09`09XmLabel`09cli_label;
  301. X`09`09`09XmText`09cli_text;
  302. X`09`09`09`7D;
  303. X`09`09callbacks `7B
  304. X`09`09`09XmNhelpCallback = procedure Help("fields text cli");
  305. X`09`09`09`7D;
  306. X`09`09`7D;
  307. X
  308. X`09cli_label: XmLabel `7B
  309. X`09`09arguments `7B
  310. X`09`09`09XmNlabelString = "CLI:";
  311. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  312. X`09`09`09XmNleftOffset = k_label_deltax;
  313. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  314. X`09`09`09XmNtopOffset = k_label_form_offset;
  315. X`09`09`09`7D;
  316. X`09`09`7D;
  317. X
  318. X`09cli_text: XmText `7B
  319. X`09`09arguments `7B
  320. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  321. X`09`09`09XmNleftOffset = k_text_deltax3;
  322. X`09`09`09XmNleftWidget = XmLabel cli_label;
  323. X`09`09`09XmNcolumns = 8;
  324. X`09`09`09XmNmaxLength = 32;
  325. X`09`09`09XmNresizeWidth = false;
  326. X`09`09`09`7D;
  327. X`09`09callbacks `7B
  328. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_DEFCLI);
  329. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_DEFCLI);
  330. X`09`09`09`7D;
  331. X`09`09`7D;
  332. X
  333. Xvalue
  334. X`09UAI$_DEFDIR:`0914;
  335. X
  336. Xobject
  337. X`09directory: XmForm `7B
  338. X`09`09arguments `7B
  339. X`09`09`09XmNx = k_tab1;
  340. X`09`09`09XmNy = k_line_4_y;
  341. X`09`09`09`7D;
  342. X`09`09controls `7B
  343. X`09`09`09XmLabel`09directory_label;
  344. X`09`09`09XmText`09directory_text;
  345. X`09`09`09`7D;
  346. X`09`09callbacks `7B
  347. X`09`09`09XmNhelpCallback = procedure Help("fields text directory");
  348. X`09`09`09`7D;
  349. X`09`09`7D;
  350. X
  351. X`09directory_label: XmLabel `7B
  352. X`09`09arguments `7B
  353. X`09`09`09XmNlabelString = "Directory:";
  354. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  355. X`09`09`09XmNleftOffset = k_label_deltax;
  356. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  357. X`09`09`09XmNtopOffset = k_label_form_offset;
  358. X`09`09`09`7D;
  359. X`09`09`7D;
  360. X
  361. X`09directory_text: XmText `7B
  362. X`09`09arguments `7B
  363. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  364. X`09`09`09XmNleftOffset = k_text_deltax1;
  365. X`09`09`09XmNleftWidget = XmLabel directory_label;
  366. X`09`09`09XmNcolumns = 14;
  367. X`09`09`09XmNmaxLength = 32;
  368. X`09`09`09XmNresizeWidth = false;
  369. X`09`09`09`7D;
  370. X`09`09callbacks `7B
  371. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_DEFDIR);
  372. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_DEFDIR);
  373. X`09`09`09`7D;
  374. X`09`09`7D;
  375. X
  376. Xvalue
  377. X`09UAI$_LGICMD:`0915;
  378. X
  379. Xobject
  380. X`09lgicmd: XmForm `7B
  381. X`09`09arguments `7B
  382. X`09`09`09XmNx = k_tab2;
  383. X`09`09`09XmNy = k_line_4_y;
  384. X`09`09`09`7D;
  385. X`09`09controls `7B
  386. X`09`09`09XmLabel`09lgicmd_label;
  387. X`09`09`09XmText`09lgicmd_text;
  388. X`09`09`09`7D;
  389. X`09`09callbacks `7B
  390. X`09`09`09XmNhelpCallback = procedure Help("fields text lgicmd");
  391. X`09`09`09`7D;
  392. X`09`09`7D;
  393. X
  394. X`09lgicmd_label: XmLabel `7B
  395. X`09`09arguments `7B
  396. X`09`09`09XmNlabelString = "LGICMD:";
  397. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  398. X`09`09`09XmNleftOffset = k_label_deltax;
  399. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  400. X`09`09`09XmNtopOffset = k_label_form_offset;
  401. X`09`09`09`7D;
  402. X`09`09`7D;
  403. X
  404. X`09lgicmd_text: XmText `7B
  405. X`09`09arguments `7B
  406. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  407. X`09`09`09XmNleftOffset = k_text_deltax2;
  408. X`09`09`09XmNleftWidget = XmLabel lgicmd_label;
  409. X`09`09`09XmNcolumns = 11;
  410. X`09`09`09XmNmaxLength = 32;
  411. X`09`09`09XmNresizeWidth = false;
  412. X`09`09`09`7D;
  413. X`09`09callbacks `7B
  414. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_LGICMD);
  415. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_LGICMD);
  416. X`09`09`09`7D;
  417. X`09`09`7D;
  418. X
  419. Xvalue
  420. X`09UAI$_PWD:`0918;
  421. X
  422. Xobject
  423. X`09password: XmForm `7B
  424. X`09`09arguments `7B
  425. X`09`09`09XmNx = k_tab3;
  426. X`09`09`09XmNy = k_line_4_y;
  427. X`09`09`09`7D;
  428. X`09`09controls `7B
  429. X`09`09`09XmLabel`09password_label;
  430. X`09`09`09XmText`09password_text;
  431. X`09`09`09`7D;
  432. X`09`09`7D;
  433. X
  434. X`09password_label: XmLabel `7B
  435. X`09`09arguments `7B
  436. X`09`09`09XmNlabelString = "Password:";
  437. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  438. X`09`09`09XmNleftOffset = k_label_deltax;
  439. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  440. X`09`09`09XmNtopOffset = k_label_form_offset;
  441. X`09`09`09`7D;
  442. X`09`09callbacks `7B
  443. X`09`09`09XmNhelpCallback = procedure Help("fields text password");
  444. X`09`09`09`7D;
  445. X`09`09`7D;
  446. X
  447. X`09password_text: XmText `7B
  448. X`09`09arguments `7B
  449. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  450. X`09`09`09XmNleftOffset = k_text_deltax3;
  451. X`09`09`09XmNleftWidget = XmLabel password_label;
  452. X`09`09`09XmNcolumns = 8;
  453. X`09`09`09XmNmaxLength = 32;
  454. X`09`09`09XmNresizeWidth = false;
  455. X`09`09`09`7D;
  456. X`09`09callbacks `7B
  457. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_PWD);
  458. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_PWD);
  459. X`09`09`09`7D;
  460. X`09`09`7D;
  461. X
  462. Xvalue
  463. X`09UAI$_EXPIRATION:`0925;
  464. X
  465. Xobject
  466. X`09expiration: XmForm `7B
  467. X`09`09arguments `7B
  468. X`09`09`09XmNx = k_tab1;
  469. X`09`09`09XmNy = k_line_5_y;
  470. X`09`09`09`7D;
  471. X`09`09controls `7B
  472. X`09`09`09XmLabel`09expiration_label;
  473. X`09`09`09XmText`09expiration_text;
  474. X`09`09`09`7D;
  475. X`09`09callbacks `7B
  476. X`09`09`09XmNhelpCallback = procedure Help("fields text expiration");
  477. X`09`09`09`7D;
  478. X`09`09`7D;
  479. X
  480. X`09expiration_label: XmLabel `7B
  481. X`09`09arguments `7B
  482. X`09`09`09XmNlabelString = "Expiration:";
  483. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  484. X`09`09`09XmNleftOffset = k_label_deltax;
  485. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  486. X`09`09`09XmNtopOffset = k_label_form_offset;
  487. X`09`09`09`7D;
  488. X`09`09`7D;
  489. X
  490. X`09expiration_text: XmText `7B
  491. X`09`09arguments `7B
  492. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  493. X`09`09`09XmNleftOffset = k_text_deltax1;
  494. X`09`09`09XmNleftWidget = XmLabel expiration_label;
  495. X`09`09`09XmNcolumns = 12;
  496. X`09`09`09XmNmaxLength = 17;
  497. X`09`09`09XmNresizeWidth = false;
  498. X`09`09`09`7D;
  499. X`09`09callbacks `7B
  500. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_EXPIRATION);
  501. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_EXPIRATION);
  502. X`09`09`09`7D;
  503. X`09`09`7D;
  504. X
  505. Xvalue
  506. X`09UAI$_PWD_LIFETIME:`0926;
  507. X
  508. Xobject
  509. X`09pwdlifetime: XmForm `7B
  510. X`09`09arguments `7B
  511. X`09`09`09XmNx = k_tab2;
  512. X`09`09`09XmNy = k_line_5_y;
  513. X`09`09`09`7D;
  514. X`09`09controls `7B
  515. X`09`09`09XmLabel`09pwdlifetime_label;
  516. X`09`09`09XmText`09pwdlifetime_text;
  517. X`09`09`09`7D;
  518. X`09`09callbacks `7B
  519. X`09`09`09XmNhelpCallback = procedure Help("fields text lifetime");
  520. X`09`09`09`7D;
  521. X`09`09`7D;
  522. X
  523. X`09pwdlifetime_label: XmLabel `7B
  524. X`09`09arguments `7B
  525. X`09`09`09XmNlabelString = "PWDlifetime:";
  526. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  527. X`09`09`09XmNleftOffset = k_label_deltax;
  528. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  529. X`09`09`09XmNtopOffset = k_label_form_offset;
  530. X`09`09`09`7D;
  531. X`09`09`7D;
  532. X
  533. X`09pwdlifetime_text: XmText `7B
  534. X`09`09arguments `7B
  535. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  536. X`09`09`09XmNleftOffset = k_text_deltax2;
  537. X`09`09`09XmNleftWidget = XmLabel pwdlifetime_label;
  538. X`09`09`09XmNcolumns = 11;
  539. X`09`09`09XmNmaxLength = 12;
  540. X`09`09`09XmNresizeWidth = false;
  541. X`09`09`09`7D;
  542. X`09`09callbacks `7B
  543. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_PWD_LIFETIME);
  544. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_PWD_LIFETIME
  545. V);
  546. X`09`09`09`7D;
  547. X`09`09`7D;
  548. X
  549. Xvalue
  550. X`09UAI$_PWD_LENGTH:`0924;
  551. X
  552. Xobject
  553. X`09pwdlength: XmForm `7B
  554. X`09`09arguments `7B
  555. X`09`09`09XmNx = k_tab3;
  556. X`09`09`09XmNy = k_line_5_y;
  557. X`09`09`09`7D;
  558. X`09`09controls `7B
  559. X`09`09`09XmLabel`09pwdlength_label;
  560. X`09`09`09XmText`09pwdlength_text;
  561. X`09`09`09`7D;
  562. X`09`09callbacks `7B
  563. X`09`09`09XmNhelpCallback = procedure Help("fields text pwdmin");
  564. X`09`09`09`7D;
  565. X`09`09`7D;
  566. X
  567. X`09pwdlength_label: XmLabel `7B
  568. X`09`09arguments `7B
  569. X`09`09`09XmNlabelString = "PWDmin:";
  570. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  571. X`09`09`09XmNleftOffset = k_label_deltax;
  572. X`09`09`09XmNtopAttachment = XmATTACH_FORM;
  573. X`09`09`09XmNtopOffset = k_label_form_offset;
  574. X`09`09`09`7D;
  575. X`09`09`7D;
  576. X
  577. X`09pwdlength_text: XmText `7B
  578. X`09`09arguments `7B
  579. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  580. X`09`09`09XmNleftOffset = k_text_deltax3;
  581. X`09`09`09XmNleftWidget = XmLabel pwdlength_label;
  582. X`09`09`09XmNcolumns = 2;
  583. X`09`09`09XmNmaxLength = 2;
  584. X`09`09`09`7D;
  585. X`09`09callbacks `7B
  586. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_PWD_LENGTH);
  587. X`09`09`09XmNvalueChangedCallback = procedure WidgetChanged(UAI$_PWD_LENGTH);
  588. X`09`09`09`7D;
  589. X`09`09`7D;
  590. X
  591. Xvalue
  592. X`09UAI$_LASTLOGIN_I:`0929;
  593. X
  594. Xobject
  595. X`09lastlogin_i: XmForm `7B
  596. X`09`09arguments `7B
  597. X`09`09`09XmNx = k_tab1;
  598. X`09`09`09XmNy = k_line_login_y;
  599. X`09`09`09`7D;
  600. X`09`09controls `7B
  601. X`09`09`09XmLabel`09lastlogin_i_label;
  602. X`09`09`09XmLabel`09lastlogin_i_text;
  603. X`09`09`09`7D;
  604. X`09`09`7D;
  605. X
  606. X`09lastlogin_i_label: XmLabel `7B
  607. X`09`09arguments `7B
  608. X`09`09`09XmNlabelString = "Login (int):";
  609. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  610. X`09`09`09XmNleftOffset = k_label_deltax;
  611. X`09`09`09`7D;
  612. X`09`09`7D;
  613. X
  614. X`09lastlogin_i_text: XmLabel `7B
  615. X`09`09arguments `7B
  616. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  617. X`09`09`09XmNleftOffset = k_text_deltax1;
  618. X`09`09`09XmNleftWidget = XmLabel lastlogin_i_label;
  619. X`09`09`09`7D;
  620. X`09`09callbacks `7B
  621. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_LASTLOGIN_I);
  622. X`09`09`09`7D;
  623. X`09`09`7D;
  624. X
  625. Xvalue
  626. X`09UAI$_LASTLOGIN_N:`0930;
  627. X
  628. Xobject
  629. X`09lastlogin_n: XmForm `7B
  630. X`09`09arguments `7B
  631. X`09`09`09XmNx = k_tab2;
  632. X`09`09`09XmNy = k_line_login_y;
  633. X`09`09`09`7D;
  634. X`09`09controls `7B
  635. X`09`09`09XmLabel`09lastlogin_n_label;
  636. X`09`09`09XmLabel`09lastlogin_n_text;
  637. X`09`09`09`7D;
  638. X`09`09`7D;
  639. X
  640. X`09lastlogin_n_label: XmLabel `7B
  641. X`09`09arguments `7B
  642. X`09`09`09XmNlabelString = "Login (non):";
  643. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  644. X`09`09`09XmNleftOffset = k_label_deltax;
  645. X`09`09`09`7D;
  646. X`09`09`7D;
  647. X
  648. X`09lastlogin_n_text: XmLabel `7B
  649. X`09`09arguments `7B
  650. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  651. X`09`09`09XmNleftOffset = k_text_deltax2;
  652. X`09`09`09XmNleftWidget = XmLabel lastlogin_n_label;
  653. X`09`09`09`7D;
  654. X`09`09callbacks `7B
  655. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_LASTLOGIN_N);
  656. X`09`09`09`7D;
  657. X`09`09`7D;
  658. X
  659. Xvalue
  660. X`09UAI$_LOGFAILS:`0920;
  661. X
  662. Xobject
  663. X`09logfails: XmForm `7B
  664. X`09`09arguments `7B
  665. X`09`09`09XmNx = k_tab3 + 30;
  666. X`09`09`09XmNy = k_line_login_y;
  667. X`09`09`09`7D;
  668. X`09`09controls `7B
  669. X`09`09`09XmLabel`09logfails_label;
  670. X`09`09`09XmLabel`09logfails_text;
  671. X`09`09`09`7D;
  672. X`09`09`7D;
  673. X
  674. X`09logfails_label: XmLabel `7B
  675. X`09`09arguments `7B
  676. X`09`09`09XmNlabelString = "Logfails:";
  677. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  678. X`09`09`09XmNleftOffset = k_label_deltax;
  679. X`09`09`09`7D;
  680. X`09`09`7D;
  681. X
  682. X`09logfails_text: XmLabel `7B
  683. X`09`09arguments `7B
  684. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  685. X`09`09`09XmNleftOffset = k_text_deltax3 - 10;
  686. X`09`09`09XmNleftWidget = XmLabel logfails_label;
  687. X`09`09`09`7D;
  688. X`09`09callbacks `7B
  689. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(UAI$_LOGFAILS);
  690. X`09`09`09`7D;
  691. X`09`09`7D;
  692. $ CALL UNPACK TEXT.UIL;25 1229598155
  693. $ v=f$verify(v)
  694. $ EXIT
  695. -- 
  696. Bruce Tanner        (310) 860-2451 x 596    Tanner@Cerritos.EDU
  697. Cerritos College    Norwalk, CA             DoD #0161  NOMAD #007
  698.