| Dave,
A trace as requested, Any help greatly appreciated
Suzanne
<835 line trace follows:>
0 ! OA$FMS_RTN: Returned "1" from field "PUT" (1) on page 1
2 ! OA$FMS_RTN: Returned "1" from field "FIELD" (2) on page 1
2 ! OA$FLD_RTN: return field-contents
2 ! OA$FMS_RTN: Returned "1" from field "FLOW" (4) on page 1
3 ! OA$FLD_RTN: return field-contents
3 ! OA$FMS_RTN: Returned "1" from field "SCRCHR" (5) on page 1
4 ! OA$FLD_RTN: return field-contents
4 ! OA$FMS_RTN: Returned "1" from field "HELP" (6) on page 1
5 ! OA$FLD_RTN: return field-contents
5 ! OA$FMS_RTN: Returned "1" from field "INPUT" (8) on page 1
6 ! OA$FLD_RTN: return field-contents
6 ! OA$FMS_RTN: Returned "1" from field "DPEINI" (9) on page 1
7 ! OA$FLD_RTN: return field-contents
7 ! OA$FMS_RTN: Returned "1" from field "IVP" (10) on page 1
8 ! OA$FLD_RTN: return field-contents
8 ! OA$FMS_RTN: Returned "1" from field "A1LOG" (11) on page 1
9 ! %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .IF $TRA_MESS == "1" THEN OA$TRA_SET MESS
10 ! %OA-I-LOGFUN, Function: OA$TRA_SET MESS
10 ! %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .IF SYMBOL == "1" THEN OA$TRA_SET SYMBOL
10 ! OA$FLD_RTN: return field-contents
12 ! OA$FMS_RTN: Returned "1" from field "SYMBOL" (15) on page 1
12 ! %OA-I-LOGFUN, Function: OA$TRA_SET SYMBOL
12 ! %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .IF IO == "1" THEN OA$TRA_SET IO
13 ! OA$FLD_RTN: return field-contents
13 ! OA$FMS_RTN: Returned "1" from field "IO" (16) on page 1
13 ! GET Symbol: IO
14 ! Value: 1
14 ! GET Symbol: "1"
14 ! Value: 1
14 ! %OA-I-LOGFUN, Function: OA$TRA_SET IO
14 ! %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .IF TERM == "1" THEN OA$TRA_SET TERM
15 ! OA$FLD_RTN: return field-contents
15 ! OA$FMS_RTN: Returned "0" from field "TERM" (17) on page 1
15 ! GET Symbol: TERM
15 ! Value: 0
15 ! GET Symbol: "1"
15 ! Value: 1
15 ! %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .IF ALL == "1" THEN OA$TRA_SET ALL
15 ! OA$FLD_RTN: return field-contents
16 ! OA$FMS_RTN: Returned "1" from field "ALL" (13) on page 1
16 ! GET Symbol: ALL
16 ! Value: 1
16 ! GET Symbol: "1"
16 ! Value: 1
16 ! %OA-I-LOGFUN, Function: OA$TRA_SET ALL
16 ! %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .IF SCRIPT == "1" THEN OA$TRA_SET SCRIPT
16 ! OA$FLD_RTN: return field-contents
17 ! OA$FMS_RTN: Returned "1" from field "SCRIPT" (3) on page 1
17 ! GET Symbol: SCRIPT
17 ! Value: 1
17 ! GET Symbol: "1"
17 ! Value: 1
18 ! %OA-I-LOGFUN, Function: OA$TRA_SET SCRIPT
18 ! OA$FRM_DISPATCH: End Dispatch TRACEARG
18 !
18 ! ----------- CURRENT FORM INFORMATION ------------
18 ! CURRENT FIELD INDEX = 3
18 ! FORM DSAB WORKSPACE PRIOR_DSAB
18 ! TRACEARG 00327670 00066A78 003262C0
18 ! TMEP 003262C0 00066A5A 003261A8
19 ! TMEP_MENU 003261A8 00066A3C 00000000
19 ! OA$FRM_CLOSE: Closing TRACEARG
19 ! OA$FLD_PRE_PROCESS: -- 00066A5A
19 ! %OA-I-LOGFUN, Function: GET UNREAD = OA$MAIL_COUNT
19 ! DSAB Name: CAB$PENDING Requests : GET_BY_KEY
21 ! GET Symbol: OA$MAIL_DUM_COUNT
21 ! Value: 3
21 ! OA$FLD_PUT: 4
26 ! OA$FMS_PUT: Putting "3" to field "UNREAD" (4) on page 1
26 ! GET Symbol: UNREAD = OA$MAIL_COUNT
26 ! Value: 3
26 ! %OA-I-LOGFUN, Function: GET SELECTIONS = OA$SCROLL_SELECTED
27 ! GET Symbol: OA$SCROLL_BINDING
27 ! Value: *CAL
27 ! OA$FLD_PUT: 2
27 ! OA$FMS_PUT: Putting "0" to field "SELECTIONS" (2) on page 1
27 ! GET Symbol: SELECTIONS = OA$SCROLL_SELECTED
28 ! Value: 0
28 ! %OA-I-LOGFUN, Function: GET MEETIN = OA$MEETING_COUNT
28 ! OA$FLD_PUT: 3
29 ! OA$FMS_PUT: Putting "0" to field "MEETIN" (3) on page 1
29 ! GET Symbol: MEETIN = OA$MEETING_COUNT
29 ! Value: 0
29 ! OA$FLD_GET_FIELD-- 37
29 ! OA$FMS_GET: Getting user input from field "CHOICE" (37) on page 1
30 ! OA$FLO_NDISP: Undisplaying TRACEARG (00066A78)
sc{CR}
33 ! OA$FMS_GET_KEYPAD: Key value {CR} "CHOICE" (37) on page 1
33 ! %OA-I-LOGFUN, Function: OA$FLD_DONE
33 ! OA$FLD_DONE: 37
33 ! OA$FLD_POST_PROCESS: -- 00066A5A
34 ! OA$FLD_RTN: return field-contents
34 ! OA$FMS_RTN: Returned "sc " from field "CHOICE" (37) on page 1
34 ! OA$FLD_PUT: 37
36 ! %OA-I-LOGFUN, Function: GET #SCRIPT = "TMSCAN"
36 ! GET Symbol: #SCRIPT = "TMSCAN"
36 ! Value: TMSCAN
36 ! %OA-I-LOGFUN, Function: GET #METERNAME = OA$_TM_EV_SCAN
36 ! GET Symbol: #METERNAME = OA$_TM_EV_SCAN
36 ! Value: TM Scan
36 ! %OA-I-LOGFUN, Function: DO METER
37 ! [SCP/OPEN] METER (DO) << METER 0000
37 ! SCRIPT open: METER
37 ! *** FX nesting level: 0
37 ! line** SCRIPT-script ***********script_file
37 ! line*** DO script **************script_file
37 ! 0 METER METER
37 ! [SCP/TRACE] DECLARE_METER #METER_NO, #METERNAME << METER 0001
38 ! %OA-I-LOGFUN, Function: DECLARE_METER #METER_NO, #METERNAME
38 ! [SCP/TRACE] START_METER #METER_NO << METER 0002
38 ! %OA-I-LOGFUN, Function: START_METER #METER_NO
38 ! [SCP/TRACE] GET OA$FUNCTION = 'DO ' #SCRIPT << METER 0003
38 ! %OA-I-LOGFUN, Function: GET OA$FUNCTION = 'DO ' #SCRIPT
39 ! %OA-I-LOGFUN, Function: DO TMSCAN
40 ! [SCP/OPEN] TMSCAN (DO) << TMSCAN 0000
40 ! SCRIPT open: TMSCAN
40 ! *** FX nesting level: 0
40 ! line** SCRIPT-script ***********script_file
40 ! line*** DO script **************script_file
40 ! 0 TMSCAN TMSCAN
40 ! 3 METER METER
40 ! [SCP/TRACE] CAL CLEAR_ATTENDEE << TMSCAN 0001
41 ! %OA-I-LOGFUN, Function: CAL CLEAR_ATTENDEE
41 ! [SCP/TRACE] GET #FORMTITLE = OA$_TM_HRD_SCAN << TMSCAN 0002
41 ! %OA-I-LOGFUN, Function: GET #FORMTITLE = OA$_TM_HRD_SCAN
42 ! GET Symbol: #FORMTITLE = OA$_TM_HRD_SCAN
42 ! Value: Scan for Free Time
42 ! [SCP/TRACE] FORM TMSCAN << TMSCAN 0003
42 ! %OA-I-LOGFUN, Function: FORM TMSCAN
42 ! OA$FRM_DISPATCH: Dispatching TMSCAN
43 !
43 ! ----------- CURRENT FORM INFORMATION ------------
43 ! CURRENT FIELD INDEX = 37
43 ! FORM DSAB WORKSPACE PRIOR_DSAB
43 ! TMEP 003262C0 00066A5A 003261A8
43 ! TMEP_MENU 003261A8 00066A3C 00000000
43 ! FORM:TMSCAN
43 ! OA$FRM_OPEN: Starting TMSCAN
44 ! OA$FMS_OPEN: Opening form "TMSCAN" (00327AD0)
44 ! OA$FLO_OPEN_FORM: Opening form - TMSCAN
44 ! in OA_DISK:[ALLIN1.LIB_BRITISH]OAFORM.FLB;
47 ! %OA-I-LOGFUN, Function: OA$FORM_ARG
47 ! %OA-I-LOGFUN, Function: GET FORM_TITLE = #FORMTITLE
47 ! OA$FLD_PUT: 3
48 ! OA$FMS_PUT: Putting "Scan for Free Time" to field "FORM_TITLE" (3) on page 1
48 ! GET Symbol: FORM_TITLE = #FORMTITLE
48 ! Value: Scan for Free Time
48 ! OA$FLD_PRE_PROCESS: -- 00066A96
48 ! GET Symbol: OA$TM_OWNER
48 ! Value: SCOTT
48 ! OA$FLD_PUT: 0
50 ! OA$FMS_PUT: Putting "SCOTT" to field "SCHDLR" (0) on page 1
50 ! GET Symbol: OA$TM_DATE
50 ! Value: 02-Apr-1992
50 ! OA$FLD_PUT: 1
50 ! OA$FMS_PUT: Putting "02-Apr-1992" to field "DATE" (1) on page 1
51 ! OA$FLD_GET_FIELD-- 1
51 ! OA$FMS_GET: Getting user input from field "DATE" (1) on page 1
51 ! OA$FLO_DISPW: Displaying TMSCAN (00066A96)
{CR}
54 ! OA$FMS_GET_KEYPAD: Key value {CR} "DATE" (1) on page 1
55 ! %OA-I-LOGFUN, Function: OA$FLD_DONE
55 ! OA$FLD_DONE: 1
55 ! OA$FMS_RTN: Returned "02-Apr-1992" from field "DATE" (1) on page 1
55 ! %OA-I-LOGFUN, Function: DO TMSCAN_DATEVAL
56 ! [SCP/OPEN] TMSCAN_DATEVAL (DO) << TMSCAN_DATEVAL 0000
56 ! SCRIPT open: TMSCAN_DATEVAL
56 ! *** FX nesting level: 0
56 ! line** SCRIPT-script ***********script_file
56 ! line*** DO script **************script_file
56 ! 0 TMSCAN_DATEVAL TMSCAN_DATEVAL
57 ! 3 TMSCAN TMSCAN
57 ! 3 METER METER
57 ! [SCP/TRACE] GET CAL$SET_DATE:DATE.%WHOLE[DATE] << TMSCAN_DATEVAL 0001
57 ! %OA-I-LOGFUN, Function: GET CAL$SET_DATE:DATE.%WHOLE[DATE]
58 ! OA$FLD_RTN: return field-contents
58 ! OA$FMS_RTN: Returned "02-Apr-1992" from field "DATE" (1) on page 1
59 ! GET Symbol: DATE
59 ! Value: 02-Apr-1992
59 ! GET Symbol:
59 ! Value:
59 ! GET Symbol: "02-APR-1992"
60 ! Value: 02-APR-1992
60 ! GET Symbol: "02-APR-1992"
60 ! Value: 02-APR-1992
60 ! OA$FLD_PUT: 1
61 ! OA$FMS_PUT: Putting "02-Apr-1992" to field "DATE" (1) on page 1
61 ! GET Symbol: CAL$SET_DATE:DATE.%WHOLE[DATE]
61 ! Value:
62 ! [SCP/TRACE] .IF OA$MSG_ID EQS "CMINVDATE" THEN .GOTO BAD_DATE << TMSCAN_DATEVAL 0002
62 ! GET Symbol: OA$MSG_ID
62 ! Value: LASTLINE
62 ! GET Symbol: "CMINVDATE"
63 ! Value: CMINVDATE
63 ! [SCP/TRACE] OA$MSG_PURGE << TMSCAN_DATEVAL 0003
63 ! %OA-I-LOGFUN, Function: OA$MSG_PURGE
63 ! [SCP/TRACE] DATE_CONVERT #TEMP_DATE, DATE, 7 << TMSCAN_DATEVAL 0004
63 ! %OA-I-LOGFUN, Function: DATE_CONVERT #TEMP_DATE, DATE, 7
64 ! OA$FLD_RTN: return field-contents
64 ! OA$FMS_RTN: Returned "02-Apr-1992" from field "DATE" (1) on page 1
64 ! GET Symbol: DATE
64 ! Value: 02-Apr-1992
65 ! [SCP/TRACE] .IF #TEMP_DATE:8 LTS OA$DATE_NBS:8 THEN .GOTO NOCANDO << TMSCAN_DATEVAL 0005
65 ! GET Symbol: #TEMP_DATE:8
65 ! Value: 19920402
65 ! GET Symbol: OA$DATE_NBS:8
66 ! Value: 19920402
66 ! [SCP/TRACE] OA$VAL_SET_VALID << TMSCAN_DATEVAL 0006
66 ! %OA-I-LOGFUN, Function: OA$VAL_SET_VALI
66 ! [SCP/TRACE] .EXIT << TMSCAN_DATEVAL 0007
66 ! [SCP/CLOSE] TMSCAN_DATEVAL << TMSCAN_DATEVAL 0007
66 ! *** FX nesting level: 0
67 ! line** SCRIPT-script ***********script_file
67 ! line*** DO script **************script_file
67 ! 3 TMSCAN TMSCAN
67 ! 3 METER METER
69 ! OA$FLD_POST_PROCESS: -- 00066A96
69 ! OA$FLD_RTN: return field-contents
69 ! OA$FMS_RTN: Returned "SCOTT " from field "SCHDLR" (0) on page 1
70 ! OA$FLD_RTN: return field-contents
70 ! OA$FMS_RTN: Returned "02-Apr-1992" from field "DATE" (1) on page 1
71 ! OA$FMS_RTN: Returned "3 " from field "NR_DAYS" (2) on page 1
71 ! %OA-I-LOGFUN, Function: . .IF NR_DAYS GE 1 AND NR_DAYS LE 31 THEN OA$VAL_SET_VALID ELSE GET OA$DISPLAY = OA$_TM_SCANDAYS
71 ! [SCP/TRACE] .IF NR_DAYS GE 1 AND NR_DAYS LE 31 THEN OA$VAL_SET_VALID ELSE GET OA$DISPLAY = OA$_TM_SCANDAYS << Form= TMSCAN
71 ! OA$FLD_RTN: return field-contents
72 ! OA$FMS_RTN: Returned "3 " from field "NR_DAYS" (2) on page 1
72 ! GET Symbol: NR_DAYS
72 ! Value: 3
73 ! GET Symbol: 1
73 ! Value: 1
73 ! OA$FLD_RTN: return field-contents
73 ! OA$FMS_RTN: Returned "3 " from field "NR_DAYS" (2) on page 1
73 ! GET Symbol: NR_DAYS
73 ! Value: 3
74 ! GET Symbol: 31
74 ! Value: 31
74 ! [SCP/TRACE] OA$VAL_SET_VALID << Form= TMSCAN
74 ! %OA-I-LOGFUN, Function: OA$VAL_SET_VALI
74 ! %OA-I-LOGFUN, Function: FORCE
75 ! OA$FRM_DISPLAY: Displaying 00327AD0 TMSCAN
75 ! OA$FLD_RTN: return field-contents
75 ! OA$FMS_RTN: Returned "3 " from field "NR_DAYS" (2) on page 1
75 ! %OA-I-LOGFUN, Function: GET #FORMTITLE = ''
76 ! GET Symbol: #FORMTITLE = ''
76 ! Value:
76 ! %OA-I-LOGFUN, Function: IFEXIT
76 ! %OA-I-LOGFUN, Function: CAL SET DATE DATE
76 ! OA$FLD_RTN: return field-contents
77 ! OA$FMS_RTN: Returned "02-Apr-1992" from field "DATE" (1) on page 1
77 ! GET Symbol: DATE
77 ! Value: 02-Apr-1992
78 ! OA$FRM_DISPATCH: End Dispatch TMSCAN
78 !
78 ! ----------- CURRENT FORM INFORMATION ------------
78 ! CURRENT FIELD INDEX = 1
78 ! FORM DSAB WORKSPACE PRIOR_DSAB
78 ! TMSCAN 00327AD0 00066A96 003262C0
78 ! TMEP 003262C0 00066A5A 003261A8
78 ! TMEP_MENU 003261A8 00066A3C 00000000
79 ! [SCP/TRACE] .IF OA$FORM_DISPOSE EQS "0" THEN .GOTO EXIT << TMSCAN 0004
79 ! GET Symbol: OA$FORM_DISPOSE
79 ! Value: 2
79 ! GET Symbol: "0"
79 ! Value: 0
80 ! [SCP/TRACE] GET #TEMP = #CAL_MTNG_WHEN:12 #CAL_MTNG_STIME << TMSCAN 0005
80 ! %OA-I-LOGFUN, Function: GET #TEMP = #CAL_MTNG_WHEN:12 #CAL_MTNG_STIME
80 ! GET Symbol: #TEMP = #CAL_MTNG_WHEN:12 #CAL_MTNG_STIME
80 ! Value: 02-Apr-1992
80 ! [SCP/TRACE] DATE_CONVERT #NBS_DATE,#TEMP,7 << TMSCAN 0006
81 ! %OA-I-LOGFUN, Function: DATE_CONVERT #NBS_DATE,#TEMP,7
81 ! GET Symbol: #TEMP
81 ! Value: 02-Apr-1992
81 ! [SCP/TRACE] FORM SCHDMAUISCAN << TMSCAN 0007
82 ! %OA-I-LOGFUN, Function: FORM SCHDMAUISCAN
82 ! OA$FRM_DISPATCH: Dispatching SCHDMAUISCAN
82 !
82 ! ----------- CURRENT FORM INFORMATION ------------
82 ! CURRENT FIELD INDEX = 1
82 ! FORM DSAB WORKSPACE PRIOR_DSAB
82 ! TMSCAN 00327AD0 00066A96 003262C0
82 ! TMEP 003262C0 00066A5A 003261A8
83 ! TMEP_MENU 003261A8 00066A3C 00000000
83 ! FORM:SCHDMAUISCAN
83 ! OA$FRM_CLOSE: Closing TMSCAN
83 ! OA$FRM_OPEN: Starting SCHDMAUISCAN
83 ! OA$FMS_OPEN: Opening form "SCHDMAUISCAN" (00327BE8)
83 ! OA$FLO_OPEN_FORM: Opening form - SCHDMAUISCAN
83 ! in OA_DISK:[ALLIN1.LIB_BRITISH]OAFORM.FLB;
88 ! %OA-I-LOGFUN, Function: OA$FORM_ARG
88 ! %OA-I-LOGFUN, Function: GET #PROMPTID="0"
88 ! GET Symbol: #PROMPTID="0"
88 ! Value: 0
88 ! %OA-I-LOGFUN, Function: GET #SCANEES="0"
89 ! GET Symbol: #SCANEES="0"
89 ! Value: 0
89 ! GET Symbol: 96
89 ! Value: 96
89 ! GET Symbol: 1
89 ! Value: 1
89 ! GET Symbol: CAL$SCROLL_ATTENDEES
89 ! Value:
89 ! GET Symbol:
89 ! Value:
93 ! OA$FLD_PRE_PROCESS: -- 00066AB4
93 ! OA$FLD_GET_FIELD-- 0
93 ! OA$FMS_GET: Getting user input from field "ATENDE" (0) on page 1
93 ! OA$FLO_NDISP: Undisplaying TMSCAN (00066A96)
93 ! OA$FLO_DISPW: Displaying SCHDMAUISCAN (00066AB4)
DENNIS{CR}
98 ! OA$FMS_GET_KEYPAD: Key value {CR} "ATENDE" (0) on page 1
98 ! %OA-I-LOGFUN, Function: OA$FLD_DONE
98 ! OA$FMS_RTN: Returned "DENNIS " from field "ATENDE" (0) on page 1
99 ! %OA-I-LOGFUN, Function: DO TM_ATENDE_VALID
99 ! [SCP/OPEN] TM_ATENDE_VALID (DO) << TM_ATENDE_VALID 0000
100 ! SCRIPT open: TM_ATENDE_VALID
100 ! *** FX nesting level: 0
100 ! line** SCRIPT-script ***********script_file
100 ! line*** DO script **************script_file
100 ! 0 TM_ATENDE_VALID TM_ATENDE_VALID
100 ! 7 TMSCAN TMSCAN
100 ! 3 METER METER
101 ! [SCP/TRACE] OA$VAL_SET_INVALID << TM_ATENDE_VALID 0001
101 ! %OA-I-LOGERROR, %OA-E-OAFE, Unknown, ambiguous, or invalid function "OA$VAL_SET_INVALID"
101 ! [SCP/TRACE] OA$MSG_PURGE << TM_ATENDE_VALID 0002
101 ! %OA-I-LOGFUN, Function: OA$MSG_PURGE
102 ! [SCP/TRACE] GET #junk1 = ATENDE << TM_ATENDE_VALID 0003
102 ! %OA-I-LOGFUN, Function: GET #junk1 = ATENDE
102 ! OA$FLD_RTN: return field-contents
102 ! OA$FMS_RTN: Returned "DENNIS " from field "ATENDE" (0) on page 1
103 ! GET Symbol: #junk1 = ATENDE
103 ! Value: DENNIS
103 ! [SCP/TRACE] GET #junk = OA$MAIL_ADDRESS.%WHOLE[ATENDE] << TM_ATENDE_VALID 0004
103 ! %OA-I-LOGFUN, Function: GET #junk = OA$MAIL_ADDRESS.%WHOLE[ATENDE]
103 ! OA$FLD_RTN: return field-contents
104 ! OA$FMS_RTN: Returned "DENNIS " from field "ATENDE" (0) on page 1
104 ! GET Symbol: ATENDE
104 ! Value: DENNIS
105 ! DSAB Name: NIENTR Requests : GET_BY_KEY
106 ! DSAB Name: PROFIL Requests : GET_BY_KEY
107 ! OA$FLD_PUT: 0
108 ! OA$FMS_PUT: Putting "Robert Dennis ( DENNIS )" to field "ATENDE" (0) on page 1
108 ! GET Symbol: #junk = OA$MAIL_ADDRESS.%WHOLE[ATENDE]
108 ! Value:
109 ! [SCP/TRACE] .IF #junk1 EQS ATENDE AND OA$MSG_ID EQS "LASTLINE" THEN OA$MSG_PURGE \OA$VAL_SET_VALID \GET #JUNK1 = 1 ELSE GET #JUNK1 = 0 << TM_ATENDE_VALID 0005
109 ! GET Symbol: #JUNK1
109 ! Value: DENNIS
109 ! OA$FLD_RTN: return field-contents
110 ! OA$FMS_RTN: Returned "Robert Dennis ( DENNIS ) " from field "ATENDE" (0) on page 1
110 ! GET Symbol: ATENDE
110 ! Value: Robert Dennis ( DENNIS )
110 ! GET Symbol: OA$MSG_ID
110 ! Value: LASTLINE
111 ! GET Symbol: "LASTLINE"
111 ! Value: LASTLINE
111 ! [SCP/TRACE] GET #JUNK1 = 0 << TM_ATENDE_VALID 0005
111 ! %OA-I-LOGFUN, Function: GET #JUNK1 = 0
112 ! GET Symbol: #JUNK1 = 0
112 ! Value: 0
112 ! [SCP/TRACE] .IF #junk1 EQ 1 THEN .EXIT << TM_ATENDE_VALID 0006
112 ! GET Symbol: #JUNK1
112 ! Value: 0
113 ! GET Symbol: 1
113 ! Value: 1
113 ! [SCP/TRACE] .IF OA$MSG_ID EQS "EMGOLDM" THEN .EXIT << TM_ATENDE_VALID 0007
113 ! GET Symbol: OA$MSG_ID
113 ! Value: LASTLINE
114 ! GET Symbol: "EMGOLDM"
114 ! Value: EMGOLDM
114 ! [SCP/TRACE] .IF OA$MSG_ID EQS "INVGET" THEN .GOTO HIDE_MSG << TM_ATENDE_VALID 0008
114 ! GET Symbol: OA$MSG_ID
114 ! Value: LASTLINE
115 ! GET Symbol: "INVGET"
115 ! Value: INVGET
115 ! [SCP/TRACE] GET #SUBSTRING = "( " OA$_EMD_SUBSCRIBERS " )" << TM_ATENDE_VALID 0009
115 ! %OA-I-LOGFUN, Function: GET #SUBSTRING = "( " OA$_EMD_SUBSCRIBERS " )"
116 ! GET Symbol: #SUBSTRING = "( " OA$_EMD_SUBSCRIBERS " )"
116 ! Value: ( SUBSCRIBERS: )
116 ! [SCP/TRACE] .IF ATENDE <=> #SUBSTRING THEN .GOTO PREVENT_SUBSCRIBERS << TM_ATENDE_VALID 0010
116 ! OA$FLD_RTN: return field-contents
116 ! OA$FMS_RTN: Returned "Robert Dennis ( DENNIS ) " from field "ATENDE" (0) on page 1
117 ! GET Symbol: ATENDE
117 ! Value: Robert Dennis ( DENNIS )
117 ! GET Symbol: #SUBSTRING
117 ! Value: ( SUBSCRIBERS: )
118 ! [SCP/TRACE] OA$VAL_SET_VALID << TM_ATENDE_VALID 0011
118 ! %OA-I-LOGFUN, Function: OA$VAL_SET_VALI
118 ! [SCP/TRACE] DO TMMESTRIP << TM_ATENDE_VALID 0012
118 ! %OA-I-LOGFUN, Function: DO TMMESTRIP
118 ! [SCP/OPEN] TMMESTRIP (DO) << TMMESTRIP 0000
119 ! SCRIPT open: TMMESTRIP
119 ! *** FX nesting level: 0
119 ! line** SCRIPT-script ***********script_file
119 ! line*** DO script **************script_file
119 ! 0 TMMESTRIP TMMESTRIP
119 ! 12 TM_ATENDE_VALID TM_ATENDE_VALID
120 ! 7 TMSCAN TMSCAN
120 ! 3 METER METER
120 ! [SCP/TRACE] .if #script_script_symbol eqs "1" then .goto script_script << TMMESTRIP 0001
120 ! GET Symbol: #SCRIPT_SCRIPT_SYMBOL
120 ! Value:
121 ! GET Symbol: "1"
121 ! Value: 1
121 ! [SCP/TRACE] GET #TEXT = ATENDE << TMMESTRIP 0002
121 ! %OA-I-LOGFUN, Function: GET #TEXT = ATENDE
121 ! OA$FLD_RTN: return field-contents
122 ! OA$FMS_RTN: Returned "Robert Dennis ( DENNIS ) " from field "ATENDE" (0) on page 1
122 ! GET Symbol: #TEXT = ATENDE
122 ! Value: Robert Dennis ( DENNIS )
122 ! [SCP/TRACE] GET #AT_LOCAL_NODE1 = "@" LOG$OA$MTI_MAILBX "@" OA$NODE << TMMESTRIP 0003
122 ! %OA-I-LOGFUN, Function: GET #AT_LOCAL_NODE1 = "@" LOG$OA$MTI_MAILBX "@" OA$NODE
122 ! GET Symbol: #AT_LOCAL_NODE1 = "@" LOG$OA$MTI_MAILBX "@" OA$NODE
122 ! Value: @A1@AKELA
123 ! [SCP/TRACE] GET #AT_LOCAL_NODE2 = "@" LOG$OA$MTI_MAILBX "@" LOG$OA$PRIMARY_NODE << TMMESTRIP 0004
123 ! %OA-I-LOGFUN, Function: GET #AT_LOCAL_NODE2 = "@" LOG$OA$MTI_MAILBX "@" LOG$OA$PRIMARY_NODE
123 ! GET Symbol: #AT_LOCAL_NODE2 = "@" LOG$OA$MTI_MAILBX "@" LOG$OA$PRIMARY_NODE
123 ! Value: @A1@JUNGLE
124 ! [SCP/TRACE] GET_TOKEN OA$MAIL_AT_SYMBOL, #AT_SYMBOL, " " ! Trims off spaces << TMMESTRIP 0005
124 ! %OA-I-LOGFUN, Function: GET_TOKEN OA$MAIL_AT_SYMBOL, #AT_SYMBOL, " " ! Trims off spaces
124 ! GET Symbol: OA$MAIL_AT_SYMBOL
124 ! Value: AT
124 ! GET Symbol: " " ! Trims off spaces
125 ! Value:
125 ! [SCP/TRACE] GET #TRIM_ADDR = "" << TMMESTRIP 0006
125 ! %OA-I-LOGFUN, Function: GET #TRIM_ADDR = ""
125 ! GET Symbol: #TRIM_ADDR = ""
125 ! Value:
125 ! [SCP/TRACE] GET_TOKEN #TEXT:999:39, #IN_ADDR, ")" << TMMESTRIP 0007
125 ! %OA-I-LOGFUN, Function: GET_TOKEN #TEXT:999:39, #IN_ADDR, ")"
125 ! GET Symbol: #TEXT:999:39
125 ! Value: DENNIS )
126 ! GET Symbol: ")"
126 ! Value: )
127 ! [SCP/TRACE] .IF #IN_ADDR <=> OA$MAIL_AT_SYMBOL OR #IN_ADDR <=> "@" THEN .GOTO SAVE_USERNAME << TMMESTRIP 0008
127 ! GET Symbol: #IN_ADDR
127 ! Value: DENNIS
127 ! GET Symbol: OA$MAIL_AT_SYMBOL
127 ! Value: AT
127 ! GET Symbol: #IN_ADDR
127 ! Value: DENNIS
128 ! GET Symbol: "@"
128 ! Value: @
128 ! [SCP/TRACE] GET #TRIM_ADDR = #IN_ADDR << TMMESTRIP 0009
128 ! %OA-I-LOGFUN, Function: GET #TRIM_ADDR = #IN_ADDR
129 ! GET Symbol: #TRIM_ADDR = #IN_ADDR
129 ! Value: DENNIS
129 ! [SCP/TRACE] .GOTO EXIT_LOOP << TMMESTRIP 0010
130 ! [SCP/TRACE] GET #AT_ADDR = #TRIM_ADDR << TMMESTRIP 0026
130 ! %OA-I-LOGFUN, Function: GET #AT_ADDR = #TRIM_ADDR
130 ! GET Symbol: #AT_ADDR = #TRIM_ADDR
132 ! Value: DENNIS
132 ! [SCP/TRACE] GET_TOKEN #AT_ADDR, #LOCAL_USER, "@" << TMMESTRIP 0027
132 ! %OA-I-LOGFUN, Function: GET_TOKEN #AT_ADDR, #LOCAL_USER, "@"
132 ! GET Symbol: #AT_ADDR
133 ! Value: DENNIS
133 ! GET Symbol: "@"
133 ! Value: @
133 ! [SCP/TRACE] .IF #LOCAL_USER EQS "" THEN .GOTO BAD << TMMESTRIP 0028
133 ! GET Symbol: #LOCAL_USER
134 ! Value: DENNIS
134 ! GET Symbol: ""
134 ! Value:
134 ! [SCP/TRACE] GET #AT_ADDR = "@" #AT_ADDR << TMMESTRIP 0029
134 ! %OA-I-LOGFUN, Function: GET #AT_ADDR = "@" #AT_ADDR
134 ! GET Symbol: #AT_ADDR = "@" #AT_ADDR
135 ! Value: @
135 ! [SCP/TRACE] .IF (#AT_ADDR == #AT_LOCAL_NODE1) OR (#AT_ADDR == #AT_LOCAL_NODE2) THEN .GOTO CONVERT_2_LOCAL << TMMESTRIP 0030
135 ! GET Symbol: #AT_ADDR
135 ! Value: @
135 ! GET Symbol: #AT_LOCAL_NODE1
136 ! Value: @A1@AKELA
136 ! GET Symbol: #AT_ADDR
136 ! Value: @
136 ! GET Symbol: #AT_LOCAL_NODE2
136 ! Value: @A1@JUNGLE
136 ! [SCP/TRACE] .EXIT << TMMESTRIP 0031
137 ! [SCP/CLOSE] TMMESTRIP << TMMESTRIP 0031
137 ! *** FX nesting level: 0
137 ! line** SCRIPT-script ***********script_file
137 ! line*** DO script **************script_file
137 ! 12 TM_ATENDE_VALID TM_ATENDE_VALID
137 ! 7 TMSCAN TMSCAN
137 ! 3 METER METER
139 ! [SCP/TRACE] GET #SCANEES="1" << TM_ATENDE_VALID 0013
139 ! %OA-I-LOGFUN, Function: GET #SCANEES="1"
139 ! GET Symbol: #SCANEES="1"
140 ! Value: 1
140 ! [SCP/TRACE] .EXIT << TM_ATENDE_VALID 0014
140 ! [SCP/CLOSE] TM_ATENDE_VALID << TM_ATENDE_VALID 0014
140 ! *** FX nesting level: 0
141 ! line** SCRIPT-script ***********script_file
141 ! line*** DO script **************script_file
141 ! 7 TMSCAN TMSCAN
141 ! 3 METER METER
143 ! OA$FLD_RTN: return field-contents
143 ! OA$FMS_RTN: Returned "Robert Dennis ( DENNIS ) " from field "ATENDE" (0) on page 1
144 ! OA$FLD_GET_FIELD-- 0
144 ! OA$FMS_GET: Getting user input from field "ATENDE" (0) on page 1
! UNIT HEAD RABBIT UNIT
{CR}
145 ! OA$FMS_GET_KEYPAD: Key value {CR} "ATENDE" (0) on page 1
145 ! %OA-I-LOGFUN, Function: OA$FLD_DONE
145 ! OA$FMS_RTN: Returned " " from field "ATENDE" (0) on page 1
146 ! OA$FLD_RTN: return field-contents
146 ! OA$FMS_RTN: Returned " " from field "ATENDE" (0) on page 1
146 ! OA$FLD_DONE: 0
146 ! OA$FLD_POST_PROCESS: -- 00066AB4
146 ! OA$FMS_RTN: Returned " " from field "ATENDE" (0) on page 1
146 ! OA$FLD_RTN: return field-contents
147 ! OA$FMS_RTN: Returned " " from field "ATENDE" (0) on page 1
147 ! OA$FRM_DISPATCH: End Dispatch SCHDMAUISCAN
147 !
148 ! ----------- CURRENT FORM INFORMATION ------------
148 ! CURRENT FIELD INDEX = 0
148 ! FORM DSAB WORKSPACE PRIOR_DSAB
148 ! SCHDMAUISCAN 00327BE8 00066AB4 003262C0
148 ! TMEP 003262C0 00066A5A 003261A8
148 ! TMEP_MENU 003261A8 00066A3C 00000000
148 ! [SCP/TRACE] .IF OA$FORM_DISPOSE EQS "0" THEN .GOTO EXIT << TMSCAN 0008
149 ! GET Symbol: OA$FORM_DISPOSE
149 ! Value: 2
149 ! GET Symbol: "0"
149 ! Value: 0
149 ! [SCP/TRACE] .IF #SCANEES EQS "0" THEN .GOTO EXIT << TMSCAN 0009
149 ! GET Symbol: #SCANEES
149 ! Value: 1
150 ! GET Symbol: "0"
150 ! Value: 0
150 ! [SCP/TRACE] CAL SCAN << TMSCAN 0010
150 ! %OA-I-LOGFUN, Function: CAL SCAN
151 ! GET Symbol: #CAL_MTNG_SCHEDULER
151 ! Value: SCOTT
151 ! GET Symbol: #CAL_MTNG_WHEN
151 ! Value: 02-Apr-1992
151 ! GET Symbol: #CAL_NR_DAYS
151 ! Value: 3
152 ! GET Symbol: OA$NODE
152 ! Value: AKELA
157 ! DSAB Name: PROFIL Requests : GET_BY_KEY
157 ! DSAB Name: CAL$CALENDAR Requests : CLOSE
159 ! DSAB Name: PROFIL Requests : GET_BY_KEY
160 ! DSAB Name: CAL$NONUSER Requests : OPEN
160 ! ERROR OPENING FILE: CAL$NONUSER
161 ! DSAB Name: CAL$NONUSER Requests : CLOSE
161 ! %OA-E-CMACESERR, Error occurred trying to access !AS 's Calendar
161 ! %OA-I-LOGERROR, %OA-E-CMACESERR, Error occurred trying to access DENNIS 's Calendar
161 ! [SCP/TRACE] .IF OA$STATUS EQS "0" THEN .GOTO ABORT_EXIT << TMSCAN 0011
162 ! GET Symbol: OA$STATUS
162 ! Value: 0
162 ! GET Symbol: "0"
162 ! Value: 0
162 ! [SCP/TRACE] .GOTO ABORT_EXIT << TMSCAN 0011
164 ! [SCP/TRACE] GET OA$DISPLAY = OA$_TM_SCABORT\FORCE << TMSCAN 0023
165 ! %OA-I-LOGFUN, Function: GET OA$DISPLAY = OA$_TM_SCABORT
165 ! GET Symbol: OA$DISPLAY = OA$_TM_SCABORT
165 ! Value: Scan aborted, please try again
165 ! %OA-I-LOGFUN, Function: FORCE
165 ! OA$FRM_CLOSE: Closing SCHDMAUISCAN
166 ! OA$FRM_DISPLAY: Displaying 003262C0 TMEP
166 ! OA$FLO_NDISP: Undisplaying SCHDMAUISCAN (00066AB4)
! Error occurred trying to access DENNIS 's Calendar
169 ! [SCP/TRACE] .EXIT << TMSCAN 0024
169 ! [SCP/CLOSE] TMSCAN << TMSCAN 0024
169 ! *** FX nesting level: 0
169 ! line** SCRIPT-script ***********script_file
169 ! line*** DO script **************script_file
169 ! 3 METER METER
171 ! GET Symbol: OA$FUNCTION = 'DO ' #SCRIPT
171 ! Value: DO TMSCAN
171 ! [SCP/TRACE] STOP_METER #METER_NO << METER 0004
172 ! %OA-I-LOGFUN, Function: STOP_METER #METER_NO
172 ! [SCP/TRACE] GET #SCRIPT = "" << METER 0005
172 ! %OA-I-LOGFUN, Function: GET #SCRIPT = ""
172 ! GET Symbol: #SCRIPT = ""
172 ! Value:
172 ! [SCP/TRACE] GET #METERNAME = "" << METER 0006
172 ! %OA-I-LOGFUN, Function: GET #METERNAME = ""
173 ! GET Symbol: #METERNAME = ""
173 ! Value:
173 ! [SCP/TRACE] .EXIT << METER 0007
173 ! [SCP/CLOSE] METER << METER 0007
173 ! *** FX nesting level: 0
173 ! line** SCRIPT-script ***********script_file
173 ! line*** DO script **************script_file
175 ! %OA-I-LOGFUN, Function: XOP "~~RE_INIT~~"
175 ! GET Symbol: "~~RE_INIT~~"
175 ! Value: ~~RE_INIT~~
176 ! %OA-I-LOGFUN, Function: GET #CAL_MTNG_WHEN = ""
176 ! GET Symbol: #CAL_MTNG_WHEN = ""
176 ! Value:
176 ! %OA-I-LOGFUN, Function: OA$SCL_EXIT
177 ! %OA-I-LOGFUN, Function: BIND_BREAK *CAL
177 ! %OA-I-LOGFUN, Function: XOP "~~INIT~~"
177 ! GET Symbol: "~~INIT~~"
177 ! Value: ~~INIT~~
177 ! %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .IF #CAL_MTNG_WHEN NES "" THEN CAL SET DATE #CAL_MTNG_WHEN
178 ! [SCP/TRACE] .IF #CAL_MTNG_WHEN NES "" THEN CAL SET DATE #CAL_MTNG_WHEN << Form= TMEP
178 ! GET Symbol: #CAL_MTNG_WHEN
178 ! Value:
178 ! GET Symbol: ""
178 ! Value:
179 ! %OA-I-LOGFUN, Function: CAL INIT MONTH
179 ! %OA-I-LOGFUN, Function: GET CDAY=OA$TM_DAY
179 ! OA$FLD_PUT: 0
180 ! OA$FMS_PUT: Putting "Thursday" to field "CDAY" (0) on page 1
180 ! GET Symbol: CDAY=OA$TM_DAY
180 ! Value: Thursday
180 ! %OA-I-LOGFUN, Function: GET CDATE=OA$TM_DATE
181 ! OA$FLD_PUT: 1
181 ! OA$FMS_PUT: Putting "02-Apr-1992" to field "CDATE" (1) on page 1
181 ! GET Symbol: CDATE=OA$TM_DATE
181 ! Value: 02-Apr-1992
182 ! %OA-I-LOGFUN, Function: GET CUSER=OA$TM_OWNER
182 ! OA$FLD_PUT: 5
182 ! OA$FMS_PUT: Putting "SCOTT" to field "CUSER" (5) on page 1
182 ! GET Symbol: CUSER=OA$TM_OWNER
183 ! Value: SCOTT
183 ! %OA-I-LOGFUN, Function: GET #CAL_ADVCAL = "1"
183 ! GET Symbol: #CAL_ADVCAL = "1"
183 ! Value: 1
183 ! %OA-I-LOGFUN, Function: GET #EV_FORM = "TMEP"
183 ! GET Symbol: #EV_FORM = "TMEP"
183 ! Value: TMEP
184 ! %OA-I-LOGFUN, Function: CAL DISP GRAPH
184 ! DSAB Name: CAL$CALENDAR Requests : LOCATE
184 ! DSAB Name: CAL$CALENDAR Requests : GET_NEXT
187 ! DSAB Name: CAL$CALENDAR Requests : GET_NEXT
188 ! DSAB Name: CAL$CALENDAR Requests : GET_NEXT
189 ! DSAB Name: CAL$CALENDAR Requests : GET_NEXT
191 ! DSAB Name: CAL$CALENDAR Requests : GET_NEXT
192 ! DSAB Name: CAL$CALENDAR Requests : DEACCESS
192 ! %OA-I-LOGFUN, Function: GET MONTH=OA$TM_MONTH
192 ! OA$FLD_PUT: 14
193 ! OA$FMS_PUT: Putting "April" to field "MONTH" (14) on page 1
193 ! GET Symbol: MONTH=OA$TM_MONTH
193 ! Value: April
193 ! %OA-I-LOGFUN, Function: GET MONTH1=OA$TM_MONTH1
193 ! OA$FLD_PUT: 21
194 ! OA$FMS_PUT: Putting " 1< 2> 3 4" to field "MONTH1" (21) on page 1
194 ! GET Symbol: MONTH1=OA$TM_MONTH1
194 ! Value: 1< 2> 3 4
194 ! %OA-I-LOGFUN, Function: GET MONTH2=OA$TM_MONTH2
195 ! OA$FLD_PUT: 24
195 ! OA$FMS_PUT: Putting " 5 6 7 8 9 10 11" to field "MONTH2" (24) on page 1
195 ! GET Symbol: MONTH2=OA$TM_MONTH2
195 ! Value: 5 6 7 8 9 10 11
196 ! %OA-I-LOGFUN, Function: GET MONTH3=OA$TM_MONTH3
196 ! OA$FLD_PUT: 27
196 ! OA$FMS_PUT: Putting " 12 13 14 15 16 17 18" to field "MONTH3" (27) on page 1
197 ! GET Symbol: MONTH3=OA$TM_MONTH3
197 ! Value: 12 13 14 15 16 17 18
197 ! %OA-I-LOGFUN, Function: GET MONTH4=OA$TM_MONTH4
197 ! OA$FLD_PUT: 30
198 ! OA$FMS_PUT: Putting " 19 20 21 22 23 24 25" to field "MONTH4" (30) on page 1
198 ! GET Symbol: MONTH4=OA$TM_MONTH4
198 ! Value: 19 20 21 22 23 24 25
198 ! %OA-I-LOGFUN, Function: GET MONTH5=OA$TM_MONTH5
198 ! OA$FLD_PUT: 33
199 ! OA$FMS_PUT: Putting " 26 27 28 29 30" to field "MONTH5" (33) on page 1
199 ! GET Symbol: MONTH5=OA$TM_MONTH5
199 ! Value: 26 27 28 29 30
200 ! %OA-I-LOGFUN, Function: GET MONTH6=OA$TM_MONTH6
200 ! OA$FLD_PUT: 36
200 ! GET Symbol: MONTH6=OA$TM_MONTH6
200 ! Value:
200 ! %OA-I-LOGFUN, Function: GET DAY1=OA$TM_DAY1
201 ! OA$FLD_PUT: 16
201 ! OA$FMS_PUT: Putting "Wed" to field "DAY1" (16) on page 1
201 ! GET Symbol: DAY1=OA$TM_DAY1
201 ! Value: Wednesday
202 ! %OA-I-LOGFUN, Function: GET DAY2=OA$TM_DAY2
202 ! OA$FLD_PUT: 19
203 ! OA$FMS_PUT: Putting "Thu" to field "DAY2" (19) on page 1
203 ! GET Symbol: DAY2=OA$TM_DAY2
203 ! Value: Thursday
203 ! %OA-I-LOGFUN, Function: GET DAY3=OA$TM_DAY3
204 ! OA$FLD_PUT: 22
204 ! OA$FMS_PUT: Putting "Fri" to field "DAY3" (22) on page 1
204 ! GET Symbol: DAY3=OA$TM_DAY3
204 ! Value: Friday
205 ! %OA-I-LOGFUN, Function: GET DAY4=OA$TM_DAY4
205 ! OA$FLD_PUT: 25
205 ! OA$FMS_PUT: Putting "Sat" to field "DAY4" (25) on page 1
206 ! GET Symbol: DAY4=OA$TM_DAY4
206 ! Value: Saturday
206 ! %OA-I-LOGFUN, Function: GET DAY5=OA$TM_DAY5
206 ! OA$FLD_PUT: 28
207 ! OA$FMS_PUT: Putting "Sun" to field "DAY5" (28) on page 1
207 ! GET Symbol: DAY5=OA$TM_DAY5
207 ! Value: Sunday
207 ! %OA-I-LOGFUN, Function: GET DAY6=OA$TM_DAY6
207 ! OA$FLD_PUT: 31
208 ! OA$FMS_PUT: Putting "Mon" to field "DAY6" (31) on page 1
208 ! GET Symbol: DAY6=OA$TM_DAY6
208 ! Value: Monday
208 ! %OA-I-LOGFUN, Function: GET DAY7=OA$TM_DAY7
208 ! OA$FLD_PUT: 34
209 ! OA$FMS_PUT: Putting "Tue" to field "DAY7" (34) on page 1
209 ! GET Symbol: DAY7=OA$TM_DAY7
209 ! Value: Tuesday
209 ! %OA-I-LOGFUN, Function: GET WEEK1=OA$TM_GRAPH1
210 ! OA$FLD_PUT: 17
210 ! GET Symbol: WEEK1=OA$TM_GRAPH1
210 ! Value:
210 ! %OA-I-LOGFUN, Function: GET WEEK2=OA$TM_GRAPH2
211 ! OA$FLD_PUT: 20
211 ! OA$FMS_PUT: Putting " **" to field "WEEK2" (20) on page 1
211 ! GET Symbol: WEEK2=OA$TM_GRAPH2
212 ! Value: **
212 ! %OA-I-LOGFUN, Function: GET WEEK3=OA$TM_GRAPH3
212 ! OA$FLD_PUT: 23
212 ! OA$FMS_PUT: Putting " **" to field "WEEK3" (23) on page 1
213 ! GET Symbol: WEEK3=OA$TM_GRAPH3
213 ! Value: **
213 ! %OA-I-LOGFUN, Function: GET WEEK4=OA$TM_GRAPH4
213 ! OA$FLD_PUT: 26
213 ! GET Symbol: WEEK4=OA$TM_GRAPH4
214 ! Value:
214 ! %OA-I-LOGFUN, Function: GET WEEK5=OA$TM_GRAPH5
214 ! OA$FLD_PUT: 29
214 ! GET Symbol: WEEK5=OA$TM_GRAPH5
214 ! Value:
215 ! %OA-I-LOGFUN, Function: GET WEEK6=OA$TM_GRAPH6
215 ! OA$FLD_PUT: 32
215 ! OA$FMS_PUT: Putting " *****" to field "WEEK6" (32) on page 1
216 ! GET Symbol: WEEK6=OA$TM_GRAPH6
216 ! Value: *****
216 ! %OA-I-LOGFUN, Function: GET WEEK7=OA$TM_GRAPH7
216 ! OA$FLD_PUT: 35
216 ! GET Symbol: WEEK7=OA$TM_GRAPH7
217 ! Value:
217 ! %OA-I-LOGFUN, Function: GET HEADER = OA$TM_GRAPH_TITLE
217 ! OA$FLD_PUT: 13
218 ! OA$FMS_PUT: Putting "8 9 10 11 12 1 2 3 4 5 6 7" to field "HEADER" (13) on page 1
218 ! GET Symbol: HEADER = OA$TM_GRAPH_TITLE
218 ! Value: 8 9 10 11 12 1 2 3 4 5 6 7
218 ! %OA-I-LOGFUN, Function: GET YEAR = OA$TM_YEAR
219 ! OA$FLD_PUT: 15
219 ! OA$FMS_PUT: Putting "1992" to field "YEAR" (15) on page 1
219 ! GET Symbol: YEAR = OA$TM_YEAR
219 ! Value: 1992040200000000
220 ! %OA-I-LOGFUN, Function: GET CALDAY=OA$TM_CALDAY
220 ! OA$FLD_PUT: 18
220 ! OA$FMS_PUT: Putting " S M T W T F S" to field "CALDAY" (18) on page 1
220 ! GET Symbol: CALDAY=OA$TM_CALDAY
221 ! Value: S M T W T F S
221 ! %OA-I-LOGFUN, Function: DATE_CONVERT #DATE_NBS, OA$TM_DATE, 7
221 ! GET Symbol: OA$TM_DATE
221 ! Value: 02-Apr-1992
222 ! %OA-I-LOGFUN, Function: GET #DATE_NBS = #DATE_NBS:8
222 ! GET Symbol: #DATE_NBS = #DATE_NBS:8
222 ! Value: 19920402
222 ! %OA-I-LOGFUN, Function: BINDW *CAL to CAL$CALENDAR with .CAL_KEY = #DATE_NBS
222 ! GET Symbol: #DATE_NBS
223 ! Value: 19920402
223 ! %OA-I-LOGFUN, Function: OA$SCL_INIT ,,,*CAL
223 ! GET Symbol:
223 ! Value:
223 ! GET Symbol:
223 ! Value:
224 ! GET Symbol: *CAL
224 ! Value:
224 ! GET Symbol:
224 ! Value:
224 ! GET Symbol: '>'
224 ! Value: >
225 ! GET Symbol: 'x'
225 ! Value: x
226 ! DSAB Name: CAL$CALENDAR Requests : LOCATE
226 ! DSAB Name: CAL$CALENDAR Requests : GET_NEXT
226 ! GET Symbol: .CAL_KEY
226 ! Value: 1992040214000000
226 ! GET Symbol:
227 ! Value:
227 ! DSAB Name: CAL$CALENDAR Requests : GET_NEXT
235 ! OA$FLD_PRE_PROCESS: -- 00066A5A
235 ! %OA-I-LOGFUN, Function: GET UNREAD = OA$MAIL_COUNT
235 ! DSAB Name: CAB$PENDING Requests : GET_BY_KEY
236 ! GET Symbol: OA$MAIL_DUM_COUNT
236 ! Value: 3
236 ! OA$FLD_PUT: 4
237 ! OA$FMS_PUT: Putting "3" to field "UNREAD" (4) on page 1
237 ! GET Symbol: UNREAD = OA$MAIL_COUNT
237 ! Value: 3
237 ! %OA-I-LOGFUN, Function: GET SELECTIONS = OA$SCROLL_SELECTED
237 ! GET Symbol: OA$SCROLL_BINDING
238 ! Value: *CAL
238 ! OA$FLD_PUT: 2
238 ! OA$FMS_PUT: Putting "0" to field "SELECTIONS" (2) on page 1
238 ! GET Symbol: SELECTIONS = OA$SCROLL_SELECTED
238 ! Value: 0
239 ! %OA-I-LOGFUN, Function: GET MEETIN = OA$MEETING_COUNT
239 ! OA$FLD_PUT: 3
239 ! OA$FMS_PUT: Putting "0" to field "MEETIN" (3) on page 1
240 ! GET Symbol: MEETIN = OA$MEETING_COUNT
240 ! Value: 0
240 ! OA$FLD_GET_FIELD-- 37
240 ! OA$FMS_GET: Getting user input from field "CHOICE" (37) on page 1
{GOLD $}
242 ! OA$FMS_GET_KEYPAD: Key value {GOLD $} "CHOICE" (37) on page 1
242 ! %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .IF OA$PROFIL_PRVDCL EQS "1" THEN KEYPAD OFF\DCL\KEYPAD ON
242 ! [SCP/TRACE] .IF OA$PROFIL_PRVDCL EQS "1" THEN KEYPAD OFF\DCL\KEYPAD ON << Form= TMEP
242 ! GET Symbol: OA$PROFIL_PRVDCL
242 ! Value: 1
243 ! GET Symbol: "1"
243 ! Value: 1
243 ! [SCP/TRACE] KEYPAD OFF\DCL\KEYPAD ON << Form= TMEP
243 ! %OA-I-LOGFUN, Function: KEYPAD OFF
243 ! %OA-I-LOGFUN, Function: DCL
243 ! %OA-I-LOGFUN, Function: OA$TRM_BRDCST_S
244 ! %OA-I-LOGFUN, Function: CLEAR
244 ! OA$FLO_ALL_NDISP: Undisplay all workspaces
245 ! %OA-I-LOGFUN, Function: FORM OA$CLEAR/KEYPAD
245 ! OA$FRM_DISPATCH: Dispatching OA$CLEAR/KEYPAD
245 !
246 ! ----------- CURRENT FORM INFORMATION ------------
246 ! CURRENT FIELD INDEX = 37
246 ! FORM DSAB WORKSPACE PRIOR_DSAB
246 ! TMEP 003262C0 00066A5A 003261A8
246 ! TMEP_MENU 003261A8 00066A3C 00000000
246 ! FORM:OA$CLEAR
246 ! OA$FRM_OPEN: Starting OA$CLEAR
246 ! OA$FMS_OPEN: Opening form "OA$CLEAR" (003278A0)
247 ! OA$FLO_OPEN_FORM: Opening form - OA$CLEAR
247 ! in OA_DISK:[ALLIN1.LIB_BRITISH]OAFORM.FLB;
248 ! %OA-I-LOGFUN, Function: OA$FORM_CLEAR
249 ! OA$FLO_DISPW: Displaying OA$CLEAR (00066AD2)
250 ! OA$FRM_DISPATCH: End Dispatch OA$CLEAR/KEYPAD
250 !
250 ! ----------- CURRENT FORM INFORMATION ------------
251 ! CURRENT FIELD INDEX = 0
251 ! FORM DSAB WORKSPACE PRIOR_DSAB
251 ! OA$CLEAR 003278A0 00066AD2 003262C0
251 ! TMEP 003262C0 00066A5A 003261A8
251 ! TMEP_MENU 003261A8 00066A3C 00000000
251 ! %OA-I-LOGFUN, Function: OA$FORM_DCL
|