Difference between revisions of "UDDS File Display/Update"
From MidrangeWiki
| 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 12: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
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
