| prino wrote: |
| Use timestamps |
| Code: |
| WHERE TIMESTAMP(SALES_DATE,CONCAT(SALES_HR_NBR,':00:00')) BETWEEN (CURRENT TIMESTAMP - 2 DAYS) AND (CURRENT TIMESTAMP - 1 HOURS) |
| Marso wrote: |
| It is better to start a new topic, even if the question is related. Now, two correct answers: 1. it is always possible to do multiple changes (first change X'5E' to something unusual like ~ [X'A1'], then change 'A~B~C' to whatever, then back from X'A1' to X'5E') 2. Change the command delimiter (Option 0 for ISPF Settings, change command delimiter to something unusual like ~) then 'A;B;C' will work. |
| purushottam wrote: |
| Some one please guide me with appropriate solution using JCL . |
| Code: |
| //SPLIT EXEC PGM={splitter program} //SYSPRINT DD SYSOUT=* printed log //INPUT DD DISP=SHR,DSN={your input dataset} //HEADER1 DD DSN={...} // . . . . . . . . . //DATAONLY DD DSN={...} //FOOTER1 DD DSN={...} // . . . . . . . . . //SYSIN DD * . . . {control statements for splitter program} . . . . . . //* |
| pema_yozer wrote: |
| the below is the input to my delete utility FIND DSNAME=EHLT.EC.TRAN.!KTEC!FILE ** !=SELECT VARIABLE DELETE we have files such as EHLT.EC.TRAN.KTECBJ00.IFILE1.GDG EHLT.EC.TRAN.KTECBJ00.IFILE1 the above FIND is picking both the layout, any idea on skipping the GDG one but picking the regular one without the GDG |
| chong.zhou wrote: |
| c 'A;B;C' 'A-B-C' all I tried "AX'E5'B" and 'AX"E5"B', none worked. How do you put the X'5E' in the middle of a string? Thanks! |
| Code: |
| c X'C1E5C2E5C3' 'A-B-C' all |
| Code: |
| c P'A$B$C' 'A-B-C' all |
| Code: |
| //STEP0A2 EXEC PGM=SORT //SORTIN DD dsn=filename ( lrecl=25) //SORTOUT DD DSN=fileout (lrecl=25) //SORTOF2 DD DSN=fileof2 (lrecl=25) //SORTOF3 DD DSN=fileof3 ( need this to be 80 ) //SYSIN DD * SORT FIELDS=(1,25,CH,A) SUM FIELDS=NONE OUTFIL FILES=(OUT) OUTFIL FILES=(2) OUTFIL FILES=(3),REMOVECC,NODETAIL,OUTREC=(80X), TRAILER1=(1:'I000000002000000001000',COUNT=(M11,LENGTH=15)) |
| Quote: |
| Eliminating duplicate keys via SUM FIELDS=NONE will create a single matching record produced, but (in general case) created from an unpredicted pair of matching keys. |
| Quote: |
| To do this, create a Cobol (or any other language) program, read the input dataset and write multiple output JCL statements (may be SORT as your program) and submit to Internal reader. |
| Code: |
| //STEP1 EXEC PGM=SORT //INA DD * AAA 123 BBB 345 CCC 4579 DDD 4578 //INB DD * AAA 123 BBB 345 CCC 4579 DDD 4578 //SORTOUT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY JOINKEYS F1=INA,FIELDS=(1,3,A),SORTED,NOSEQCK JOINKEYS F2=INB,FIELDS=(1,3,A),SORTED,NOSEQCK REFORMAT FIELDS=(F1:1,8,F1:4,1,F1:1,4,F1:1,4,F1:1,4,F1:1,4,F1:1,4) |
| Code: |
| ********************************* TOP OF DATA ********************************** AAA 123 AAA AAA AAA AAA AAA BBB 345 BBB BBB BBB BBB BBB CCC 4579 CCC CCC CCC CCC CCC DDD 4578 DDD DDD DDD DDD DDD ******************************** BOTTOM OF DATA ******************************** |
| RahulG31 wrote: |
| In a JCL you have to tell how many datasets you would want as output and name those datasets. If you want to do this dynamically then, you'll have to build your job on the go. To do this, create a Cobol (or any other language) program, read the input dataset and write multiple output JCL statements (may be SORT as your program) and submit to Internal reader. |
| amorante wrote: |
| All I need Is to count the number of record in sortinâ¦. Output format as shown, question is can I do it in the same step or do I have to add another step and then I could alter the input using INREC to go up to 80 and then use trailer1 for sortof3, (this changes sortof2 and sortout to be 80 which is no good, that is why I would have to add another step, seriously ?) |
| chong.zhou wrote: |
| Thank you sergeyken. Your 1st idea can't be better. Great!! |
