RPGLE - Writting data to browser (internet explorer) from Iseries

RPGLE  - Writting data to browser (internet explorer) from Iseries

D*----------------------------------------------------
     D*
     D* API error processing
     D*
     D WPError         DS
     D  EBytesP                1      4B 0 INZ(40)
     D  EBytesA                5      8B 0
     D  EMsgID                 9     15
     D  EReserverd            16     16
     D  EData                 17     56
     D*
     D* define the data for the API
     D*
     D WrtDta          S           1024
     D WrtDtaLen       S              9B 0
     D Count           S             01  0
     D WNM1            S             50
     D WEX1            S             10
     D WDP1            S             10
     D WNM2            S             50
     D WEX2            S             10
     D WDP2            S             10
     D WNM3            S             50
     D WEX3            S             10
     D WDP3            S             10
     D*
     D NewLine         C                   CONST(X'15')
     C                   eval      WrtDta = %trim("Umm Hello!")
     C                                      + NewLine
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
     C*  $WrStout - Write data to browser
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
     CSR   $WrStOut      Begsr
     C*
     C                   eval      WrtDtaLen = %len(%trim(WrtDta))
     C                   CALLB     'QtmhWrStout'
     C                   PARM                    WrtDta
     C                   PARM                    WrtDtaLen
     C                   PARM                    WPError
      *
     C*
     C                   Endsr
     C*----------------------------------------------------