we define the array like this
01 array
02 veg occurs 10 times
03 days occurs 6 times
04 cost pic 9(5).
but why don't we write it as
01 array
02 veg occurs 10 times
03 days occurs 6 time
04 cost pic 9(5).
is there any error will occur ,what is it? and why don't
01,02,03 not contain picture clause? if we put pic in those
is there any error will occur what is it will occur?
- 1 Answers
- 4209 Views
- Fidelity, I also Faced
- E-Mail Answers
Answer / rajvee
If you want to put 02,03,04 in one column no error will
occur, its only a common coding standard to be followed.
group item don't carry pic clause only elementary items
will.
| Is This Answer Correct ? | 5 Yes | 0 No |
What is SORT ? How do we eliminate duplicate records ? How do I select some records using SORT ?
i am trying to copy a PS file into VSAM file in step2 by using PGM=IDCAMS,COND=(0,LT) and the pS file is getting sorted in the step1. I got the return code 00 for step1 but step2 got flushed. can u please help on this. Below is My JCL. SEPP050 EXEC PGM=SORT,REGION=6144K SYSIN DD DSN=SYSCMN.PROD.CCLIB (F5910BNN), DISP=SHR SYSOUT DD SYSOUT=* SYSUDUMP DD SYSOUT=A SORTIN DD DSN=Z1225BT.F5910EPP.HISOUT, DISP=SHR SORTOUT DD DSN=Z1225BT.F5910EPP.HISOUT.SORTOUT5, DISP= (NEW,CATLG,DELETE),UNIT=DELQ, SPACE=(CYL, (500,500),RLSE), DCB= (RECFM=FB,LRECL=1606,BLKSIZE=16060,BUFNO=15) SORTWK01 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK02 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK03 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK04 DD UNIT=SYSDA,SPACE=(CYL, (1)) SYSIN1 DD UNIT=VIO,SPACE= (80,1) * SEPP060 EXEC PGM=IDCAMS,COND= (0,LT) SYSPRINT DD SYSOUT=* SYSOUT DD SYSOUT=* SYSLIST DD SYSOUT=* *** DD01 DD DSN=Z1225BT.F5910EPP.HISOUT.SORTOUT, // DISP=SHR //*** //DD01O DD DSN=Z1225BT.F5910PHS, // DISP=SHR, // AMP=(AMORG,'BUFND=12,BUFNI=5') //SYSIN DD DSN=SYSCMN.PROD.CCLIB(F5910BBB), // DISP=SHR Output RC for the two steps: SDCBPJ05 SEPP050 00 236 .00 .00 .0 SDCBPJ05 SEPP060 FLUSH 0 .00 .00 .0
A statement about PROCs is " In PROCs, Symbolic Parameters can be assigned on PROC and EXEC", BUT On which EXEC, (i) On the JCL's EXEC which is calling to PROC1. (Inside JCL, EXEC PROC1) (ii) or On the PROC's EXEC where it calls the PGM1. (Inside PROC, EXEC PGM=PGM1)
i have a file which contains duplicates ? my requirement is to eliminate duplicates and these elminated duplicates should be moved to another file can any code this using sort ?
wht r different types of sorts ?
How jcl is used for testing batch programs?
If your job fails at particular step then what would be the return code for next steps
Can comments be specified at the very beginning of a jobcard? Will the JCL execute?
I've one sequential file, That file contains millians of Junk & CHAR recoreds example File 1 ,,,,,...,,,.....,.,.INFOSYS.....,,,,,,,,,,,WIPRO..........., ,...,..,. My questions is : I want omit the 44th posstion to 4 CHAR (WIPRO) remaining things I want output file (including Junk CHAR also)... How can we slove this problem & give me a syntax. Please provide the result as soon as possible.
What is the difference between primary and secondary allocations for a dataset?
a jcl has 2 steps. How to code the jcl such that if step1 abends, then step2 runs. Else, job terminates with step1?
Where & How Do You Code Identifier In Jcl?
COBOL 
