Re: System 36 internal display file

Peter,

At 10/6/00 11:07 AM -0700, you wrote:
>It's been a long time since I did any S36 programming, so I can't remember
>if the format name you're outputting with the K8 is returned. Doesn't look
>like it since you made no provision for it in your input specs, so I'd say
>you need to output something unique to the screen that will be read back in
>to identify the screen. It could be a hidden field. Use that on your input
>specs to identify which format was just read:

  Close, but no cigar.  Define the "ID" field as a hidden, protected field 
w/ a constant value. The I spec changes you made are correct, but there's 
no need to define MCODE anywhere.  The O specs have no need to output the 
value; it probably shouldn't.

  -mark

> > 0117.00      IDE123SF NS  01   1 C4  <------------------------
> > 0118.00      I* Format-DE123S04
> > 0119.00      I                                        1   4 CBATNO
> > 0120.00      I                                        5  10 CBDATE
> > 0121.00       *
> > 0122.00      IDE123SF NS  01   1 C6  <------------------------
> > 0123.00      I* Format-DE123S06
> > 0124.00      I                                        1   1 MCODE
> > 0125.00      I                                        2  11 CZPN
> > 0126.00      I                                       12  21 CZCOMP
>
>
>
> > 1232.00      O        E        84      SCRN4
> > 1233.00      O                                   K8 'DE123S04'
>-------------->O                                    1 '4'
> > 1234.00      O                         CBATNO     5
> > 1235.00      O                         CBDATE    11
> > 1236.00      O                 13      ERRMS4    66
> > 1237.00       *
> > 1255.00      O        E        86      SCRN6
> > 1256.00      O                                   K8 'DE123S06'
>-------------->O                                    1 '6'

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---