VMS / OpenVMS DCL command shell for x86 Linux and Windows

SYS$LIBRARY:SYLOGIN.COM

SYS$LOGIN:LOGIN.COM

LOGIN.COM

Note: UNIX is a Sector7 extension to the VMS DCL syntax to allow Unix/Linux commands to be used from DCL

Sector7 has also added f$vms_to_unix() and f$_unix_to_vms() to convert between VMS and Linux file specifications

$! write sys$output "SYS$LOGIN:LOGIN.COM executing..."
$ say :=="write sys$output"
$ ARGC :=="unix argc"
$ BASH :=="unix bash"
$ BIG :=="unix figlet"
$ CLEAR :=="unix clear"
$ DATE :=="unix date"
$ GDB :=="unix gdb"
$ MAKE :=="unix make"
$ MAN :=="unix man"
$ QDBG :=="unix qdebug"
$ FIND :=="$find.exe"
$ VALUE :=="unix value"
$ MENU :=="@sys$login:[.src.vxtools85.testsuite.dcl]jspmenu.com"
$! MENU :=="@[.testsuite.dcl]jspmenu.com"
$ SBM :== "SUBMIT/NOPRINTER/NONOTIFY"
$ cli :=="unix echo $PPID"
$! BIG "VMS -or- Linux?"
$! BIG 'f$getjpi("","username")
$ vdb:=="unix gdb -x scan.gdb vxscan.exe"
$! say "active cpus.: ",f$getsyi("activecpu_cnt")
$! say "architecture: ",f$getsyi("arch_name")
$! say "arch flag...: ",f$getsyi("archflag")
$!
$! UAF = F$PARSE("SYSUAF","SYS$SYSTEM:.DAT")
$!
$! CLS :== TYPE/PAGE NL:
$! set prompt="''f$environment("default")' $ "
$! PIPE CC/VERSION | (READ SYS$PIPE hdr ; DEFINE/JOB/NOLOG hdr &hdr )
$!
$! pipe show system | search sys$input opcom | (read sys$input pid ;
$! pid=f$element(0," ",pid) ; define/system opcom_pid &pid)
$! show log opcom_pid
$! "OPCOM_PID" = "0000020B" (LNM$SYSTEM_TABLE)
$!
$ time_stamp = f$time()
$ current_date = f$cvtime("''time_stamp'","absolute","date")
$ current_day = f$cvtime("''current_date'",,"weekday")
$ off_set = 1
$ if current_day .eqs. "Friday" then off_set = 3
$ next_day = f$cvtime("''current_date'+''off_set'-",,"weekday")
$ write sys$output "Enjoying ''current_day' ... can it wait until ''next_day'?"

#4 ..32.. IntegrationServer::/Users/jameshale: DCL

Sector7 VX/DCL 8.5-7 (Feb 25 2020 12:35:54)
Copyright (C) 1985-2020 Sector 7 USA LLC.
All Rights Reserved
Default Release Configuration

RUN LOGIN.COM

Enjoying Tuesday ... can it wait until Wednesday?

$ say "active cpus.: ",f$getsyi("activecpu_cnt")

active cpus.: 8

$ say "architecture: ",f$getsyi("arch_name")

architecture: IA64

$ date (Symbol for "UNIX DATE")

Tue Feb 25 14:12:35 CST 2020 

$ show time

25-FEB-2020 16:12:48.69

VMS PRINT And BATCH Queue Management

$ start/queue/manager

$ show queue/full/all

Generic batch queue FEED_0001, stopped
    /BASE_PRIORITY=4 /GENERIC=(GRID_0001,GRID_0002,GRID_0003,GRID_0004,GRID_0005,
    GRID_0006,GRID_0007,GRID_0008,GRID_0009,GRID_0010) /OWNER=[SYSTEM]
    /PROTECTION=(S:M,O:D,G:R,W:S)
    
Generic batch queue FEED_0002, stopped
    /BASE_PRIORITY=4 /GENERIC=(GRID_0011,GRID_0012,GRID_0013,GRID_0014,GRID_0015,
    GRID_0016,GRID_0017,GRID_0018,GRID_0019,GRID_0020) /OWNER=[SYSTEM]
    /PROTECTION=(S:M,O:D,G:R,W:S)
    
Batch queue GRID_0001, stopped
    /BASE_PRIORITY=4 /NOENABLE_GENERIC /JOB_LIMIT=2 /OWNER=[SYSTEM]
    /PROTECTION=(S:M,O:D,G:R,W:S)
    
Batch queue SYS$BATCH, idle
    /BASE_PRIORITY=4 /NOENABLE_GENERIC /JOB_LIMIT=1 /OWNER=[SYSTEM]
    /PROTECTION=(S:M,O:D,G:R,W:S)
    [Cropped]

$ START/QUEUE SYS$BATCH
$ START/QUEUE GRID_0001
$ SHOW QUEUE/FULL/ALL

