|
Hi, did you specify X as relative record no in the F-Specification or what is your subfile counter? Birgitta -----Ursprungliche Nachricht----- Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von rob@xxxxxxxxx Gesendet: Sonntag, 7. November 2004 17:59 An: RPG programming on the AS400 / iSeries Betreff: 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
