There is a TERSE program available on VSE...I have only tested it to make sure it does indeed run. I have successfully packed a library.
To get help, run this:
* $$ JOB JNM=MCRINTRS,DISP=D,CLASS=S
* $$ LST DISP=D,CLASS=R,JSEP=0,RBS=0,DEST=(ATL01J2,IOF)
* $$ PUN DISP=D,CLASS=R,DEST=(ATL01J2,IOF)
* $$ SLI C.RESET
// JOB MCRINTRS
// OPTION LOG,LOGSRC,NODUMP
// ASSGN SYS005,SYSRDR
// ASSGN SYS006,SYSPCH
// ASSGN SYS007,SYSLST
// EXEC TERSE,PARM='-H'
/*
/&
* $$ EOJ
To pack, try this:
* $$ JOB JNM=MCRINTRS,DISP=D,CLASS=S
* $$ LST DISP=D,CLASS=R,JSEP=0,RBS=0,DEST=(ATL01J2,IOF)
* $$ PUN DISP=D,CLASS=R,DEST=(ATL01J2,IOF)
* $$ SLI C.RESET
// JOB MCRINTRS
// OPTION LOG,LOGSRC,NODUMP
// ASSGN SYS005,SYSRDR
// ASSGN SYS006,SYSPCH
// ASSGN SYS007,SYSLST
// EXEC TERSE,PARM='DD:HR0115.SFINSRC(PCV3DZ.C) -
DD:HR0115.SFINSRC(TERSE.C)'
/*
/&
* $$ EOJ
To unpack try this:
* $$ JOB JNM=MCRINTRS,DISP=D,CLASS=S
* $$ LST DISP=D,CLASS=R,JSEP=0,RBS=0,DEST=(ATL01J2,IOF)
* $$ PUN DISP=D,CLASS=R,DEST=(ATL01J2,IOF)
* $$ SLI C.RESET
// JOB MCRINTRS
// OPTION LOG,LOGSRC,NODUMP
// ASSGN SYS005,SYSRDR
// ASSGN SYS006,SYSPCH
// ASSGN SYS007,SYSLST
// EXEC TERSE,PARM='DD:HR0115.SFINSRC(TERSE.C) -
DD:HR0115.SFINSRC(PCV3DZ.C)'
/*
/&
* $$ EOJ
Again, I just ran these to see if the program would run. It does run. I
have not tried packing a whole library or anything substantial yet.
Hope this helps!
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
