Trailing-Edge
-
PDP-10 Archives
-
BB-AI48A-BM
-
datatrieve/demo/session_record.cdd-record
There are no other files named session_record.cdd-record in the archive.
B R SESSION_RECORD RV Qm B) B, BT C C, CW Ci D5 Fh Fx G GF Go H HC Hl I IB Im J JE Jo K MN M^ Ml N5 N\ O O. OY Oi P5 P\ Q Q3 Q] THE_WHOLE_RECORD
RV Qy R; Q{ SINGLE_FIELD X(291) R9 THE_WHOLE_RECORD
R B8 B: ENTRY_TYPE X(4)
R
R ( C RECORDSEQUENCENUMBER 9
R 0 C8 C; RECORD_REVISION_NUMBER 99
R @
R P D X(10)
R Cx Cz DA JOB_NUMBER JOB 9999 R @ C| 0 Dh E E< Ee F FA LOCAL_DATE_AND_TIME
Fh @ Du Dv E_YEAR 9(4)
Fh ` E E E_MONTH 99
Fh p C EI E_DAY 99
Fh Eq F E_HOUR 99
Fh Et F' E_MINUTE 99
Fh Ew FN E_SECOND 99
R 0 Ez G TERMINAL_DESIGNATOR X
R 8 E} E G+ LINE_NUMBER TTY 9(4)
R X GR GT PROGRAM_NAME X(6)
R G{ H PROGRAM_VERSION_NUMBER X(15)
R H' H) MONITOR_VERSION X(15)
R x G~ HP NODE_NAME X(6)
R ( Hx Hz S1_ENTRY_TYPE X(4)
R H I# I& S1_OPERATING_SYSTEM_ID X
R P
IN IQ
S1_RECORD_SEQUENCE_NUMBER X
R X
Iz J
S1_RECORD_REVISION_NUMBER XX
R h J' J* S1_RECORD_REVISION_NUMBER_CUS XX
R x JS X(10)
R H 8 J{ K J} ACCOUNT_STRING ACCOUNT X(39)
R K' K) RUNTIME X(9) R H KQ 0 KT L L( LQ Lz M$ SESSION_START_DATE_TIME
MN H Ka Kb YEAR 9(4)
MN h K~ L
MONTH 99
MN x K L5 DAY 99
MN
L] L^ HOUR 99
MN
M M MINUTE 99
MN
( M1 M2 SECOND 99
R
8 Mj N JOB_TYPE X
R
@ Mx N BATCH_JOB_NAME X(6)
R
p
Mz NA
BATCH_SEQUENCE_NUMBER X(6)
R M} Nh SESSION_REMARK X(39)
R
O O, O
CONSOLE_CONNECT_TIME CONNECT X(7)
R O: O= BATCH_REQUEST_ID X(6)
R @ Oe P U_ENTRY_TYPE X(4)
R ` Ou P U_OPERATING_SYSTEM_IDENTIFIER X
R h
Oz PA
U_RECORD_SEQUENCE_NUMBER X
R p
Ph Pk
U_RECORD_REVISION_NUMBER XX
R Q Q U_RECORD_REVISION_NUMBER_CUS XX
R QA X(10)
R ` Qj R USERNAME X(39) DEFINE RECORD SESSION-RECORD USAGE DISPLAY-7 USING
01 SESSION-RECORD.
02 THE-WHOLE-RECORD.
PIC X(4).
03 OPERATING-SYSTEM-IDENTIFIER PIC X.
03 RECORD-SEQUENCE-NUMBER PIC 9.
03 RECORD-REVISION-NUMBER PIC 99.
03 RECORD-REVISION-NUMBER-CUS PIC 99.
03 FILLER PIC X(10).
03 JOB-NUMBER PIC 9999 QUERY-NAME JOB.
ND-TIME.
05 E-YEAR PIC 9(4).
05 E-MONTH PIC 99.
05 E-DAY PIC 99.
05 E-HOUR PIC 99.
05 E-MINUTE PIC 99.
05 E-SECOND PIC 99.
03 TERMINAL-DESIGNATOR PIC X.
03 LINE-NUMBER PIC 9(4) QUERY-NAME TTY.
03 PROGRAM-NAME PIC X(6).
03 PROGRAM-VERSION-NUMBER PIC X(15).
03 MONITOR-VERSION PIC X(15).
IC X(6).
03 S1-ENTRY-TYPE PIC X(4).
03 S1-OPERATING-SYSTEM-ID PIC X.
03 S1-RECORD-SEQUENCE-NUMBER PIC X.
03 S1-RECORD-REVISION-NUMBER PIC XX.
03 S1-RECORD-REVISION-NUMBER-CUS PIC XX.
03 FILLER PIC X(10).
03 ACCOUNT-STRING PIC X(39) QUERY-NAME ACCOUNT.
03 RUNTIME PIC X(9).
03 SESSION-START-DATE-TIME.
05 YEAR PIC 9(4).
05 MONTH PIC 99.
05 DAY PIC 99.
05 HOUR PIC 99.
05 MINUTE PIC 99.
05 SECOND PIC 99.
03 JOB-TYPE PIC X.
03 BATCH-JOB-NAME PIC X(6).
03 BATCH-SEQUENCE-NUMBER PIC X(6).
03 SESSION-REMARK PIC X(39).
03 CONSOLE-CONNECT-TIME PIC X(7) QUERY-NAME CONNECT.
03 BATCH-REQUEST-ID PIC X(6).
03 U-ENTRY-TYPE PIC X(4).
03 U-OPERATING-SYSTEM-IDENTIFIER PIC X.
03 U-RECORD-SEQUENCE-NUMBER PIC X.
03 U-RECORD-REVISION-NUMBER PIC XX.
03 U-RECORD-REVISION-NUMBER-CUS PIC XX.
03 FILLER PIC X(10).
IC X(39).
02 SINGLE-FIELD REDEFINES THE-WHOLE-RECORD PIC X(291).
;