ILE RPG IV example using QWCRTVCA

**FREE
Ctl-Opt debug;
Dcl-Ds CurAtr;
     AtNbrAtrRtn     Int(10);
     AtAtrLen1       Int(10);
     AtAtrKey1       Int(10);
     AtAtrDtaTyp1    Char(1);
     *n              Char(3);
     AtAtrDtaLen1    Int(10);
     USERPRF         Char(10);
     *n              Char(3);
End-Ds;

Dcl-S CurAtrLen       Int(10)         Inz( %Len( CurAtr ));
Dcl-S FmtNam          Char(8)         Inz( 'RTVC0100' );
Dcl-S KeyFldNbr       Int(10)         Inz( 1 );
Dcl-Ds KeyFlds;
     *n              Int(10)         Inz( 305 );
End-Ds;

Dcl-Ds ApiError;
// When the bytes provided field is set to zero,
// exceptions will be signaled to the calling program.

     AeBytAvl        Int(10)         Inz( 0 );
End-Ds;
// Prototype for QWCRTVCA
Dcl-Pr Pgm_QWCRTVCA ExtPgm('QWCRTVCA');
     CurAtr          LikeDs(CurAtr);
     CurAtrLen       Int(10);
     FmtNam          Char(8);
     KeyFldNbr       Int(10);
     KeyFlds         LikeDS(KeyFlds);
     ApiError        LikeDs(ApiError);
End-Pr;

Pgm_QWCRTVCA(CurAtr : CurAtrLen : FmtNam : KeyFldNbr :
      KeyFlds : ApiError);

snd-msg userprf;
*INLR = '1';