RE: Cycle is broken (V4R5)

SQL?

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



> -----Original Message-----
> From: Rich Duzenbury [mailto:rduz@westernmidrange.com]
> Sent: Wednesday, July 17, 2002 3:35 PM
> To: rpg400-l@midrange.com
> Subject: Cycle is broken (V4R5)
>
>
> Hi all,
>
> I've been given a file and asked to summarize by a binary ID field.
>
> File FOO:
>       A          R FOOA
>       A            FIELD          9B 0
>       A          K FIELD
>
> So, I pulled out the trusty cycle:
>
>       FFOO     IP  E           K        DISK
>       IFOOA
>       I                                              FIELD L1
>
> And promptly received:
> *QRG4067
> Severity 10
> Control Level/Matching Field entries not blank for binary
> field.  Entry
> defaults to blank.
>
> Fine, I'll just code it up in ILE:
> FFOO       IP   E           K DISK
> IFOOA
> I
>                                      FIELD         L1
> And promptly received:
> *RNF4067
> Severity 20
> Control-Levels or Matching-Fields entry is not blank for input
> field.
>
> Why does RPG and ILE not support all the datatypes in OS/400?
> What could possibly be wrong (or somehow so difficult as to not be
> supported) with breaking on a binary field?
>
> So now what?  I can't redefine the file -- It's someone
> else's.  I have go
> back to the stone age and internally describe it.  Or use
> hand made level
> break code.  Anyone have a brighter idea?
>
> Thank you.
>
> Regards,
> Rich
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>