USER BEWARE ....
I have NOT tried it, but the thing that I expect WILL impact COBDFSYM is the
fact that Enterprise COBOL V4R2 (not V4R1) *DOES* allow for underscores in
user-defined words - even as the last character of the user-defined word.
Consider (in particular) a (valid in Enterprise COBOL V4R2) 01-level of
01 Group1.
05 A-B Pic X.
05 A_B Pic 9.
05 XYZ_ Pic 99 Comp-5
I have NOT tried it, but I do think that COBDFSYM may well have problems
with such a record layout.
NOTE:
I have already sent in an RCF that the Enterprise COBOL V4R2 Migration
Guide (and/or programming guide) needs more (ANY!!!) information on use of
the underscore and its inter-action with other software.
"Andy Robertson" <[email protected]> wrote in message
news:<ofec1d40c0.48c86a44-on80257635.00570fcb-80257635.00570...@johnlewis.co
.uk>...
> We are trying to use COBDFSYM to convert COBOL copybooks to SYMPARMS input
> for ICETOOL
>
> COBDFSYM is in the dfsort tricks pdf at
> http://www-01.ibm.com/support/docview.wss?uid=isg3T7000094
>
> The copybook is compiled and the output analysed by COBDFSYM to create
> SYMPARMS input
>
>
> With COBOL 410 input we seem to be getting fields in the listing which
have
> new offsets the current COBDFSYM cannot handle
>
> eg:
>
> 89 *-* parse pull line
> >>> " LineID PL SL
> ----+-*A-1-B--+----2----+----3----+----4----+-
> ference "
> 90 *-* end
> 88 *-* do until substr(line,2,16) = ' LineID PL SL '
> >V> " LineID PL SL
> ----+-*A-1-B--+----2----+----3----+----4----+--
> erence "
> >L> "2"
> >L> "16"
> >F> " LineID PL SL "
> >L> " LineID PL SL "
> >O> "0"
> 89 *-* parse pull line
> >>> "0 000001 IDENTIFICATION DIVISION.
> "
> 90 *-* end
> 88 *-* do until substr(line,2,16) = ' LineID PL SL '
> >V> "0 000001 IDENTIFICATION DIVISION.
> "
> >L> "2"
> >L> "16"
> >F> " 000001 "
> >L> " LineID PL SL "
> >O> "0"
> 89 *-* parse pull line
>
>
>
> I'm quite happy to plunge in and start debugging, but Id like to ask first
> if there is a version adapted for 410 available already
>
>
>
> Andy Robertson
>
> **********************************************************************
> This email is confidential and may contain copyright material of the John
Lewis Partnership.
> If you are not the intended recipient, please notify us immediately and
delete all copies of this message.
> (Please note that it is your responsibility to scan this message for
viruses). Email to and from the
> John Lewis Partnership is automatically monitored for operational and
lawful business reasons.
> **********************************************************************
>
> John Lewis plc
> Registered in England 233462
> Registered office 171 Victoria Street London SW1E 5NN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
