   A S K V T O C  -  Platform: MVS routine


   A routine to query DASD VTOC for a entry.


   In this distribution file (ASKVTOC.ZIP) there is:

ASKVTOC.OBJ             executable for MVS mainframe, in obj form
ASKVTOC.HIL             Hilmas source of this file
README.TXT              this help file 
LINKEDIT.JCL            job example to install ASKVTOC
MAN_ENG.TXT             manual in English
MAN_ITA.TXT             manual in Italian
TESTASK.OBJ             Demo of use of ASKVTOC in assembler
TESTASK.HIL             Source Hilmas of demo



OBJ installation:

- Create in MVS a sequential file, for example 'MYUSER.PROGRAM.OBJ'
  with RECFM=FB and LRECL=80, for example of 1 cylinder.

- SEND obj module from PC to MVS in this file in BINARY form, with your 
  3270 emulation; the most important thing is a binary transfer (therefore 
  without ASCII CRLF) in a file with record length of 80 bytes.
  Use this PC command (in a PC with IBM/PCOMM 4.1 3270 emulation installed):

     SEND ASKVTOC.OBJ 'MYUSER.PROGRAM.OBJ'

- Prepare a Job to Linkedit transferred obj in a load library;
  use LINKEDIT.JCL as example: fit this JCL to your needs
  changing library names

- Submit linkedit job to create load module; output library must be a
  load library used in your compilation job.

- Recall this routine in your Cobol program as explained in manual;
  then linkedit your program with this routine, verifying that 
  this load library is included in your compilation procedure.


Program instruction:

    See the manual for examples in COBOL of the use of this routine.
Here we want explain the demo in Hilmas enclosed in distribution;
TestAsk is a very simple program that display use of ASKVTOC and ASKCAT
from an assembler program. See source TESTASK.HIL.

    To install executable (OBJ) of this demo you must do the same things 
you have done for ASKVTOC; pay attention that the linkedit library SYSLIB
(in the linkedit job) must already contains routines ASKVTOC and ASKCAT
that must both be linked together with TESTASK. In others words, to
install TestAsk you must have installed ASKCAT, too.

    To run demo TESTASK in your ISPF/TSO session write:
       TSO TESTASK         (if library of this executable is in linklist)
or, from =3.4 menu option, enter 'M' of the load library containing
TestAsk and, left to executable, write CALL <Enter>.

    TestAsk show an interactive screen similar to this:


       --- TEST OF "ASKCAT" AND "ASKVTOC" ROUTINES. ---                             
                                                                                    
       1 - TEST "ASKCAT"  TO QUERY IF A FILE IS CATALOGED.                          
       2 - TEST "ASKVTOC" TO QUERY IF THERE IS A FILE ON A DISK.                    
                                                                                    
       CHOOSE BETWEEN 1 AND 2:                                                      
     2                                                                              
                                                                                    
       WRITE FILE NAME:                                                             
     CRPROUA.SRCHFOR.LIST                                                           
                                                                                    
                                                                                    
       WRITE VOLUME NAME:                                                           
     SMCOC1                                                                         
                                                                                    
      RC     =   0                                                                  
      DSNAME = CRPROUA.SRCHFOR.LIST                                                 
      THIS 80 BYTES RECORD IS "AREAOUT":                                            
      --------------------------------------------------------------------
      TRKPRI   SEC ORG FM EXTN LRECL BSIZE SMS  % DATACRE DATAEXP DATAACC           
      --------------------------------------------------------------------
           1    25  PS FBA   2   133 13566 SMS  1100.001  00.000  00.060            
                                                                                    
      ***                                                                           

