|
Hi, I will be retrieving web orders from a data queue. Each order can have up to 30 items in the cart. Each item will have detail information about the item. A single detail or item has a max size of 61. So 30 items x length of 61 = Max size of possible items in the cart 1830. We would like to retrieve the orders and place them in a data structure. Instead of creating a data structure with subfields to hold all the possible 30 items in the cart. I was trying the following and recieved the message below for the highlighted areas. D Detail DS D DtlFlds 61 dim(30) D DItmSku 26 overlay(DtlFlds) D DItmErrCd 2 overlay(DtlFlds:*NEXT) D DDPCIDept 4 overlay(DtlFlds:*NEXT) D DDPCIClass 4 overlay(DtlFlds:*NEXT) D DDPCIItem 4 overlay(DtlFlds:*NEXT) D DUntPrice 9 overlay(DtlFlds:*NEXT) D DItmSkuSts 1 overlay(DtlFlds:*NEXT) D DQtyAvlNow 3 overlay(DtlFlds:*NEXT) D DExpShpDat 8 overlay(DtlFlds:*NEXT) Message ID . . . . . . : RNF3468 Severity . . . . . . . : 20 Message type . . . . . : Diagnostic Message . . . . : The second parameter for keyword OVERLAY is not valid; parameter is ignored. Cause . . . . . : The second parameter for keyword OVERLAY (if specified) must be a numeric literal with zero decimal positions or a constant name that is previously defined as a numeric literal with zero decimal positions. Recovery . . . : Correct the second parameter for keyword OVERLAY. Compile again. Does anyone know why I would receive this message only after the second *NEXT and not the first two. If I remove *NEXT and replace it with a numeric literal it works. But that is not what I was looking for. If you know of a work around or a better way to do this, please let me know. Thanks in advance for your help. +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.