/* REXX ****************************************************/
/* BLABELI EXEC -- Example VM procedure for labeling tapes */
/*                 to be used with Bacula in IBM SL label  */
/*                 mode.                                   */
/*                                                         */
/* Author:         David Boyes <dboyes@sinenomine.net>     */
/*                                                         */
/* Prereq:         Tape drive attached at virtual addr     */
/*                 181 (TAP1).                             */
/*                                                         */
/*                 Blank tape inserted in drive.           */
/*                                                         */
/*                 External file BACULA DATA (used as a    */
/*                 dummy input file for MOVEFILE, since    */
/*                 MOVEFILE insists on having a real file  */
/*                 for input if we want actual output      */
/*                 by the CMS OS sim routines).            */
/*                                                         */
/* Usage:          BLABELI volumeid ownerid                */
/*                                                         */
/*                 where:                                  */
/*                                                         */
/*                 volumeid = IBM SL volume id to be       */
/*                     written in VOL1 label and made      */
/*                     visible to the library automation   */
/*                     and other OSes.                     */
/*                                                         */
/*                 ownerid  = local userid to "own" the    */
/*                     tape from the TMS viewpoint. Used   */
/*                     to validate mount requests and for  */
/*                     TMS housekeeping purposes.          */
/*                                                         */
/* Maintenance Log:                                        */
/*                                                         */
/* 16 Feb 2005 --  DB: Created procedure and released to   */
/*                     Bacula development list.            */
/*                                                         */
/*                                                         */
/*                                                         */
/*                                                         */
/*                                                         */
/*                                                         */
/***********************************************************/
 
/***********************************************************/
/* Parse command line arguments                            */
/***********************************************************/
 
arg volser owner
 
/***********************************************************/
/* Rewind tape and write IBM  VOL1 label and logical EOT   */
/***********************************************************/
 
'TAPE REW (TAP1'
'TAPE WVOL1' volser owner '( TAP1 SL'
'TAPE WTM 2'
 
/***********************************************************/
/* Rewind tape and write Bacula IBM  label signature file  */
/* (HDR1 file containing BACULA.DATA FID as 1st file on    */
/* tape). Note that for some reason the LABELDEF command   */
/* requires FIDs longer than 8 chars to be passed via the  */
/* program stack, even if it would not cause the resulting */
/* command to exceed the 255 char maximum. This is (IMHO)  */
/* an APARable bug, but c'est la vie.                      */
/***********************************************************/
 
'TAPE REW ( TAP1'
'SET CMSTYPE HT'  /* supress output to hide prompt for FID */
'FILEDEF INMOVE DISK BACULA DATA A'
'FILEDEF OUTMOVE TAP1 SL ( RECFM F LRECL 80'
queue "BACULA.DATA"
'LABELDEF OUTMOVE FID ? VOLID' volser 'VOLSEQ 1 FSEQ 1'
'MOVEFILE'
'SET CMSTYPE RT'  /* resume normal console output          */
 
/***********************************************************/
/* Print nice exit message and exit                        */
/***********************************************************/
 
say "Labeled IBM SL" volser "for use with Bacula."
exit