aaaaaaaaaaaaaaaaaaaaaa
1234567890 This is a fixed 80 characters width: do not change this text! 4567890
VIEW xml#1.d090227.exec
Command ===> _________________________________________________
******
******
***************************** Top of Data ******************************
/* REXX exec to convert my libs to XMIT format (Single lib version) */
/*** trace ?r ***************************************************** \| *
* (C) Copyright Robert AH Prins, 2007-2007 *
************************************************************************
* ------------------------------------------------------------------ *
* | Date | By | Remarks | *
* |------------+------+----------------------------------------------| *
* | | | | *
* |------------+------+----------------------------------------------| *
* | 2007-09-24 | RAHP | Initial version | *
* |------------+------+----------------------------------------------| *
************************************************************************
* XML#1 is a REXX exec to convert my private libraries to XMIT format *
* for easy transfer from one site to the next. It's mainly intended as *
* correction tool and uses XML as its backend. *
***********************************************************************/
parse source source
parse value source with . . moi .
dsn.1 = 'tald'
dsn.2 = 'tall'
dsn.3 = 'tals'
dsn.4 = 'talt'
dsn.0 = 4
xml#1 = ''
do i = 1 to dsn.0
xml#1 = xml#1 || dsn.i'/'
end
"ispexec vput (xml#1) shared"
"xml"
**************************** Bottom of Data ****************************