CPD7812S SUBFILE CONTROL RECORD OVERLAPS SUBFILE RECORD

[rstitzel]

Each time I try to compile my display file I get the following error:

cpd7812s Subfile control record Overlaps subfile record

I can't see where they're overlapping?! Here's the code:

A DSPSIZ(24 80 *DS3)
A INDARA
A R INPUT TEXT('MAIN INPUT SCREEN')
A CF03(03 'Exit')
A 2 5'D R I V E R A D D T O L O A D'
A 2 60'Input Screen'
A COLOR(PNK)
A 6 5'Enter Block and Route Number, and -
A Press ENTER'
A COLOR(WHT)
A 9 5'Block#:'
A BLOCK 1Y 0B 9 14TEXT('BLOCK NUMBER')
A EDTCDE(3)
A 9 20'Route#:'
A ROUTE 2Y 0B 9 29TEXT('ROUTE NUMBER')
A EDTCDE(3)
A 9 36'Day#:'
A FDAY 1Y 0O 9 43TEXT('DAY NUMBER')
A EDTCDE(3)
A 9 49'Date:'
A FDATE 8Y 0O 9 56TEXT('DELIVERY DATE')
A EDTCDE(Y)
A 18 5'F3-Exit'
A COLOR(WHT)
A 70 ERRORMSG 70 O 24 5TEXT('ERROR MESSAGES')
A COLOR(RED)
A DSPATR(BL)
A R DATAENTRY
A SFL
A INQTYCODE 8Y 0B 10 5TEXT('Fields for Data Entry')
A EDTCDE(3)
A R DATAENTCTL
A SFLCTL(DATAENTRY)
A SFLDSP
A SFLPAG(32)
A SFLSIZ(32)
A SFLLIN(4)
A CF03(03 'Exit')
A SFLDSPCTL
A 2 5'D R I V E R A D D T O L O A D'
A 2 60'Data Entry Screen'
A COLOR(PNK)
A 4 5'Block:'
A BLOCK 1Y 0O 4 13TEXT('BLOCK NUMBER')
A EDTCDE(3)
A 5 5'Route:'
A ROUTE 2Y 0O 5 12TEXT('Route Number')
A EDTCDE(3)
A 8 5'QTY/CODE'
A COLOR(WHT)
A 8 17'QTY/CODE'
A COLOR(WHT)
A 8 29'QTY/CODE'
A COLOR(WHT)
A 8 41'QTY/CODE'
A COLOR(WHT)
A 8 53'QTY/CODE'
A COLOR(WHT)
A 8 65'QTY/CODE'
A COLOR(WHT)
A 19 5'1. Enter Quantity and Product Cod-
A e for Each Item'
A COLOR(WHT)
A 20 5'2. Push Enter to Validate Quantit-
A ies and Item Codes'
A COLOR(WHT)
A 22 5'F3-Exit'
A TEXT('F3 to Exit Program')
A COLOR(WHT)
A 70 ERRORMSG 70 O 24 5COLOR(RED)
A DSPATR(BL)

Thank you.

 

[jack1955]

INQTYCODE line 8, headings in control- line 8

 

[rstitzel]

I'm blind apparently Thanks a lot!

 

[rstitzel]

I guess I'm blind and "stupid" I still don't see how they're overlapping.

Can you please explain further why INQTYCODE is causing the problem.

Sorry to be a pest, but I appreciate your and anyone else's help with this problem. Thanks!

 

[rstitzel]

Nevermind. I see that you can't have any fields below the subfile format. I'll have to create a separate record for my footer.

Thanks

 

[krg400]

The subfile control record can have data displayed either above the subfile or below the subfile but not both.

 

[rstitzel]

Thanks KRG400. New to RPG and very new to subfiles. I appreciate the info.

 

[krg400]

If you want to show data both above and below the subfile, e.g. the heading at the top and the function keys on the bottom, the common way is for the control record to have all the heading information and for everything below the subfile to be in a separate format.

Before you show the subfile you first WRITE the other format with your fkeys or whatever, then you EXFMT the subfile/control. In the DDS you will have instructed your sflctl to OVERLAY and so the three sections all show together to build your complete screen.

Kev.

 

[rstitzel]

What I did was remove anything i had below the subfile. I then created another standard record that I called Footer. In this I put all my fields and text constants that I needed.

In my RPG code I first write the footer and then exfmt the subfile. I've added the overlay keyword.

That should work right?

 

[krg400]

OVERLAY on the sflctl not the footer, right?

Yes, that should work fine (unless you've got input fields in the footer).

 

[rstitzel]

Yes overlay is on the control file. No input fields in the footer.

Thank again