01 segment.record. 05 name1-length pic s9(04) comp. 05 name2-length pic s9(04) comp. 05 name3-length pic s9(04) comp. 05 name4-length pic s9(04) comp. 05 name5-length pic s9(04) comp. 05 name1-text. 10 name1-char pic x(01) occurs 0 to 99 times depending on name1-length. 05 name2-text. 10 name2-char pic x(01) occurs 0 to 99 times depending on name2-length. 05 name3-text. 10 name3-char pic x(01) occurs 0 to 99 times depending on name3-length. 05 name4-text. 10 name4-char pic x(01) occurs 0 to 99 times depending on name4-length. 05 name5-text. 10 name5-char pic x(01) occurs 0 to 99 times depending on name5-length.
On Tue, May 21, 2024 at 11:39 AM Mike Schwab <[email protected]> wrote: > > All thength fields MUST occur before length depending on. > > On Tue, May 21, 2024 at 10:23 AM Binyamin Dissen > <[email protected]> wrote: > > > > On Tue, 21 May 2024 15:01:12 +0000 "Schmitt, Michael" > > <[email protected]> wrote: > > > > :>3. Depends on the language. IMS can have variable length segments but not > > variable length fields, so any variable length fields are defined by the > > application. If the application is in COBOL, there's no native variable > > length field format. Applications can simulate variable length fields but > > how they do it is in application logic. > > > > Well, I don't know about that. > > > > > > 01 var-field-length pic s9(4) comp. > > > > 01 var-field. > > 05 var-field-character pic x occurs 1 to 1000 times depending on > > var-field-length. > > > > > > When a MOVE is performed to or from VAR-FIELD the length from > > VAR-FIELD-LENGTH > > is used. > > > > -- > > Binyamin Dissen <[email protected]> > > http://www.dissensoftware.com > > > > Director, Dissen Software, Bar & Grill - Israel > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > -- > Mike A Schwab, Springfield IL USA > Where do Forest Rangers go to get away from it all? -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
