/* DUMPIT EXEC */
address command
signal on error

'SET LANGUAGE ( ADD FSI USER'

A2ZUPPER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
a2zlower = 'abcdefghijklmnopqrstuvwxyz'
where = "flexescli localhost vm44"
 
DIDISK = X2D('1000');
DFDISK = X2D('10A8');
do DDISK = DIDISK to DFDISK
   Disk = D2X(DDISK)
   lcdisk = Translate(Disk,a2zlower,A2ZUPPER)
   say Disk lcdisk
   Text = Diagrc(8,'QUERY' Disk)
   parse var Text . . . . . . Volid .
   say Disk "=" Volid
   command="/usr/flexes/test-create-mount-tape.sh" lcdisk
   say "Executing host command: "command
   'FSIHOST stem devresp ( CMD ' command
   If devresp.0 = 2 & devresp.2 = "YES" Then Do
       'CP ATT 580 * 181'
       'CP DEF MDISK F000   0 END' Volid
       'TAPE REW'
       'DDR DUMPIT DDR A'
       'CP DET F000'
       'CP DET 181'
       command = "echo mount 580 OFFLINE | "where
       say "Executing host command: "command
       'FSIHOST stem devresp ( CMD ' command
       say "Compressing tape of "lcdisk"..."
       command = "gzip /faketape/"lcdisk".aws"
       say "Executing host command: "command
       'FSIHOST stem devresp ( CMD ' command
       say 'Waiting for gzip to complete...'
       devresp.0 = 2
       devresp.1 = "INITIAL STATE"
       devresp.2 = "NO"
       command = "/usr/flexes/test-gzip-done.sh "lcdisk
       Do While devresp.2 = "NO"
           'FSIHOST stem devresp ( CMD ' command
           If devresp.2 = "NO" Then Do
               'CP SLEEP 10 SEC'
           End
       End
    End
    Else Do
        Say "Host command failed:"
        Say devresp.1
        Exit 1
    End
end
exit 0
 
ERROR:
   Retc = Rc
   'CP DET F000'
   'CP DET 181'
exit Retc