|
midrange.com
Here is the DDS for the subfile records I am using, if anyone has any issues
with the DDS in relation to the afore mentioned question I am all
ears....code to follow.
A*%%TS SD 20050324 104116 DPALME REL-V5R1M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A R GJENTRYSF SFL
A*%%TS SD 20050324 104116 DPALME REL-V5R1M0 5722-WDS
A DDATE 8Y 0B 6 4
A DREF 10A B 6 15
A DDESC 15A B 6 37
A DDEBIT 11S 2B 6 55CHECK(RB)
A DCREDIT 11S 2B 6 69CHECK(RB)
A DACCTNO 6 0B 6 27
A R GJENTRYCTL SFLCTL(GJENTRYSF)
A*%%TS SD 20050303 103403 DPALME REL-V5R1M0 5722-WDS
A CA12(12 'F12=CANCEL')
A CF10(10 'F10=UPDATE')
A CA06(06 'F6=ADD NEW ROW')
A CF04(04 'F4=LOOKUP')
A OVERLAY
A 51 SFLDSP
A 51 SFLDSPCTL
A 52 SFLEND
A SFLSIZ(0015)
A SFLPAG(0014)
A 99 SFLMSG('YOU HAVE ENTERED AN INVALID-
A ACCOUNT NUMBER')
A 1 3'GJENTRYSF'
A COLOR(BLU)
A 1 14TIME
A 1 25'COUNTRY WIDE TRUCK SERVICE, INC.'
A COLOR(WHT)
A 1 60DATE
A EDTCDE(Y)
A 1 71USER
A 2 30'General Journal Entry'
A 4 4'DATE'
A COLOR(TRQ)
A 4 15'REF'
A COLOR(TRQ)
A 4 27'ACCT NO'
A COLOR(TRQ)
A 4 37'DESCRIPTION'
A COLOR(TRQ)
A 4 61'DEBIT'
A COLOR(TRQ)
A 4 74'CREDIT'
A COLOR(TRQ)
A 5 4'==================================-
A ===================================-
A ======='
A R GJENTRYFTR
A*%%TS SD 20050303 103403 DPALME REL-V5R1M0 5722-WDS
A 23 70'F12=CANCEL'
A COLOR(BLU)
A 23 55'F10=UPDATE'
A COLOR(BLU)
A 23 36'F6=ADD NEW ROW'
A COLOR(BLU)
A 22 46'TOTALS:'
A 22 13'STATUS:'
A DSTATUS 14A O 22 21
A DDRTOTAL 11Y 2O 22 54EDTWRD(' . ')
A DSPATR(UL)
A DCRTOTAL 11Y 2O 22 68EDTWRD(' . ')
A DSPATR(UL)
A 23 21'F4=LOOKUP'
A COLOR(BLU)
A R CHART SFL
A*%%TS SD 20050303 150623 DPALME REL-V5R1M0 5722-WDS
A DCHRTSEL 1A I 5 4
A DCHRTDESC 30A O 5 17
A DCHRTTYPE 30A O 5 49
A DCHRTACTNO 6 0O 5 8
A R CHARTCTL SFLCTL(CHART)
A*%%TS SD 20050302 155230 DPALME REL-V5R1M0 5722-WDS
A CA12(12 'F12=CANCEL')
A 61 SFLDSP
A 61 SFLDSPCTL
A 62 SFLCLR
A SFLSIZ(0016)
A SFLPAG(0015)
A 1 2'CHARTCTL'
A COLOR(BLU)
A 1 14TIME
A 1 32'CHART OF ACCOUNTS'
A COLOR(WHT)
A 1 56DATE
A EDTCDE(Y)
A 1 70USER
A 3 17'DESCRIPTION'
A 3 49'TYPE'
A 3 3'SEL'
A 4 3'==================================-
A ===================================-
A ========'
A 3 8'ACCT NO'
A R CHRTDSPSFL SFL
A*%%TS SD 20050324 084836 DPALME REL-V5R1M0 5722-WDS
A DWDWACCTNO 6S 0O 3 7
A DWDWDESC 30A O 3 16
A DWDWSEL 1S 0I 3 2
A DWDWCLSS 4A O 3 49
A R CHRTDSPCTL SFLCTL(CHRTDSPSFL)
A*%%TS SD 20050324 083558 DPALME REL-V5R1M0 5722-WDS
A SFLSIZ(0008)
A SFLPAG(0007)
A WINDOW(8 6 12 55)
A OVERLAY
A 61 SFLDSP
A SFLDSPCTL
A 62 SFLCLR
A N62 SFLEND(*MORE)
A 1 6'Acct No'
A 1 1'Sel'
A 1 16'Description'
A 1 49'Class'
A 2 1'-----------------------------------
A -------------------'
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.
