D APtr            S               *
D Cmd             S            256A

DProgramDS       SDS
D Program           *PROC
D Library                81     90

D Execute         pr                  extpgm('qcmdexec')
D  Command                     256a   Const Options(*VARSIZE)
D  Length                       15p 5 Const

 /Free
      Cmd = 'SBMJOB CMD(CALL '+ %Trim(Library)+'/'+%Trim(Program) +')';
      Execute(Cmd:%Len(%Trim(Cmd)));
      DoW ( 1 = 1 );
          APtr = %Alloc(1024);
      EndDo;
      *InLr = *On;
 /End-Free