// JOB DMSLIST                 LIST THE DMS/90 VSB JOBS                 LST00000
// DVC 20   // LFD PRNTR                                                LST00010
// WRTBIG 'JOB$        ','DAT$        ','TIM$        ','BEGIN       '   LST00020
// EXEC LIBS                                                            LST00030
/$                                                                      LST00040
 FIL D0=$Y$JCS                                                          LST00050
 COP.D D0,S,DMSBUILD                                                    LST00060
 COP.D D0,S,DMSCOMP                                                     LST00070
 COP.D D0,S,DMSEXEC                                                     LST00080
 COP.D D0,S,DMSSCR                                                      LST00090
 COP.D D0,S,DMSLIST                                                     LST00100
/*                                                                      LST00110
// WRTBIG 'JOB$        ','DAT$        ','TIM$        ','END         '   LST00120
/&                                                                      LST00130
