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!

  • Congratulations wOOdy-Soft 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 Rigdzin

  1. Rigdzin

    Interpret with "IF THEN DO END"

    HI Again "partly" right :-) , but.. I need to save these CNT_values so I can check them again incase this error situation happens again. This save is done in an AFO-pool (in a Coupling Facility Structure), and 1. it is not possible to use STEM-Vars there. ( the instr. used is a...
  2. Rigdzin

    Interpret with "IF THEN DO END"

    Morning Frank, Agree, it is a bit shorter, but its only to check the name . What I need is, to have a counter for each member within the group specified. Like Cnt_P2WA Cnt_WD6S etc etc Your solution does not handle this problem. The Interpret I use sets up a variable "CNT_Name" for each...
  3. Rigdzin

    Interpret with "IF THEN DO END"

    Hi Frank The Storage-pool-Names (in the first IF) is quite long. Doing it this way, I need to code everything in the first DO-END only once. Othewise I needed to do multiple IFs or "SELECT" + multiple WHENs. Beside that, it is also a lot easier to add an additional pool-name. Of course...
  4. Rigdzin

    Interpret with "IF THEN DO END"

    Hi Frank, the supplied REXX was just a sample. The real rexx is an AF/OPERATOR rexx that Traps the MSG : IGD17272I VOLUME SELECTION HAS FAILED FOR INSUFFICIENT SPACE FOR DATA SET PDB2DBS.PDB2KAT3.SYSCOPYI JOBNAME (PMDBKAT3) STEPNAME (STEP02 )...
  5. Rigdzin

    Interpret with "IF THEN DO END"

    HI Thanks for the answer. [medal] Adding the ";" did the job StgGrp = 'P2WA' Cnt_P2WA = 11 Interpret "IF Cnt_"StgGrp" > 10 THEN" , "DO ;" , "SAY Cnt_"StgGrp ";" , "SAY Cnt_"StgGrp ";" ...
  6. Rigdzin

    Interpret with "IF THEN DO END"

    Hello I am trying the following Rexx : TRACE R STGGrp = 'P2WA' CNT_P2WA = 11 Interpret "IF CNT_"StgGrp" > 10 THEN" ...

Part and Inventory Search

Back
Top