Joe,

The lengths vary based on whether your using the I-O feedback 
or OPEN feedback area.  The individual fields are position
dependent.  I have copybooks defining these work areas (if
you want them, send me an email).

The names are not significant (as long as they don't conflict
with COBOL reserved words).

To find the length of a variable in working storage use
the LENGTH-OF intrinsic function.

A MOVE in COBOL is left to right according to the ANSI
standard (unless your using the JUSTIFIED phrase).

Terry


> -----Original Message-----
> From: Joe Pluta [mailto:joepluta@xxxxxxxxxxxxxxxxx] 
> Sent: Thursday, April 17, 2003 10:49 AM
> To: COBOL Programming on the iSeries/AS400
> Subject: ACCEPT and the INFDS
> 
> 
> Hi everyone!
> 
> I'm back with newbie question number 736: the file informational data
> structure.  I've gotten to the point where I think I 
> understand that you
> have to do an ACCEPT which transfers the contents of the 
> INFDS to a working
> storage buffer.
> 
> My question is this: is the layout of that working storage 
> buffer fixed, or
> are the names significant?  The one I've seen has a bunch of 
> filler fields,
> which leads me to think that the names are not significant, 
> but that the
> positions are.
> 
> Even more newbie, what's the length of the data structure?  
> Is it like RPG,
> where the longer you specify the more fields you get?  Or is 
> there a fixed
> length it needs to be?  And as a simple corollary, is there a 
> syntax in
> COBOL that will get me the length of a field that has subfields?
> 
> And finally, in a blinding burst of newbieness, say I have 
> two 01-level
> fields, both with lots of 05 and 10 subfields.  FIELDA is 100 
> characters,
> FIELDB is 75.  If I MOVE FIELDA TO FIELDB, does this move the 
> first 75 bytes
> (positions 1-75) of FIELDA to FIELDB, or the last 75 
> (positions 26-100)?
> I'm pretty sure its the former, but this whole thing has 
> confused me no end.
> 
> Okay, now.  Stop laughing.  Get off the floor.
> 
> Joe
> 
> 
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 
> (COBOL400-L) mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
> 

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].