IBM Mainframe Forum

Hi

I need a JCL that copies the first 50 records from source file to destination file.

Thnaks for your help

Anubhav

Good luck with that -- since JCL does nothing but execute programs, you will have to wait a LONG, LONG, LONG time before the JCL will copy records.

Now, if you had a need to use IDCAMS or SORT to copy records within a job -- that is simplicity and you could read the appropriate manuals yourself to do so.

Hey Robert

Copying the records from one file to another is real quick in JCL and I have been doing that for a while that.
I only needed selective copying.


I tried IDCALMS/sort but it does not work.

thnks
Anubhav

You can use a DFSORT job like the following:



If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

http://www.ibm.com/support/docview.wss? ... g3T7000080

I tried IDCALMS/sort but it does not work.

This kind of statement is pretty useless as we don't know what you tried exactly or what error you got. In the future, give details so people can help you.

tHE jcl GAVE AN ERROR

WER224A SORTIN NOT DEFINED

I used the fllowing JCl

//CP1 JOB (SB9IC-FSSGEN,PLZ2),'ALMSPL - COPY',
// MSGCLASS=A
/*PROFILE CPU=(5,00),TAPE=2
/*ROUTE PRINT SDSF
/*NOTIFY VQ103
//*
//* COPY SPL FILE
//*
//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=A
//SYSUT1 DD DSN=SB900.GIPRIC.ALMFTP.DVLP.PRG.DEV.ANUBH4,DISP=SHR
//SYSUT2 DD DSN=SB900.GIPRIC.ALMFTP.DVLP.PRG.DEV.ANUBH411,
// DISP=(NEW,CATLG,DELETE),UNIT=INFOREAL,
// LABEL=EXPDT=60001,SPACE=(CYL,(95,30),RLSE)
//SYSIN DD *
OPTION COPY,STOPAFT=50
**************************** Bottom of Data ************************

I use IDCAMS to copy records all the time:so when you said IDCAMS "did not work" -- what do you mean? Did you get a JCL error? Did you get a system abend? Did you get an IDCAMS error? Did something else happen?

You can even use the SKIP option of REPRO to get IDCAMS to start somewhere other than the first record.

the jcl You used does not follow the guidelines given by Frank!

anyway Frank Yaeger is a DFSORT Developer,
since DFSORT and SYNCSORT are competitor products, do not expect from Frank answers on SYNCOSRT

read the SYNCSORT documentation for the ddnames required/implied/used by SYNCSORT applications

WER224A SORTIN NOT DEFINED

It's not that Sort (syncsort) didn't work - it's that YOU did not have the correct DD statements. SORTIN and SORTOUT are needed - not SYSUT1 and SYSUT2. I guess you didn't notice the difference between your job and mine, or bother to pick up a manual, or pay attention to the error message, or any of a number of other things that would have let you solve the problem yourself. You might want to try harder next time.