/*=========( Alloc file if dsname available )===========*/
AllocIt: Procedure
Parse Arg dsn, ddn, disp

If dsn = '' Then Return 4
If ddn = '' Then Return 8
If disp = '' Then disp = "SHR"

x = Outtrap( "msg." )
"ALLOCATE FI("ddn") DA("dsn")" disp "REUSE"
x = Outtrap( "OFF" )
If rc > 0 Then Do
  Do i = 1 To msg.0
    Say msg.i
  End
  Say "Allocation" dsn "to" ddn "failed. rc="rc )
  Exit rc
End
Say Strip( dsn,, "'" ) "allocated to" ddn 

Return rc
/*** End AllocIt ***/