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