Re: Re: MVT COBOL under MVS3.8j.

"Vince Coen [email protected] [H390-MVS]" <[email protected]>
Newsgroups gmane.comp.emulators.hercules390.mvs
Message-ID <[email protected]>
Look at manual :

GC28-6399-2 pages 135-137, 139-141, 239-240
Title : IBM OS Full ANS cobol
Compiler and library v2
Programmers Guide


Note that RECORDING MODE is V

is needed.

Vince




On 16/09/2019 12:53, Giuseppe Vitillaro giuseppe-yuD/ahkh7LvrZ44/[email protected] 
[H390-MVS] wrote:
>
> On Mon, 16 Sep 2019, Joe Monk [email protected] [H390-MVS] wrote:
>
> > Remember Peppe, this is '68 Cobol, not '74 Cobol.
> >
> > You use an occurs with the depending on in the data record.
> >
> > FD BLAH BLAH BLAH
> > DATA RECORD IS DATA-RECORD
> > LABEL RECORDS ARE STANDARD.
> >
> > 01 DATA-RECORD.
> > 02 FIELD-1 PIC 99.
> > 02 FIELD-2 PIC X OCCURS 1 TO 99 TIMES
> > DEPENDING ON FIELD-1.
> >
> > Joe
>
> I understand Joe, I've read the manuals.
>
> But in this way the record length FIELD-1 needs
> to be recorded INTO the record.
>
> I would like to use the dataset control words without storing
> anything else in the record, beside the app payload.
>
> I guess in pure COBOL '68 that is not possible?
>



------------------------------------

------------------------------------


------------------------------------

Yahoo Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/H390-MVS/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/H390-MVS/join
    (Yahoo! ID required)

<*> To change settings via email:
    [email protected] 
    [email protected]

<*> To unsubscribe from this group, send an email to:
    [email protected]

<*> Your use of Yahoo Groups is subject to:
    https://info.yahoo.com/legal/us/yahoo/utos/terms/
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.