Generic batch queue FEED_0001, stopped
    /BASE_PRIORITY=4 /GENERIC=(GRID_0001,GRID_0002,GRID_0003,GRID_0004,GRID_0005,
    GRID_0006,GRID_0007,GRID_0008,GRID_0009,GRID_0010) /OWNER=[SYSTEM]
    /PROTECTION=(S:M,O:D,G:R,W:S)
          
Generic batch queue FEED_0002, stopped
    /BASE_PRIORITY=4 /GENERIC=(GRID_0011,GRID_0012,GRID_0013,GRID_0014,GRID_0015,
    GRID_0016,GRID_0017,GRID_0018,GRID_0019,GRID_0020) /OWNER=[SYSTEM]
    /PROTECTION=(S:M,O:D,G:R,W:S) 
          
Batch queue GRID_0001, idle
    /BASE_PRIORITY=4 /NOENABLE_GENERIC /JOB_LIMIT=2 /OWNER=[SYSTEM]
    /PROTECTION=(S:M,O:D,G:R,W:S)
          
Batch queue SYS$BATCH, idle
    /BASE_PRIORITY=4 /NOENABLE_GENERIC /JOB_LIMIT=1 /OWNER=[SYSTEM]
    /PROTECTION=(S:M,O:D,G:R,W:S)
    [CROPPED]

$ show system

VX/RT v8.5-7  on node INTEGRATIO

Pid      Name            UIC           Mode        TTY          User     Image Name
00009b6d JAMESHALE       [   20,  502] INTERACTIVE LTA9:        JAMESHAL dcl
00009d08 LCKMGR_SERVER   [   20,  502] INTERACTIVE              JAMESHAL lckmgr
0000a028 JSPCTL          [    1,    4] BATCH                    ROOT     jspctl
0000a028 SYS$BATCH       [    1,    4] BATCH                    ROOT     qmgr
0000a028 GRID_0020       [    1,    4] BATCH                    ROOT     qmgr

 

VMS Device Table Compatibility

$ show device/all

Device           ALLOC   ASSIGN  ATTACH  DMT  Type
SYS0            000000       N       N    N  DISK /SYS0
SYS1            000000       N       N    N  DISK /SYS1
BIGDISK         000000       N       N    N  DISK /Volumes/s7
$1$DIA0         000000       N       N    N  DISK /
$1$DIA1         000000       N       N    N  DISK /shared
$1$DIA2         000000       N       N    N  DISK /var/spool/vxrt
H               000000       N       N    N  DISK /home
S7              000000       N       N    N  DISK /Volumes/s7
USERS           000000       N       N    N  DISK /Volumes/s7/Users
T               000000       N       N    N  DISK /Volumes/CaseSensitive
U               000000       N       N    N  DISK /Users
V               000000       N       N    N  DISK /Volumes
X               000000       N       N    N  DISK /opt
SCRATCH         000000       N       N    N  DISK /var/spool/vxrt/tmp
NL              000000       N       N    N    NL /dev/null
NLA0            000000       N       N    N    NL /dev/null
LP              000000       N       N    N    LP /dev/lp0
OPER            000000       N       N    N    LP /dev/log
LTA9            039789       Y       Y    N  TERM /dev/ttys006  (This TTY)

$ write sys$output F$GETDVI("TT","FULLDEVNAM")

_LTA9:

$ write sys$output F$GETDVI("TT","DEVNAM")

LTA9:

$ write sys$output F$GETDVI("TT","TT_PHYDEVNAM")

/dev/ttys006

$ write sys$output f$getdvi("TT","TT_PAGE")

24

$ write sys$output f$getdvi("TT","DEVBUFSIZ")

80

Notice that VX/DCL has translated /Users to U: by indexing in the device table)

VMS / Linux filespec Conversion

$ show def

U:[jameshale]

$ say f$vms_to_unix("U:[jameshale]")

/Users/jameshale/

Notice that the device U has been expandxed to [USERS] and merged (as VMS) to [Users.JAMESHALE] WHich translates to a Linux file spec /Users/jamshale

$ say f$unix_to_vms("/Users/jameshale/")

U:[jameshale]

VMS Lexicals

$ say f$setprv("ALL")

PALL = "NOCMKRNL,NOCMEXEC,NOSYSNAM,NOGRPNAM,NOALLSPOOL,NODETACH,NODIAGNOSE,NOLOG_IO,NOGROUP,NOACNT,NOPRMCEB,NOPRMMBX,NOPSWAPM,NOALTPRI,NOSETPRV,NOTMPMBX,NOWORLD,NOMOUNT,NOOPER,NOEXQUOTA,NONETMBX,NOVOLPRO,NOPHY_IO,NOBUGCHK,NOPRMGBL,NOSYSGBL,NOPFNMAP,NOSHMEM,NOSYSPRV,NOBYPASS,NOSYSLCK,NOSHARE,NOUPGRADE,NODOWNGRADE,NOGRPPRV,NOREADALL,NOIMPORT,NOAUDIT,NOSECURITY"

 

 

$type test_search_lists.com

