RE: A little shudder here

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

> From: Jay Sulzmann
>
> I always set up 01-levels for each record format in WORKING-STORAGE.  In
> other words, set up a 01-level, then do a COPY DD (as opposed to COPY DDS)
> on the record format name.

Please forgive my ignorance here.  This is REAL newbie stuff, I'm sure, but
let me show you what I'm working with:

   FILE-CONTROL.
       SELECT WRKSTN ASSIGN TO WORKSTATION-DSPF005
           ORGANIZATION IS TRANSACTION
           ACCESS DYNAMIC RELATIVE KEY RRN
           FILE STATUS IS WS-STATS.

  FILE SECTION.
  FD  WRKSTN LABEL RECORDS ARE OMITTED.
  01  WRKSTN-REC.
      COPY DDS-ALL-FORMATS OF DSPF005.


      MOVE "CBL002" TO PGMNAM OF S00100-O.
      WRITE WRKSTN-REC FORMAT "S00100".


Given this, I assume (bad, I know) that the COPY DDS-ALL-FORMATS is what
brings in the definitions of the file, creating the magic "S00100-I" and
"S00100-O" formats.  This defines PGMNAM in my program.  Then, since the
compiler "knows" that S00100 is a format of WRKSTN-REC and that WRKSTN-REC
"belongs to" WRKSTN, the WRITE verb completes correctly.

If I put 01-levels for each format in my working storage, what is the syntax
of the WRITE verb that associates the format with the workstation?

Joe