Google
 

Trailing-Edge - PDP-10 Archives - BB-JF18A-BM - uetp/lib/icscbl.ctl
There are 20 other files named icscbl.ctl in the archive. Click here to see a list.
! ICSCBL
! Compile and run DIL Installation Tests for DECSYSTEM-20 COBOL
!
!  COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983, 1985.
!  ALL RIGHTS RESERVED.
!  
!  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED  AND
!  COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH
!  THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS  SOFTWARE  OR
!  ANY  OTHER  COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE
!  AVAILABLE TO ANY OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE
!  SOFTWARE IS HEREBY TRANSFERRED.
!  
!  THE INFORMATION IN THIS SOFTWARE IS  SUBJECT  TO  CHANGE  WITHOUT
!  NOTICE  AND  SHOULD  NOT  BE CONSTRUED AS A COMMITMENT BY DIGITAL
!  EQUIPMENT CORPORATION.
!  
!  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF
!  ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
!
! Facility: DIL-TEST
! 
! Edit History:
! 
! new_version (1, 0)
!
! Edit (%O'1', '14-Jan-83', 'Sandy Clemens')
! %(  Add the DIL Installation Verification batch control files
!     for the VAX, DECSYSTEM-20 and DECsystem-10 to the
!     library.  Files: ICSCBL.CTL (NEW), ICSF6.CTL (NEW),
!     ICSF7.CTL (NEW), ICSCBL.10-CTL (NEW), ICSF6.10-CTL (NEW),
!     ICSF7.10-CTL (NEW), ICSCOB.VAX-COM (NEW), ICSFOR.VAX-COM
!     (NEW), DILTHST.TXT(NEW) )%
!
! Edit (%O'2', '25-Jan-83', 'Sandy Clemens')
! %(  Add copyright and liability waiver to whatever needs it.
!     Files: ICSCBL.10-CTL, ICSCBL.CTL, ICSCOB.VAX-COM,
!     ICSF6.10-CTL, ICSF6.CTL, ICSF7.10-CTL, ICSF7.CTL,
!     ICSFOR.VAX-COM )%
!
! new_version (2, 0)
!
! Edit (%O'6', '1-May-84', 'Sandy Clemens')
! %(  Update the ICS control files to run the newest versions
!     of the ICS programs.  FILES:  ICSF7.CTL, ICSFOR.VAX-COM,
!     ICSCBL.CTL, ICSCOB.VAX-COM, DILTHST.TXT.  )%
!
! Edit (%O'11', '29-Jun-84', 'Sandy Clemens')
! %(  Clean up some of the ICS control files.   
!     FILES:  ICSCBL.10-CTL, ICSCBL.CTL, DILTHST.TXT
! )%
!
! Edit (%O'12', '17-Jul-84', 'Sandy Clemens')
! %(  Fix typo in ICSCBL.CTL comments.  )%
!
! Edit (%O'13', '27-Aug-84', 'Sandy Clemens')
! %( Reformat ICSCBL.CTL so that it's log file will look nice
!    in the DIL.DOC document.
! )%
!
! Edit (%O'15', '8-Oct-84', 'Sandy Clemens')
! %( Change comments in ICSCBL.10-CTL, ICSCBL.CTL, ICSF7.10-CTL and
!    ICSF7.CTL about making the valid login directory.  FILES:
!    ICSCBL.10-CTL, ICSF7.10-CTL, ICSCBL.CTL, ICSF7.CTL )% 
!==
!
! This control file compiles and runs the DIL Installation
! Verification Tests for DECSYSTEM-20 COBOL.  It is necessary
! for the program CD36T1.CBL to have the following directory:
!
!                  directory name: PS:<DIL-TEST>
!                        password: DIL-TEST
!
! If this  directory does  not exist  you must  EITHER 1)  create  the
! directory as  a  VALID  login  directory, or  2)  edit  the  program
! CD36T1.CBL to use a  valid login directory of  your choice and  edit
! this control file to  use the password for  the login directory  you
! have selected.   (NOTE:  The password  for  the login  directory  is
! requested by the program CD36T1, so you must change "DILTST" (below)
! to be the password for the login directory you select.)
!
! The programs included in this test stream use only the local network
! node, but  WILL  require the  use  of the  FAL  on the  local  node.
! Programs will fail with the DIT-NETOPERFAIL error if there is not  a
! FAL available.

! Compile the COBOL DECSYSTEM-20 installation verification
! tests.
@
@compile C36T2.CBL/COBOL
@compile CD36T1.CBL/COBOL/LANGUAGE-SWITCHES:"/STACK:2000"
@compile CT36T1.CBL/COBOL
@
! Link the COBOL DECSYSTEM-20 installation verification tests.
@
@link
*C36T2,SYS:DIL/SE/G
@save
@
@link
*CT36T1,SYS:DIL/SE/G
@save
@
@link
*CD36T1,SYS:DIL/SE,SYS:XPORT/SE/EXCLUDE:XFUNCT/G
@save
@
! Run the COBOL DECSYSTEM-20 installation verification tests.
@run C36T2
@
@run CT36T1
*This is data for CT36T1 for the first send
*This is data for CT36T1 for the second send
@run CD36T1
*4
*0
*DIL-TEST
*This is data for CD36T1 for writing to the remote file PS:<DIL-TEST>DAP.TST.