crrindia
Active User
Joined: 02 Jul 2005 Posts: 124 Location: Gurgaon
|
|
|
|
Hi All, I wanted to create 10 vsam files like BAS%%%%..T.STG.BASFENVN. But I wanted to replace some 1234 instead of %%%%. here 1234 is our client ids. like this I wanted to run many clients.
for this could you please let me know how to pass data to this instream data?
for ex. I am giving you some code, please see this and let me know.
Code: |
000001 //@58025AB JOB (00000-00521109-001-51-238S),'PRIME MINISTER',
000002 // MSGCLASS=S,NOTIFY=&SYSUID,CLASS=F,TIME=6,REGION=8M
000003 //* RESTART=STEP002
000004 //*
000005 //PROFILE SET CLIENT=1234 <-- CLIENT NUMBER
000006 //*
000007 //**********************************************************************
000008 //* ALLOCATE TEMP VSAM FILE *
000009 //**********************************************************************
000010 //STEP001 EXEC PGM=IDCAMS,
000011 // COND=(0,LT)
000012 //SYSPRINT DD SYSOUT=*
000013 //SYSIN DD *
000014 DEFINE CLUSTER -
000015 (NAME(BAS&CLIENT..T.STAKDUMP.TEMP) -
000016 MODEL(BAS&CLIENT..T.STAKDUMP))
000017 //*
000018 //**********************************************************************
000019 //* COPY THE DATA FROM ORG VSAM FILE TO TEMP VSAM FILE *
000020 //**********************************************************************
000021 //STEP002 EXEC PGM=IDCAMS,
000022 // COND=(0,LT)
000023 //SYSPRINT DD SYSOUT=*
000024 //FILEIN DD DSN=BAS&CLIENT..T.STAKDUMP,
000025 // DISP=SHR
000026 //FILEOUT DD DSN=BAS&CLIENT..T.STAKDUMP.TEMP,
000027 // DISP=OLD
000028 //SYSIN DD *
000029 VERIFY FILE(FILEIN)
000030 IF LASTCC = 0 THEN REPRO INFILE(FILEIN) OUTFILE(FILEOUT)
000031 ELSE SET MAXCC=0
000032 //*
****** **************************** Bottom of Data **************************** |
|
|