Appendix A. Supporting information 475
Installation default RPTSTG(OFF)
Installation default NORTEREUS
Installation default RTLS(OFF)
Installation default NOSIMVRD
Installation default STACK(131072,131072,BELOW,KEEP,524288,131072)
Installation default STORAGE(NONE,NONE,NONE,8192)
Installation default TERMTHDACT(TRACE,,96)
Installation default NOTEST(ALL,"*","PROMPT","INSPPREF")
Installation default THREADHEAP(4096,4096,ANYWHERE,KEEP)
Installation default
THREADSTACK(OFF,4096,4096,BELOW,KEEP,131072,131072)
Installation default TRACE(OFF,4096,DUMP,LE=0)
Installation default TRAP(ON,SPIE)
Installation default UPSI(00000000)
Installation default NOUSRHDLR(,)
Installation default VCTRSAVE(OFF)
Installation default VERSION()
Installation default XPLINK(OFF)
Installation default XUFLOW(AUTO)
Convert multiple sequential files to members of a PDS
Example A-5 depicts the REXX code that you can use (or modify for your use) to
collect multiple sequential files and copy the contents into members of a PDS.
Example: A-5 Sequential files to members of a PDS
/* Rexx */
/**********************************************************************/
/* Exec: Seq2PDS1 */
/* Function: Create PDS members from multiple sequential files... */
/* History: 08/07/1997 - LMK - Created */
/* 07/17/2001 - LMK - Modified for RedBook samples... */
/**********************************************************************/
/* Note: Data set/member name pattern is hardcoded - modify as needed!*/
/**********************************************************************/
Parse Upper Arg Debug DbugMode
/*
Invoke debugging features when asked...
*/
Attention: This code was written for
Introduction to the IBM Problem
Determination Tools
, SG24-6296-00. The member name must appear as a
qualifier in the data set name for this routine to work.