|
Small example of dds for you to take a look at....
A DSPSIZ(24 80 *DS3)
A PRINT
A*---------------------------------------------------------------------
A* Subfile Record
A R SUBFILESF SFL
A*
A NAMEA 30A B 3 5
A 28 DSPATR(PR)
A OPTION 1 B 3 2
A*-------------------------------------------------------------------
A* Subfile Header
A R SUBFILEHD SFLCTL(SUBFILESF)
A CF01
A CF05
A OVERLAY
A 50 SFLDSP
A 50 SFLDSPCTL
A 52 SFLCLR
A 55 SFLEND(*MORE)
A SFLSIZ(0017)
A SFLPAG(0016)
A WINDOW(SUBFILEWD)
A RRN 4S 0H SFLRCDNBR(CURSOR)
A 2 2'Active Names'
A COLOR(WHT)
A R SUBFILEWD
A*
A WINDOW(1 22 20 35)
A R SUBFILEFT
A*
A 24 13'F1'
A COLOR(WHT)
A 24 16'- Exit'
A COLOR(BLU)
A ODATE 18A O 24 41
A TIMEFIELD 8A O 24 61
A R SUBFILES1
A*
A NAMEA 30 O 11 26
A RRN 4 0O 11 18
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.