Difference between revisions of "UDDS File Display/Update"

From MidrangeWiki
Jump to: navigation, search
Line 17: Line 17:
  
 
===DISP  RPG===
 
===DISP  RPG===
 +
 +
<pre>
 +
</pre>
 +
 +
 +
[[#top]]
 +
 +
===DISPF  DSPF ===
 +
 +
<pre>
 +
    A                                      DSPSIZ(24 80 *DS3)
 +
    A                                      PRINT
 +
    A                                      OPENPRT
 +
    A                                      HELP
 +
    A                                      INDARA
 +
    A          R PUT                      USRDFN
 +
    A          R GET                      USRDFN
 +
    A                                      INVITE
 +
</pre>
 +
 +
 +
[[#top]]
 +
 +
== WRAPPER CODE ==
 +
===DISPR  RPG ===
 +
 +
<pre>
 +
</pre>

Revision as of 07:19, 27 October 2018


UDDS

The manual that describes the 5250 data stream is 5494 Remote Control Unit, Functions Reference. SC30-3533-04 (topic 15) [1] [2]


The purpose of this program is to demo an example of a program using UDDS.

It shows file data, but is limited to 6048 max rcdlen.

Use the code below at your own risk, no warranty is expressed or implied or even that the code is functional.


I am also inculding wrapper programs to make the displayer more useful, but there is no 'make' instruction. I am assuming you know enough about compiling source to figure it out for yourself. Once compiled the command to run it is 'DSPFL yourlib/yourfile '

DISP RPG



#top

DISPF DSPF

     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      OPENPRT
     A                                      HELP
     A                                      INDARA
     A          R PUT                       USRDFN
     A          R GET                       USRDFN
     A                                      INVITE


#top

WRAPPER CODE

DISPR RPG