HP3000-L Archives

August 1996, Week 5

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Image Logging
From:
mike hornsby <[log in to unmask]>
Reply To:
mike hornsby <[log in to unmask]>
Date:
Thu, 29 Aug 1996 11:12:45 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (54 lines) 
FD LOGIN.
01 LOGIN-REC.
  03 FULL-REC                  PIC X(256).
  03 LOG-REC REDEFINES FULL-REC.
     05 LOG-RECNUM PIC 9(9) COMP.
     05 LOG-CHKSUM PIC 9(4) COMP.
     05 LOG-CODE.
       10 LOG-CODE-1 PIC X.
       10 LOG-CODE-2 PIC X.
     05 FILLER     PIC X(10).
     05 TI-RECORD    PIC X(238).
     05 TI-TYPE-2 REDEFINES TI-RECORD.
       10 TI-LEN     PIC 9(4) COMP.
       10 TI-CODE    PIC XX.
       10 TI-LOG-ID  PIC S9(4) COMP.
       10 TI-XX      PIC X(232).
       10 TI-PU REDEFINES TI-XX.
         15 PU-REC-FL  PIC XX.
         15 PU-TRN-NUM PIC S9(9) COMP.
         15 PU-SET     PIC S9(4) COMP.
         15 PU-SET-TYP PIC XX.
         15 PU-RECNUM  PIC S9(9) COMP.
         15 PU-MODE    PIC S9(4) COMP.
         15 PU-OFF-KI  PIC S9(4) COMP.
         15 PU-OFF-LI  PIC S9(4) COMP.
         15 PU-OFF-DA  PIC S9(4) COMP.
         15 PU-KID     PIC X(210).
       10 TI-UP REDEFINES TI-XX.
         15 UP-REC-FL  PIC XX.
         15 UP-TRN-NUM PIC S9(9) COMP.
         15 UP-SET     PIC S9(4) COMP.
         15 UP-SET-TYP PIC XX.
         15 UP-RECNUM  PIC S9(9) COMP.
         15 UP-MODE    PIC S9(4) COMP.
         15 UP-OFF-KI  PIC S9(4) COMP.
         15 UP-OFF-LI  PIC S9(4) COMP.
         15 UP-OFF-NEW PIC S9(4) COMP.
         15 UP-OFF-OLD PIC S9(4) COMP.
         15 UP-KID     PIC X(208).
       10 TI-DE REDEFINES TI-XX.
         15 DE-REC-FL  PIC XX.
         15 DE-TRN-NUM PIC S9(9) COMP.
         15 DE-SET     PIC S9(4) COMP.
         15 DE-SET-TYP PIC XX.
         15 DE-RECNUM  PIC S9(9) COMP.
         15 DE-MODE    PIC S9(4) COMP.
         15 FILLER     PIC X(216).
       10 TI-OP REDEFINES TI-XX.
         15 OP-USER    PIC X(32).
         15 OP-BASE    PIC X(6).
         15 OP-GROUP   PIC X(8).
         15 OP-ACCT    PIC X(8).
         15 FILLER     PIC X(178).

ATOM RSS1 RSS2