|
Been a long time since I did a screen from scratch... Started out with a new empty source member with CODE designer. Subfile. One group. Subfile control record and subfile record. Pretty basic. Getting DDS7812 - Subfile control record (SFLCTL keyword) overlaps subfile record (SFL keyword). I don't see how.
Source is as follows: A*%%TS DD 20041106 104818 Rob REL-V5.0.1 WDSc A*%%EC A DSPSIZ(24 80 *DS3) A REF(ROBSQLF/ORDERSVIEW ORDERSVIEW) A R RECORD1 A*%%TS DD 20041106 104818 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 QTYSHIPPED 5 O 6 62 A STATE R B 6 68REFFLD(STATE) A*%%GP SCREEN1 01 A R RECORD1CTL DDS7812S Subfile control record (SFLCTL keyword) overlaps subfile record (SFL keyword). A*%%TS DD 20041106 104818 Rob REL-V5.0.1 WDSc A SFLCTL(RECORD1) A SFLDSPCTL A SFLDSP A SFLPAG(6) A SFLSIZ(6) 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 20 4'F3=Exit' A 20 13'F7=Name' A 20 22'F8=Zip' A 20 39'F10=Date Due' A 20 53'F11=Qty Shipped' A 20 30'F9=Item' A 20 70'F13=State' A*%%GP SCREEN1 02
Dave Murvin DRM Enterprises, Inc.
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.