idlfile.txt

/*********************************************************************
/** This is an example IDL file that you can process using the
/** IDL2WSDL rexx procedure.
/*********************************************************************
library 'TalkingClock' is
  program 'getTime' is
    define data parameter
    1 result   (A32)   Out
    end-define

  program 'Sprechen' is
    define data parameter
    1 result   (AV80)   Out
    end-define

  program 'Speak' is
    define data parameter
    1 result   (AV80)   Out
    end-define

library 'Security' is
  program 'changePassword' is
    define data parameter
    1 userid   (A8)   In
    1 password   (A8)   In
    1 newPassword   (A8)   In
    1 result   ('SecurityContext')   Out
    end-define

  program 'verify' is /*Authenticate a userid
    define data parameter
    1 userid   (A8)   In
    1 password   (A8)   In
    1 result   ('SecurityContext')   Out
    end-define

  program 'authorise' is /*Authorise access to a resource
    define data parameter
    1 userid   (A8)   In
    1 password   (A8)   In
    1 resource   (A44)   In
    1 result   ('SecurityContext')   Out
    end-define

/*The result of a Security operation is a collection of return and reason codes
  struct 'SecurityContext' is
    define data parameter
    1 userid   (A8)
    1 success   (L)
    1 returnCode   (B4)
    1 reasonCode   (B4)
    1 reason   (AV80)
    end-define

/*Preceding comment lines
library 'Gamut':'Gamut Alias' is
  /*Same line comment
  struct 'aStructure' is
    define data parameter
    1 aVar2   (D)
    1 aVar3   (A1)
    1 aVar4   (BV)
    1 aVar5   (F4)
    1 aVar6   (I4)
    1 aVar7   (L)
    1 aVar8   (N8.3)
    1 aVar9   (NU8.3)
    1 aVar10   (P8.3)
    1 aVar11   (PU8.3)
    1 aVar12   (T)
    1 aGroup
      2 aVar1   (AV80/1,2,3)    aligned
      2 aGroup2
        3 aVar3   (AV)
        3 aVar2   (AV)
    end-define

  /*Preceding comment lines
  program 'Operation':'Operation Alias' is /*Same line comment
    define data parameter
    1 aParm1   (A1)   In
    1 aParm2   (AV)   Out
    1 aStructureRef   ('aStructure')   In
    1 aStructureRef2   ('aStructure')   Out
    1 aStructureRef3   ('aStructure')   In Out
    end-define


** End of file