$ CHARS="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
$ LMAX=f$length(CHARS)
$ write sys$output "list ''CHARS' ... max == ''LMAX'"
$ on error then goto FIRSTDIR
$ cre/dir sys$login:[.FILES]
$FIRSTDIR:
$ on error then goto NEXTDIR
$ LNUM=0
$NEWDIR:
$ LNAM=f$fao("!AS!AS", "REP", f$extract( LNUM, 1, CHARS ))
$ LDIR=f$fao("!AS!AS", "REPORT", f$extract( LNUM, 1, CHARS ))
$ NDIR="sys$login:[.FILES.''LDIR']"
$! write sys$output NDIR
$! write sys$output "define ''LNAM' ''NDIR'"
$ define 'LNAM 'NDIR
$ cre/dir 'NDIR
$ FNAM=f$fao("!AS!AS!AS", NDIR, f$extract( LNUM, 1, CHARS ), "FILE.TXT")
$ open/write FD 'FNAM
$ write FD "Hello World"
$ close FD
$NEXTDIR:
$ if LNUM .EQ. LMAX-1 then goto SETUP
$ LNUM = LNUM + 1
$ goto NEWDIR
$SETUP:
$ on error then goto EXITING
$ write sys$output "dir sys$login:[.FILES...]"
$ dir sys$login:[.FILES...]
$ def REP0 SYS$LOGIN:[.FILES],REPA,REPB,REPC,REPD,REPE,REPF,REPG,REPH,REPI,REPJ, -
           REPK,REPL,REPM,REPN,REPO,REPP,REPQ,REPR,REPS,REPT, -
           REPU,REPV,REPW,REPX,REPY,REPZ
$ write sys$output ""
$ write sys$output "dir REP0"
$ dir rep0
$ write sys$output ""
$ write sys$output "dir REP0:*.TXT"
$ dir REP0:*.TXT
$ LNUM=0
$NEXTCHAR:
$ CHAR=f$extract( LNUM, 1, CHARS )
$ write sys$output ""
$ write sys$output "dir REP0:''CHAR'*.TXT"
$ dir REP0:''CHAR'*.TXT
$ if LNUM .EQ. LMAX-1 then goto EXITING
$ LNUM = LNUM + 1
$ goto NEXTCHAR
$EXITING:
$ write sys$output ""
$ write sys$output "EXITING..."

$ @test_search_lists.com

list ABCDEFGHIJKLMNOPQRSTUVWXYZ ... max == 26
DCL$CREATE: sys$login:[.FILES] already exists
DCL$CREATE: sys$login:[.FILES.REPORTA] already exists
DCL$CREATE: sys$login:[.FILES.REPORTB] already exists
DCL$CREATE: sys$login:[.FILES.REPORTC] already exists
DCL$CREATE: sys$login:[.FILES.REPORTD] already exists
DCL$CREATE: sys$login:[.FILES.REPORTE] already exists
DCL$CREATE: sys$login:[.FILES.REPORTF] already exists
DCL$CREATE: sys$login:[.FILES.REPORTG] already exists
DCL$CREATE: sys$login:[.FILES.REPORTH] already exists

[ TURNCATED ]

dir sys$login:[.FILES...]

Directory U:[jameshale.FILES.REPORTA]

AFILE.TXT;1

[ TRUNCATED ]

Directory U:[jameshale.FILES]

REPORTA.DIR;1       REPORTB.DIR;1       REPORTC.DIR;1       REPORTD.DIR;1
REPORTE.DIR;1       REPORTF.DIR;1       REPORTG.DIR;1       REPORTH.DIR;1
REPORTI.DIR;1       REPORTJ.DIR;1       REPORTK.DIR;1       REPORTL.DIR;1
REPORTM.DIR;1       REPORTN.DIR;1       REPORTO.DIR;1       REPORTP.DIR;1
REPORTQ.DIR;1       REPORTR.DIR;1       REPORTS.DIR;1       REPORTT.DIR;1
REPORTU.DIR;1       REPORTV.DIR;1       REPORTW.DIR;1       REPORTX.DIR;1
REPORTY.DIR;1       REPORTZ.DIR;1

[ TRUNCATED ]

DCL CONTROL

$ TYPE GOSUB.COM

$ GOSUB LABEL1
$ EXIT
$ LABEL1:
$   write sys$output "Im here LABEL 1"
$   gosub LABEL2
$ return
$ LABEL2:
$   write sys$output "Im here LABEL 2"
$   gosub LABEL3
$ return
$ LABEL3:
$   write sys$output "Im here LABEL 3"
$   return

$ @GOSUB

Im here LABEL 1
Im here LABEL 2
Im here LABEL 3

Calling Linux utilities via DCL symbols

$ BIG "Linux or VMS"

 _     _                                __     ____  __ ____
| |   (_)_ __  _   ___  __   ___  _ __  \ \   / /  \/  / ___|
| |   | | '_ \| | | \ \/ /  / _ \| '__|  \ \ / /| |\/| \___ \
| |___| | | | | |_| |\>  \<  | (_) | |      \ V / | |  | |___) |
|_____|_|_| |_|\__,_/_/\_\  \___/|_|       \_/  |_|  |_|____/