RE: Tape Drives Do Not Vary On at IPL

Got back from vacation yesterday...
You just now noticing this?
Shoot, we've had this for a while. We have a SQLRPGLE program all in free form, using sql services, which runs with some programs we run at IPL time which beats it into submission.
Had me confused with the title though. It's media libraries. Drives appearing in
WRKCFGSTS CFGTYPE(*DEV) CFGD(*TAP)
We do NOT want varied on as they tie up the resources assigned to the media library. The only time we use the *TAP is for IPL from tape. Something best not experienced on a regular basis.

Want that program? RDYMEDLIB.
Code snippet:
dow sqlstate='00000';
exec sql
Fetch ResourceCursor into :Media_Library_Info.Resource_Name,
:Media_Library_Info.Resource_Status,
:Media_Library_Info.Resource_Allocation_Status;
select;
When sqlstate='02000'; // All rows have been fetched
iter;
When sqlstate<>'00000'; //
sqlstate=sqlstate; // debugging
When Media_Library_Info.Resource_Allocation_Status='DEALLOCATED';
cmd='VRYCFG CFGOBJ(' + %trim(Media_Library_Info.Device_Name) +
') CFGTYPE(*MLBRSC) STATUS(*UNPROTECTED) RSRCNAME(' +
%trim(Media_Library_Info.Resource_Name) +
')';
callp QCMDEXC(Cmd:%len(Cmd));
ENDSL;
enddo;

Rob Berendt