RE: Control File Maintenance Using DSM.

Ok...I made 2 simple mods...

<code>

               // have no clue why the data pointer is returned offset
by 2...
               If FldInf.QsnFIDta <> *Null;
                 FldInf.QsnFIDta -= 2;
               Else;
                 Iter;
               EndIf; 
</code>

As to the shift left on description change 
<code>
         If UpdDesc;
           ValDsc=%Trim(FieldData);
         EndIf; 
</code>

To this:
<code>
         If UpdDesc;
           ValDsc=%TrimR(FieldData);
         EndIf;
</code>

Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tyler, Matt
Sent: Wednesday, February 01, 2006 5:04 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Control File Maintenance Using DSM.

Tommy,

Is the description also supposed to shift left on update (KRCTNLDSM)?
I get a program error when I attempt to update with all blanks. 
<code>
        // have no clue why the data pointer is returned offset by 2...

         FLDINF.QSNFIDTA -= 2;  <--- value is *NULL when description is
blanks                                          
</code>

Thanks, Matt



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Holden Tommy
Sent: Wednesday, February 01, 2006 3:33 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Control File Maintenance Using DSM.

KRCNTLDSM updated
http://code.midrange.com/index.php?id=6a6ef2c2c6

DSMAPI copybook Updated
http://code.midrange.com/index.php?id=fbe4d034bb

I'd like to thank everyone who has assisted with this nightmare...(guess
I'm a slow learner???)

Thanks,
Tommy Holden
HCA phone:  1-800-828-2561
direct line:  615-344-2151
fax: 1-866-593-0404