|
midrange.com
Hi all,
I have a screen that allows the user to select an option per line of the
subfile (DDS attached). I want to open the "printer" field (for that line
only) when the user selects a specific number. I've read the "next
modified" details into an array and am working off the array to process each
user option. I keep getting an "Incorrect relative record number or field
selection error" when I try to rewrite the record in question. My
understanding is that I need to set the indicator 52 to true, write (in this
case re-write) the specific subfile record and then read the CHQPRTCMD
record. Any pointers?
Thanks
DFM
Columns . . . : 1 80 Browse
UDI200412/QDDSSRC
SEU==>
CHQPRT
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8
*************** Beginning of data
****************************************************************************
***********
0000.10 A*%%TS SD 20050518 164026 MIELDAN REL-V5R2M0 5722-WDS
050518
0000.20 A*%%EC
050518
0000.30 A DSPSIZ(24 80 *DS3)
050518
0000.40 A INDARA
050518
0000.50 A R DUMMY ASSUME
050404
0000.60 A 1 2'CAN''T TOUCH THIS'
050404
0000.70 A R CHQPRTRCD SFL
050518
0000.80 A*%%TS SD 20050518 163754 MIELDAN REL-V5R2M0 5722-WDS
050518
0000.90 A LINENO 2Y 0B 3 1TEXT('line number')
050518
0001.00 A 53 DSPATR(PR)
050518
0001.10 A EDTCDE(Z)
050518
0001.20 A CHQTYPE 20A O 3 4TEXT('Cheque type')
050518
0001.30 A CREATEDT 8A O 3 29TEXT('Creation Date')
050518
0001.40 A CURRENCY 3A O 3 40TEXT('Currency')
050518
0001.50 A NMBRPAGES 6A O 3 46TEXT('Number of pages')
050518
0001.60 A PRINTER 10A B 3 54TEXT('Printer name')
050518
0001.80 A N52 DSPATR(PR)
050518
0001.90 A 52 DSPATR(UL)
050518
0002.00 A ENVTYPE 5A O 3 66TEXT('Environment Type')
050518
Columns . . . : 1 80 Browse
UDI200412/QDDSSRC
SEU==>
CHQPRT
FMT DP
.....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++
++++
0002.10 A SPLFNAME 10A H
050518
0002.20 A SPLFJOB 10A H
050518
0002.30 A SPLFJOBNBR 6A H
050518
0002.40 A SPLFUSER 10A H
050518
0002.50 A SPLNBR 6A H
050518
0002.60 A SPLFSTAT 3A O 3 25
050518
0002.70 A R CHQPRTCTL SFLCTL(CHQPRTRCD)
050517
0002.80 A*%%TS SD 20050517 175248 MIELDAN REL-V5R2M0 5722-WDS
050517
0002.90 A CF03(03 'Exit')
050517
0003.00 A CF07(07 'Previous')
050517
0003.10 A CF08(08 'Next')
050517
0003.20 A CF12(12 'Cancel')
050517
0003.30 A PAGEUP(25 'Page Up')
050517
0003.40 A PAGEDOWN(26 'Page Down')
050517
0003.50 A KEEP
050517
0003.60 A OVERLAY
050517
0003.70 A 40N41 SFLDSP
050517
0003.80 A N41 SFLDSPCTL
050517
0003.90 A 41 SFLCLR
050517
0004.00 A SFLSIZ(0010)
050517
0004.10 A SFLPAG(0010)
050517
0004.20 A WINDOW(5 4 14 72
*NOMSGLIN *NORSTCS- 050517
0004.30 A R)
050517
0004.40 A WDWBORDER((*COLOR GRN)
(*DSPATR RI)- 050517
0004.50 A (*CHAR '++++++++'))
050517
0004.60 A WDWTITLE((*TEXT 'Print /
View Chequ- 050517
0004.70 A es') *CENTER)
050517
0004.80 A 2 9'Cheque Type'
050517
0004.90 A COLOR(WHT)
050517
0005.00 A 2 29'Created'
050517
0005.10 A COLOR(WHT)
050517
0005.20 A 2 37'Currency'
050517
0005.30 A COLOR(WHT)
050517
0005.40 A 2 46'#Pages'
050517
0005.50 A COLOR(WHT)
050517
0005.60 A 2 55'Printer'
050517
0005.70 A COLOR(WHT)
050517
0005.80 A 2 1'Opt'
050517
0005.90 A COLOR(WHT)
050517
0006.00 A 2 67'Env'
050517
0006.10 A COLOR(WHT)
050517
0006.20 A 2 24'Stat'
050517
0006.30 A DSPATR(HI)
050517
0006.40 A R CHQPRTCMD
050518
0006.50 A*%%TS SD 20050518 164026 MIELDAN REL-V5R2M0 5722-WDS
050518
0006.60 A WINDOW(CHQPRTCTL)
050518
0006.70 A CF03(03 'Exit')
050518
0006.80 A CF07(07 'Previous')
050518
0006.90 A CF08(08 'Next')
050518
0007.00 A CF12(12 'Cancel')
050518
0007.10 A PAGEUP(25 'Page Up')
050518
0007.20 A PAGEDOWN(26 'Page Down')
050518
0007.30 A KEEP
050518
0007.40 A OVERLAY
050518
0007.50 A 14 5'ENTER SELECTION-->'
050518
0007.60 A COMMAND 10A I 14 24TEXT('COMMAND')
050518
0007.70 A* 52 DSPATR(PR)
050519
0007.80 A LISTCNTRL 6A O 13 49TEXT('LIST CONTROL')
050518
****************** End of data
****************************************************************************
**************
BUY. HOLD. AND PROSPER
Daniel Mielke
Business Systems Analyst
AIC Limited
1-888-710-4242 x4614
dmielke@xxxxxxx <mailto:dmielke@xxxxxxx>
www.aic.com <http://www.aic.com>
Man darf nur die Tasten zur richtigen Zeit treffen,
so spielt das Instrument von selber.
Johann Sebastian Bach (1685-1750)
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.
