TechTalk: Getting started with the ILE Dynamic Screen Manager APIs.

RPG
Typography
  • Smaller Small Medium Big Bigger
  • Default Helvetica Segoe Georgia Times

In V2R3, a set of bindable OS/400 APIs called Dynamic Screen Manager (DSM) APIs became available, giving programmers a higher-level interface to the previously tedious method of 5250 data stream programming. Like 5250 data stream programming, DSM APIs provide the ability to dynamically read and write screens without the use of DDS display files or User Interface Manager (UIM) panel groups. The main advantage of this type of programming is that it allows you to dynamically build screens at run time rather than statically build screens at design time. However, because these APIs are bindable, they can only be used by ILE languages.

In V2R3, the only language that could be used with the DSM APIs was ILE C/400. In V3R1, with the release of RPG IV (which operates in the ILE environment), these APIs became accessible to RPG programmers. To demonstrate how these APIs can be used in an RPG program, I wrote the example shown in 6. The purpose of this program is to display the message "Hello World!" in the center of the screen. While it's not a particularly useful program, it does provide you with a starting point to build your own programs using these APIs.

In V2R3, the only language that could be used with the DSM APIs was ILE C/400. In V3R1, with the release of RPG IV (which operates in the ILE environment), these APIs became accessible to RPG programmers. To demonstrate how these APIs can be used in an RPG program, I wrote the example shown in Figure 6. The purpose of this program is to display the message "Hello World!" in the center of the screen. While it's not a particularly useful program, it does provide you with a starting point to build your own programs using these APIs.

To give you a better understanding of how this program works, I'll briefly explain the purpose of the various API calls. The program starts by calling the Create Command Buffer (QsnCrtCmdBuf) API. A command buffer is simply an area in memory where subsequent DSM API calls will place instructions until the API that "puts" the command buffer is called to execute those instructions. The Create Command Buffer API returns a handle that is used by the subsequent DSM API calls to locate the address of the buffer.

Next, the program calls the Clear Screen (QsnClrScr) API to place instructions into the command buffer that will clear the screen. The third call is to the Write Data (QsnWrtDta) API, which puts instructions into the command buffer to write data to the display. The data to display, as well as the row and column to display it at, are passed as parameters to this API. The next API call is to the Put Command Buffer (QsnPutBuf) API to execute the instructions that reside in the command buffer. At this point, the data is written to the screen. However, the program doesn't stop to wait for user input. Instead, it continues to execute. That's the reason for the last API call, which is to the Get AID (QsnGetAID) API. This API stops the program and waits for user input before continuing.

That's a quick overview of a sample program that uses the DSM APIs. Many more DSM APIs are available for you to try writing this type of code yourself. You'll find them documented in OS/400 System API Reference V3R1 (SC41-3801, CD-ROM QBKAVD00).

- Robin Klima


TechTalk: Getting started with the ILE Dynamic Screen Manager APIs.

Figure 6: Sample Program Using the DSM APIs

 *=============================================================== * To compile: * * CRTBNDRPG PGM(XXX/DSM001RG) SRCFILE(XXX/QRPGLESRC) + * DFTACTGRP(*NO) * *=============================================================== *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 D Size S 9B 0 INZ(4500) D Increment S 9B 0 INZ(50) D BufHandle S 9B 0 D Mode S 1A INZ('0') D Data S 12A INZ('Hello World!') D DataLength S 9B 0 INZ(12) D Row S 9B 0 INZ(13) D Column S 9B 0 INZ(35) * Create command buffer C CALLB 'QsnCrtCmdBuf' C PARM Size C PARM Increment C PARM *OMIT C PARM BufHandle C PARM *OMIT * Clear screen C CALLB 'QsnClrScr' C PARM Mode C PARM BufHandle C PARM *OMIT C PARM *OMIT * Write data C CALLB 'QsnWrtDta' C PARM Data C PARM DataLength C PARM *OMIT C PARM Row C PARM Column C PARM *OMIT C PARM *OMIT C PARM *OMIT C PARM *OMIT C PARM BufHandle C PARM *OMIT C PARM *OMIT * Put buffer C CALLB 'QsnPutBuf' C PARM BufHandle C PARM *OMIT C PARM *OMIT * Get AID key C CALLB 'QsnGetAID' C PARM *OMIT C PARM *OMIT C PARM *OMIT C EVAL *INLR = *ON 
BLOG COMMENTS POWERED BY DISQUS

LATEST COMMENTS

Support MC Press Online

$

Book Reviews

Resource Center

  •  

  • LANSA Business users want new applications now. Market and regulatory pressures require faster application updates and delivery into production. Your IBM i developers may be approaching retirement, and you see no sure way to fill their positions with experienced developers. In addition, you may be caught between maintaining your existing applications and the uncertainty of moving to something new.

  • The MC Resource Centers bring you the widest selection of white papers, trial software, and on-demand webcasts for you to choose from. >> Review the list of White Papers, Trial Software or On-Demand Webcast at the MC Press Resource Center. >> Add the items to yru Cart and complet he checkout process and submit

  • SB Profound WC 5536Join us for this hour-long webcast that will explore:

  • Fortra IT managers hoping to find new IBM i talent are discovering that the pool of experienced RPG programmers and operators or administrators with intimate knowledge of the operating system and the applications that run on it is small. This begs the question: How will you manage the platform that supports such a big part of your business? This guide offers strategies and software suggestions to help you plan IT staffing and resources and smooth the transition after your AS/400 talent retires. Read on to learn: