Re: Layout Hell.: leave it

From: Lueko Willms (l.willms_at_jpberlin.de)
Date: 07/26/04 

Date: 26 Jul 2004 16:58:00 GMT

. Am 26.07.04
schrieb L.Willms@JPBERLIN.de (Lueko Willms)
    auf /COMP/LANG/COBOL
     in 9Dcb70q9flB@jpberlin-l.willms.jpberlin.de
  ueber Re: Layout Hell.: leave it

   oops, something went wrong here:

LW> 000290 01 OUTRECORD
LW> 000300 .
LW> 000310 COPY RECDES01
LW> 000320 REPLACING
LW> 000330 == 01 == BY == 02 ==
LW> 000340 == COMP == BY == DISPLAY ==
LW> 000350 == COMP-1 == BY == DISPLAY ==
LW> 000360 == COMP-2 == BY == DISPLAY ==
LW> 000370 == COMP-3 == BY == DISPLAY ==
LW> 000380 == COMP-4 == BY == DISPLAY ==
LW> 000390 == COMP-5 == BY == DISPLAY ==
LW> 000400 == . == BY == .
LW> 000410 10 FILLER PIC X .
LW> 000420 ==
LW> 000430 .

    this last clause should be the same as in the Working Storage
Section, with the exception of the VALUE clause:

LW> 000500 REPLACING

LW> 000580 == .
LW> 000590 10
LW> 000600 == BY == .
LW> 000610 10 FILLER PIC X VALUE ";".
LW> 000620 10 ==
LW> 000630 .

    The effect of the different REPLACING clause in the OUTRECORD is
just that one additional character is being added at the end to the
record, which would remain blanc or undefined.

Yours,
Lüko Willms http://www.mlwerke.de
/--------- L.WILLMS@jpberlin.de -- Alle Rechte vorbehalten --

"Die Arbeit in weißer Haut kann sich nicht dort emanzipieren, wo sie
in schwarzer Haut gebrandmarkt wird." - Karl Marx 12.11.1866