HP3000-L Archives

October 1999, Week 2

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:
From:
Eben Yong <[log in to unmask]>
Reply To:
Date:
Thu, 14 Oct 1999 07:35:23 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (23 lines)
Hi folks,

Here's the SUPRTOOL file layout:

    File: Z1.EBEN.AIHBETA     (SD Version B.00.00)
       Entry:                     Offset
          A                    X6      1
          ST-TOTAL-1           P28     7
    Limit: 28  EOF: 28  Entry Length: 20  Blocking: 64

how do I define the ST-TOTAL-1 field in the COBOL program?

+7   file-control.
+8       select     IN-FILE         assign to "INFILE".
+9       select     OUT-FILE        assign to "OUTFILE".
10   data                              division.
11   file                              section.
12   fd  IN-FILE.
13   01  IN-RECORD.
14       05  IN-A                      pic x(6).
15       05  IN-TOTAL                  pic ?????????.
16

ATOM RSS1 RSS2