|
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. >
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.
midrange.com
