d$ !**************************************************************** $ ! ,$ ! ISSZ9990.COM USER NAME : ISS STAFF [ISS] $ ! $ ! Date Initials Description X$ ! $ ! 27 Jul 81 BLJ Implementation of Logical Standards $ ! 26 Aug 81 BLJ Enable DEASSIGN on change default $ ! 23 Mar 83 BLJ Trap Network-associated errors $ ! L$ !**************************************************************** $ ! $ ! This procedure changes the default device/directory x$ ! by application area logical assignment, deletes previous $ ! local assignments and invokes the procedure to specify @$ ! override assignments for production and testing files. $ ! $ !**************************************************************** l$ ! $ ! Set Logical Device/Directory on Logical Specification 4$ ! $Begin: $ Set Default D'P1':['P1'] ` $ ! $ ! Deassign Previous Local Logical Assignments ( $ ! $ !DEASSIGN/ALL $ ! T $ ! Invoke Default Logical Assignments $ !  $ Set Message/NoFacility/NoIdentification/NoSeverity/NoText $ On Error THEN Write Sys$Output "%Iss-I-Nolog, No Logicals Assigned" $ @Logical/Output=NLA0: H $ Set Message/Facility/Identification/Severity/Text $ ! $ !**************************************************************** t$ ! TERMINATE USER TERMINAL SESSION $ !**************************************************************** <$ !