RE: DPA Template

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

here is my contribution :)   these are the scalar type values that are
needed:

d conScalarBin    c                   x'00'
d conScalarZnd    c                   x'02'
d conScalarPkd    c                   x'03'
d conScalarChar   c                   x'04'

-Steve

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bob cozzi
Sent: Friday, December 12, 2003 1:29 PM
To: RPGIV@xxxxxxxxxxxxxxx; 'RPG programming on the AS400 / iSeries'
Subject: DPA Template


I’m assuming the next question is, what’s the structure of the DPA template?

Here it is:



0012 D DPA_Templ       DS

      ** Part of the RPG ToolKit (www.rpgiv.com/toolkit)

      ** The RPG ToolKit is © 2002 Robert Cozzi, Jr.

0004  /IF DEFINED(*V5R1M0)

0005 D                                     QUALIFIED

0006  /ENDIF

0013 D  DPA_Type                      1A   Inz(X'00')

0008 D  DPA_BinLen                    5I 0 Inz

0009 D   DPA_Decpos                   3I 0 Overlay(DPA_BinLen)

0010 D   DPA_Length                   3I 0 Overlay(DPA_BinLen:*NEXT)

0011 D  DPA_Reserved                  1A   Inz(X'00')

0016 D  DPA_Reserved2                10I 0 Inz

0017  /ENDIF







Bob Cozzi

Cozzi Consulting

www.rpgiv.com



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.