h dftactgrp(*no) actgrp(*caller) bnddir('QC2LE')
      /free

      /copy *libl/qrpglesrc,IFSIO_H

      //************************************************************************
      // Files
      //************************************************************************
       dcl-s $fd int(10) inz(0);
       dcl-c $clrf const(x'0D25');
       dcl-s $Path varchar(100) inz('/home/jarred/') ;
       dcl-s $FileName varchar(20) inz(*blanks);
       dcl-s $IFSFile varchar(100) inz(*blanks);
       dcl-s $xml varchar(512) inz(*blanks);
       dcl-s $Ordernumber varchar(7) inz(*blanks);
      //************************************************************************
      // Procedure Definitions
      //************************************************************************

       dcl-pr Main extpgm('IFSTEST');                       // Main Procedure
        #Order char(7) const;                      // Recieve in PO Number from calling program
       end-pr;
       dcl-pi Main;
        @Order char(7) const;
       end-pi;
       dcl-pr Open_file;
        $OrderNumber char(7) value;
       end-pr;
       dcl-pr OrderHeader;                          // Order Header XML
        @Order char(7) value;                       // Order Number
       end-pr;
       dcl-pr OrderDetail;                          // Detail XML
        @Order char(7) value;                       // Order Number
       end-pr;
       dcl-pr Close_file;
       end-pr;

      //************************************************************************
      // Main Code
      //************************************************************************
       $OrderNumber = '9999999';
       Open_file($OrderNumber);
       Close_file();
        *inlr = *on;
        return;
      //************************************************************************
      // Open File
      //************************************************************************

       dcl-proc Open_file;
       dcl-pi   Open_file;
        $OrderNumber char(7) value;
       end-pi;   
       
       $Filename = $OrderNumber + '.xml';
       $IFSFile = $Path + $Filename;
       
       //$fd = open(%trim($IFSFile)
                  //: O_WRONLY+O_CREAT+O_TRUNC+O_CCSID
                  //: S_IRGRP + S_IWGRP + S_IXGRP +
                                               //S_IRUSR + S_IWUSR + S_IXUSR
                  //: 819);
       $fd = open(%trim($IFSFile)
                  : O_WRONLY+O_CREAT+O_TRUNC+O_CODEPAGE
                  : S_IRGRP + S_IWGRP + S_IXGRP +
                                               S_IRUSR + S_IWUSR + S_IXUSR
                  :35);
        callp close($fd);
       $fd = open(%trim($IFSFile):O_WRONLY+O_TEXTDATA);

        $xml = 'TEST <?xml version="1.0" encoding="UTF-8"?>' + x'0D25' +
               '<PurchaseOrder>';

        callp write($fd: %addr($xml): %len(%trim($xml)));
        return;
       end-proc Open_file;

      //************************************************************************
      // Order Header
      //************************************************************************
        dcl-proc OrderHeader;
        dcl-pi   OrderHeader;
         $OrderNumber char(7) value;
        end-pi;
        
        
        
        
        end-proc;


      //************************************************************************
      // Close File
      //************************************************************************

       dcl-proc Close_file;
       dcl-pi   Close_file;
       end-pi;
        $xml = x'0D25' + '</PurchaseOrder>';
        callp write($fd: %addr($xml): %len(%trim($xml)));
        callp close($fd);

       end-proc Close_file;
       
       /end-free