How To Read a Dataset In REXX

File handling is REXX is one of the most easiest thing to do. The file reading in rexx is done in a line by line reading format. For example this the below happens when a dataset in read in rexx

• Each line of the Dataset is stored in each subscript in a array . For example array.1 will have the first line of the dataset and array.2 will have the second one and so on.
• The total number of lines read will be available in array.0 variable which will be used to used to loop through the lines.
• Below is the example how to read a dataset 'MY.PS.READ' into array.

           

                      "ALLOC FI(LNAME) DA('MY.PS.READ') SHR"
                      "EXECIO * DISKR LNAME(STEM ARRAY. FINIS"
                      "FREE FI(LNAME)"

      • Where LNAME is the logical name of the dataset 'MY.PS.READ'.

      •  Finally it is a good practice to free the file you are reading

      •  Now if you want to display all the contents within the array can use this code.

                            DO I=1 TO ARRAY.0

                                  SAY ARRAY.I

                                         END



<script type="text/javascript">

  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-33389906-1']);
  _gaq.push(['_trackPageview']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();

</script>

How To Create a Dataset In Rexx

Hi folks,

It becomes necessary for us to create dataset for many programming purpose.As creating a dataset using rexx is easy , I am just placing the code to create dataset in rexx.

Due to Security issues we are often allowed to create datasets only starting with the our TSO sign on ID. Thats's the reason why i have created the dataset with the TSO logon id and then i have later altered to the Dataset name which we actually wanted.

/*************** REXX at REXXPROGRAMMING.BLOGSPOT.COM***************/
USER_ID = USERID()
ACTUAL_PDS_NAME ='ACTUAL.PDS,NAME'
PDS_NAME_TO_ALTERED= USER_ID||".PDS.NAME "
   "ALLOCATE DATASET('"PDS_NAME_TO_ALTERED"') CATALOG LRECL (80),           BLKSIZE(27920) RECFM(F B) DSORG(PO) TRACKS SPACE(1 5) DIR(30)"

         "ALTER '" PDS_NAME_TO_ALTERED "' NEWNAME('"ACTUAL_PDS_NAME"')"

EXIT.


This Should result in Creating a Dataset Named 'userid(tso id).pds.name' and altered to 'actual.pds.name'



<script type="text/javascript">

  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-33389906-1']);
  _gaq.push(['_trackPageview']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();

</script>

How To Check If a Dataset Already Exist In REXX Programming

Folks,

       At times we are in need to know if few datasets already exist in HOST.It's a very easy piece of code that would help us to know if dataset exist or not.


/***************REXX AT REXXPROGRAMMING.BLOGSPOT.COM***************/

 IF SYSDSN("dataset.name") = "OK" THEN
    DO
            SAY "DATASET EXISTING"
    END
   ELSE
   DO
SAY "DATASET DOES NOT EXIST"

END
EXIT

where 'dataset,name' is the dataset to be checked for existence.



<script type="text/javascript">

  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-33389906-1']);
  _gaq.push(['_trackPageview']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();

</script>