× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. November 2004

Re: cpf5021

I think you're spot on, with both remarks.  Thanks.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Keith Carpenter" <CarpCon@xxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/07/2004 12:23 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Re: cpf5021






Rob,

What do you have for the sfile() keyword on the F spec for the DSPF ?
Based on your example, it should be sfile(record1:x)

Also, if you happen not to write a sfl record (Leave on first iteration),
then SFLDSP should not be set on.  Usually I make SFLDSP and SFLDSPCTL
separate indicators to address this condition.


Keith



----- Original Message ----- 
From: <rob@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Sunday, November 07, 2004 8:59 AM
Subject: cpf5021


> My screen programming is a tad bit rusty.
>
> I write out a footer1 record.
> I write out the record1ctl record to clear the subfile.
> But, when I go to write the subfile record it chokes.
>
> RPG code:
>          Write footer1;  // Clear the screen and write out the Fkeys
>          *in62=*off;  // SFLDSP, SFLDSPCTL off
>          *in60=*on;  // SFLCLR on
>          *in61=*on;  // More... on
>          write record1ctl;  // Clear the subfile.
>          *in60=*off; // SFLCLR off
>          for x=1 to SflSize;  // fill up the subfile
>            If Not FetchCursor();
>              *in61=*off;  // More... off
>              Leave;  // Bust out of the fill if End Of File.
>            Else;
>              write record1;  // Write a detail record to the subfile
> Nothing of significance in the joblog until the write record1.  Then I
> get:
> CPF5021-Incorrect relative record number or field selection error.
> C autorespond
> CPF5021-Incorrect relative record number or field selection error.
> C autorespond
> RNX1255-Session or device error occurred in file ORDERLIST.
>   The major return code is 83.
>   The minor return code is 1D.
>
> Screen is as follows:
>      A*%%TS  DD  20041107  115727  Rob         REL-V5.0.1  WDSc
>      A*%%EC
>      A                                      DSPSIZ(24 80 *DS3)
>      A                                      REF(ROBSQLF/ORDERSVIEW
> ORDERSVIEW)
>      A          R RECORD1
>      A*%%TS  DD  20041107  115727  Rob         REL-V5.0.1  WDSc
>      A                                      SFL
>      A            NAME      R        O  6  2REFFLD(NAME)
>      A            ZIP       R        O  6 33REFFLD(ZIP)
>      A            ITEMOUT        8   O  6 44
>      A            DATEDUE   R        O  6 53REFFLD(DATEDUE)
>      A                                      DATFMT(*MDY)
>      A            QTYSHIP        5Y 0O  6 62EDTCDE(3)
>      A            STATE     R        O  6 68REFFLD(STATE)
>      A*%%GP SCREEN1    01
>      A          R RECORD1CTL
>      A*%%TS  DD  20041107  115727  Rob         REL-V5.0.1  WDSc
>      A                                      SFLCTL(RECORD1)
>      A  62                                  SFLDSPCTL
>      A  62                                  SFLDSP
>      A  60                                  SFLCLR
>      A                                      SFLPAG(6)
>      A                                      SFLSIZ(6)
>      A  61                                  SFLEND(*MORE)
>      A                                      OVERLAY
>      A                                      CF03(03 'F3=Exit')
>      A                                      CF07(07 'F7=Name')
>      A                                      CF08(08 'F8=Zip')
>      A                                      CF09(09 'F9=Item')
>      A                                      CF10(10 'F10=Due Date')
>      A                                      CF11(11 'Qty Shipped')
>      A                                      CF13(13 'State')
>      A                                  4  2'Customer'
>      A                                  5  2'Name'
>      A                                  5 33'Zip'
>      A                                  5 44'Item'
>      A                                  4 54'Date'
>      A                                  5 54'Due'
>      A                                  4 64'Qty'
>      A                                  5 62'Shipd'
>      A                                  5 68'St'
>      A            FIELD1          L  B  1 70
>      A            FIELD2          T  B  2 70
>      A                                  1  2USER
>      A                                  2  2SYSNAME
>      A                                  2 36'Open Orders'
>      A*%%GP SCREEN1    02
>      A          R ASSUME
>      A*%%TS  DD  20041106  132627  Rob         REL-V5.0.1  WDSc
>      A                                      ASSUME
>      A                                  2  4'Dummy'
>      A*%%GP ASSUME     01
>      A          R FOOTER1
>      A*%%TS  DD  20041106  132627  Rob         REL-V5.0.1  WDSc
>      A                                 21  4'F3=Exit'
>      A                                 21 13'F7=Name'
>      A                                 21 22'F8=Zip'
>      A                                 21 30'F9=Item'
>      A                                 21 39'F10=Date Due'
>      A                                 21 53'F11=Qty Shipped'
>      A                                 21 70'F13=State'
>      A*%%GP SCREEN1    03
>
>
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.