[SWEXA.WRK]DIRECTORIES.COM_SRC

$       sav_vfy = 'f$verify(0)'
$ !++
$ !
$ !  DCL command procedure:
$ !     DIRECTORIES
$ !
$ !  Purpose:
$ !     Create the various SysWorks Examples directories
$ !
$ !  Parameter:
$ !     P1 = Environment code (optional)
$ !
$ !  Notes:
$ !     Other sources with a list of directories
$ !     (which must be kept in synch) include:
$ !         LOGICALS.COM_SRC
$ !         SECURE.COM_SRC
$ !
$ !  Appends:
$ !     %APPEND SWADM_WRK_DIR:SWADM_SUB_SUBDIRECTORY_FUNCTIONS
$ !
$ !  Copyright:
$ !!    Copyright © 2005 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     28-Apr-2005 by Simon L. Jackson
$ !         Initial version
$ !
$ !--
$
$       gosub swadm_sub_setup_create_subdirectory
$
$       credir  [swexa.adalib'dir_arc']
$
$       exit 1 + 0*f$verify(sav_vfy)