This dataset is named 'STORET.HELP.STNDESC'
and was last updated FEBRUARY 09, 1984

For additional information, TSO STORET users should issue

           HELP STNDESC

     The STNDESC program is a multi-purpose program, capable
of performing several different functions, depending on the
environment under which it was invoked, and the files and/or
DDNAMES supplied to it.
     In its most simple form, the program is known to users
as "PGM=INDEX," and performs the functions of station selection
and printing station descriptions.  These were its only abilities
when invoked by "SCAN" retrieval.
     The "INDEX" program is documented in an online "HELP" dataset
called 'STORET.HELP.PGM.INDEX'.  The CARDOUT option is fully
documented there.  Some of its important features follow.
     Since modification, PGM=INDEX has a new keyword, CARDOUT,
which causes the INDEX program to produce station descriptions
in ?01 card storage format, using ddname CARDOUT.  If the user
specifies the CARDOUT keyword, s/he must also supply a JCL DD
statement referring to the file for the card output.
     Such a JCL statement might look like this

  ./CARDOUT DD DISP=(NEW,CATLG),UNIT=DISK,
  ./  SPACE=(TRK,(10,10),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),
  ./  DSNAME=iiiaaaa.STORAGE.CARDS

     This program has further been modified so it can run under
TSO as a command, and can, as it does in the batch, read from
a valid STORET "hits" file, and print station descriptions.
A "hits" file can be created within PGM=RET by specifying the
SELECT option, and supplying a DD statement for file "CF",
directing output to a file in your user library.

     To save a hits file, the following run might be used:

  PGM=RET,PURP=305/STA,
  STC=51,CO=059,
  SELECT,
  ./iii      JOB (aaaa,Miii),STORET,TIME=2,PRTY=3
  **ROUTE  PRINT HOLD
  ./CF DD UNIT=DISK,DISP=(,CATLG),
  ./  SPACE=(TRK,(1,1)),DCB=BLKSIZE=2496,
  ./  DSN=iiiaaaa.HITS.FILE

Subsequent to the successful execution of the above STORET
run, a TSO user could interactively invoke the STNDESC
command to print station descriptions for all the STORET
sampling sites in the named state and county.  The necessary
commands are:

  ALLOC DDNAME(CF) DSNAME(HITS.FILE) SHR
  STNDESC

and the descriptions will print.  The program will sense that
it is running under TSO, and will pause at the end of each
page of output.  It will restart when the Carriage Return
is struck.  If "STOP" is entered, it will terminate when the
Carriage Return is struck.

     Allocation of the "hits" file (CF) is essential to this
mode of operation.  If the command is issued, and no hits file
is allocated, the program recovers as follows:

     If under TSO, prompt the terminal for an AGENCY code
                   and STATION number, and print the
                   description of that station (if found),
                   and repeat until user enters "STOP".
                   In many cases, this is all the user
                   needs or wants.
     If in batch,  read a control card using ddname CARDF,
                   with Agency code in col 1-8, and
                   STATION number in columns 9-23, and
                   print the description of that station
                   (if found) and repeat until all input
                   cards have been exhausted.

When a user simply enters

    %STNDESC

the program thus prompts for AGENCY-STATION pairs, and
retrieves descriptions.

     The program has two additional options, supplied
as optional keywords on the STNDESC command, or as
PARM field input in the batch.  They are:

    CARD  directs the program to format the station
          description for station storage (?01 format),
          and place the cards thus formed in the
          file defined by DDNAME CARDOUT.
    NOPRINT  directs the program to NOT print the
          usual text description of the station.

     If you specify NOPRINT, and omit CARD, you have asked
the program to do absolutely nothing, and it will.

     If you specify CARD, the command will request a data
set name for the card output.  The data-set need not exist
before using the command, but you may use any pre-existing
data-set with LRECL=80.  Specifying a data-set with LRECL
not 80 will fail the command with a PL/I error message.

     Assume that your TSO library contains a "hits"
file (as in the previous example) named HITS.FILE,
and another file called CARD.FILE which has a record-
length (LRECL) of 80, which may be over-written without
risk.  You have the following options.

  1. ALLOC DDNAME(CF) DSNAME(HITS.FILE) SHR
     STNDESC CARD
       will prompt for data-set for cards. You reply:
     CARD.FILE
       it will prompt NEW OR OLD, you reply:
     OLD
       it will print station descriptions of all stations in
       the designated hits file, as well as placing card
       format of all station descriptions in the designated
       card file. Will pause at the end of each page. If
       stopped, will produce cards for only stations printed.
       If interrupted (ATTN/INT), results will be
       unpredictable.

  2. ALLOC DDNAME(CF) DSNAME(HITS.FILE) SHR
     STNDESC CARD NOPRINT
       as in example 1. above, but no listing will occur
       on the terminal.

  3. STNDESC CARD    (This is the old COPYDESC capability)
       as in example 1. above, except that the
       user will be prompted for agency-station pair, and
       if the station is found, its description will be
       listed at the terminal, and simultaneously placed
       in CARD.FILE.  The sequence will repeat until the
       user enters "STOP".  If killed with the ATTN/INT,
       results will be unpredictable.

  NOTES:
       In all the above examples, the "CARD" output is placed in
       a dataset in your TSO library, ready to "%STORE" in STORET.
       Each dataset will consist of a "?START" card, a "?01" card,
       and sets of "A", "S", and other cards capable of reproducing
       the descriptions of the stations supplied.
       If created under TSO, the "A" card contains a fake unlocking key
       ("********" in columns 17-24) which must be changed before
       storage.  Each "S" card has control code "CXS" in columns 78-80,
       correct only for a STORET "CHANGE" transaction.

       CARDOUT files created in the batch using PGM=INDEX may contain
       information from the retrieval run stream.  For example, if
       a "UK=kkkkkkk," instruction (specifying the unlocking key) is
       found, the "A" card will have the unlock key filled in.
       You should see 'STORET.HELP.PGM.INDEX' for full details.
