Re: Sample to REPRO to SL tape
I'm not very specialized in VSAM, and I no longer find what we used here at my customer's systems. But, what about using the informamtion from manua l CMS Application Development Guide for Assembler Example from the book assgn sys005 tap1 tape rew (181 assgn syscat e assgn sys006 e labeldef catout fid catfile volid amserv dlbl ijsysct e dsn mastcat (syscat vsam dlbl catin e dsn file (sys006 vsam amserv repro (tapout 181 DMSAMS367R Enter tape output DDNAMEs: catout To use a CMS file, make your DLBL point to disk: dlbl out CMS fn ft
Re: Sample to REPRO to SL tape
I am already set. I used ASMERV to SEQ file instead. It was easier and quick. Thanks ! -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Kris Buelens Sent: Monday, November 27, 2006 3:08 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Sample to REPRO to SL tape I'm not very specialized in VSAM, and I no longer find what we used here at my customer's systems. But, what about using the informamtion from manual CMS Application Development Guide for Assembler Example from the book assgn sys005 tap1 tape rew (181 assgn syscat e assgn sys006 e labeldef catout fid catfile volid amserv dlbl ijsysct e dsn mastcat (syscat vsam dlbl catin e dsn file (sys006 vsam amserv repro (tapout 181 DMSAMS367R Enter tape output DDNAMEs: catout To use a CMS file, make your DLBL point to disk: dlbl out CMS fn ft
Re: Sample to REPRO to SL tape
That's right. I am looking for copying VSAM to tape an reading from the tape. I made the first step - writing to tape, but I am unable to read it. Any sample ? Also - any sample how to write VSAM to sequential CMS file ? Thanks ! -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Tom Cluster Sent: Thursday, November 23, 2006 12:53 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Sample to REPRO to SL tape I assume he wanted to do it in CMS. - Tom. At 12:40 PM 11/22/2006, you wrote: * * * Top of File * * * * $$ JOB JNM=TCMREPRO,CLASS=7,DISP=D,USER='TCM' * $$ LST HA // JOB REORGVS -COPY A VSAM FILE TO TAPE--- // DLBL UCAT5,'USER.CATALOG',,VSAM // DLBL VSFILE,'SYSPGR.MASTER',,VSAM,CAT=UCAT5 // TLBL TAPOUT,'TAPSYS' // ASSGN SYS005,TAPE ---O/P TAPE--- // MTC REW,SYS005 ---O/P TAPE--- // PAUSE ---PLEASE MOUNT DOS.O/P TAPE ON SYS005--- // EXEC IDCAMS,SIZE=AUTO REPRO INFILE(VSFILE) - OUTFILE(TAPOUT ENV( RECFM(FB) BLKSZ() RECSZ(XXX) - PDEV(2400) STDLABEL)) /* // MTC RUN,SYS005 / * $$ EOJ -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Gonen Shoham Sent: Wednesday, November 22, 2006 7:25 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Sample to REPRO to SL tape Can someone provide a sample how to REPRO VSAM file to SL tape. DLBL + FILEDEF's - thanks Tom Cluster County of Sonoma Santa Rosa, CA (707) 565-3384 (Tuesdays and Wednesdays only)
Re: Sample to REPRO to SL tape
* * * Top of File * * * * $$ JOB JNM=TCMREPRO,CLASS=7,DISP=D,USER='TCM' * $$ LST HA // JOB REORGVS -COPY A VSAM FILE TO TAPE--- // DLBL UCAT5,'USER.CATALOG',,VSAM // DLBL VSFILE,'SYSPGR.MASTER',,VSAM,CAT=UCAT5 // TLBL TAPOUT,'TAPSYS' // ASSGN SYS005,TAPE ---O/P TAPE--- // MTC REW,SYS005 ---O/P TAPE--- // PAUSE ---PLEASE MOUNT DOS.O/P TAPE ON SYS005--- // EXEC IDCAMS,SIZE=AUTO REPRO INFILE(VSFILE) - OUTFILE(TAPOUT ENV( RECFM(FB) BLKSZ() RECSZ(XXX) - PDEV(2400) STDLABEL)) /* // MTC RUN,SYS005 / * $$ EOJ -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Gonen Shoham Sent: Wednesday, November 22, 2006 7:25 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Sample to REPRO to SL tape Can someone provide a sample how to REPRO VSAM file to SL tape. DLBL + FILEDEF's - thanks
Re: Sample to REPRO to SL tape
I assume he wanted to do it in CMS. - Tom. At 12:40 PM 11/22/2006, you wrote: * * * Top of File * * * * $$ JOB JNM=TCMREPRO,CLASS=7,DISP=D,USER='TCM' * $$ LST HA // JOB REORGVS -COPY A VSAM FILE TO TAPE--- // DLBL UCAT5,'USER.CATALOG',,VSAM // DLBL VSFILE,'SYSPGR.MASTER',,VSAM,CAT=UCAT5 // TLBL TAPOUT,'TAPSYS' // ASSGN SYS005,TAPE ---O/P TAPE--- // MTC REW,SYS005 ---O/P TAPE--- // PAUSE ---PLEASE MOUNT DOS.O/P TAPE ON SYS005--- // EXEC IDCAMS,SIZE=AUTO REPRO INFILE(VSFILE) - OUTFILE(TAPOUT ENV( RECFM(FB) BLKSZ() RECSZ(XXX) - PDEV(2400) STDLABEL)) /* // MTC RUN,SYS005 / * $$ EOJ -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Gonen Shoham Sent: Wednesday, November 22, 2006 7:25 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Sample to REPRO to SL tape Can someone provide a sample how to REPRO VSAM file to SL tape. DLBL + FILEDEF's - thanks Tom Cluster County of Sonoma Santa Rosa, CA (707) 565-3384 (Tuesdays and Wednesdays only)