MVS Jan 2005.p65 - CBT Tape

* ARG(1) - Storage Address */
/*********************************************************************/
ptr: return c2d(storage(d2x(arg(1)),4))
/*********** @REFRESH END PTR 2ØØ2/Ø7/13 15:45:36 *************/
/*********** @REFRESH BEGIN STG 2ØØ2/Ø7/13 15:49:12 *************/
/* STG - Return the data from a storage location */
/*-------------------------------------------------------------------*/
/* ARG(1) - Location */
/* ARG(2) - Length */
/*********************************************************************/
stg: return storage(d2x(arg(1)),arg(2))
/*********** @REFRESH END STG 2ØØ2/Ø7/13 15:49:12 *************/
/*********** @REFRESH BEGIN VIODD 2ØØ4/Ø6/Ø8 11:17:36 *************/
/* VIODD - EXECIO a stem into a sequential dataset */
/*-------------------------------------------------------------------*/
/* VIODD - The member to create */
/* VIOLRECL - The LRECL for the VIODD (defaults to 8Ø) */
/*********************************************************************/
viodd: module = 'VIODD'
if wordpos(module,probe) Ø then trace 'r'; else trace 'n'
parse arg sparms
push trace() time('L') module 'From:' sigl 'Parms:' sparms
call modtrace 'START' sigl
arg viodd violrecl viorecfm
if viodd = '' then call rcexit 88 'VIODD missing'
if violrecl = '' then violrecl = 8Ø
if viorecfm = '' then viorecfm = 'F B'
/*********************************************************************/
/* If DD exists, FREE it */
/*********************************************************************/
if listdsi(viodd 'FILE') = Ø then
call tsotrap "FREE F("viodd")"
/*********************************************************************/
/* ALLOCATE a VIO DSN */
/*********************************************************************/
call tsotrap "ALLOC F("viodd") UNIT("@vio") SPACE(1 5)",
"LRECL("violrecl") BLKSIZE(Ø) REUSE",
"RECFM("viorecfm") CYLINDERS"
/*********************************************************************/
/* Write the stem variables into the VIO DSN */
/*********************************************************************/
call tsotrap "EXECIO * DISKW" viodd "(STEM" viodd". FINIS"
/*********************************************************************/
/* DROP the stem variable */
/*********************************************************************/
interpret 'drop' viodd'.'
pull tracelvl . module . sigl . sparms
call modtrace 'STOP' sigl
interpret 'trace' tracelvl
return
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
71