Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by RogerSpencer

  1. RogerSpencer

    COBOL calling REXX - Online

    If you go to http://www-1.ibm.com/support/docview.wss?uid=swg24003837 you can download two complete jobs illustrating how to call REXX programms from COBOL. The first is simpler to code and uses IRXJCL which only allows you to return a numeric value (return code) from your REXX to COBOL. If...
  2. RogerSpencer

    abend a rexx in batch

    Executing IKJEFT01 in a batch job always ends with return code 0. Use IKJEFT1B instead. This will use the numeric value on the EXIT clause in your REXX as the step return code. Hope this helps, Roger Spencer
  3. RogerSpencer

    Why does "if ('0000' = '00e0')" return "true" when the hex. strings are unequal?

    At first glance the two hex. strings appear to be unequal and normally one would expect "false". However, when the '=' operator is used for comparison, REXX first checks if both operands are numeric. '0000' is obviously numeric (zero) and '00e0' is, according to the REXX rules, also numeric and...
  4. RogerSpencer

    Dates

    If you are using ObjREXX you can use the nonstandard (i.e. on Windows, Unix but not on MVS, VM etc.) changestr() function. Sorry, I should have thought of this in my first appends 8-) filedate = word(filedate, 1) filedate = changestr('-', filedate, '') /* above, '' = zero length string */...
  5. RogerSpencer

    Dates

    Hallo K1ng, I have just read your posting once again and would like to point out the use of the Date() function with 3 arguments for converting from one date format to another. Also the use of 'B' (Base) format which returns the number of days since the arbitrary base date of 1 Jan 0001. This...
  6. RogerSpencer

    Dates

    today=Date('S') returns the date in the format 'yyyymmdd'. I assume you are using IBM's ObjREXX under Windows, and so filedate = stream("filename.tmp", 'c', 'QUERY TIMESTAMP') returns the timestamp in the format 'yyyy-mm-dd hh:mm:ss'. You can extract the date from the timestamp and...
  7. RogerSpencer

    Using Rexx how can I read and write to a member

    Without seeing your code it is difficult to say precisely, but as you mention "member" then you are presumabely using an MVS system. If that is the case, then I assume you read in the member with EXECIO and place the data on the data stack (i.e. you do not use the STEM operand on the...
See more

Part and Inventory Search

Back
Top