Search found 5 matches
- Sun Jul 16, 2017 10:00 pm
- Forum: JCL - Job Control Language.
- Topic: Empty a file without deleting the file.
- Replies: 9
- Views: 8342
Re: Empty a file without deleting the file.
16482 So other than raising your posting count, you haven't really contributed much to the topic. I'm not sure how the posting count will help me or anyone by any means! I replied what came to my mind after seeing the question. You may agree that there are multiple ways to solve each problem. Which...
- Sat Jul 15, 2017 1:33 am
- Forum: JCL - Job Control Language.
- Topic: Empty a file without deleting the file.
- Replies: 9
- Views: 8342
Re: Empty a file without deleting the file.
You may use the below JCL //EMPTY EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=TSUE34S.ANKIT.Y2017,DISP=SHR ----> Input file with No records and same DCB Attributes //SORTOUT DD DSN=TSUE34S.ANKIT.G2017,DISP=OLD ----> File to be emptied out, see the DISP used //STDOUT DD SYSOUT=* //SYSIN DD * S...
- Fri Jul 14, 2017 11:55 pm
- Forum: JCL - Job Control Language.
- Topic: How to put year as last qualifier of dataset using a job?
- Replies: 8
- Views: 1433
Re: How to put year as last qualifier of dataset using a job?
Hi, You may use the below JCL //STEP01 EXEC PGM=EZACFSM1 //SYSOUT DD DSN=&&CTRL,DISP=(,PASS), // SPACE=(CYL,(1,1),RLSE) //SYSIN DD DSN=TSUE34S.ANKIT.NEW(CRTLCRD),DISP=SHR //* //STEP02 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSTSIN DD DSN=&&CTRL,DISP=SHR The c...
- Fri Jul 14, 2017 12:09 am
- Forum: IBM COBOL, GnuCOBOL (OpenCOBOL), OOCobol.
- Topic: How to find the Day of the week?
- Replies: 6
- Views: 4473
- Sun Jul 09, 2017 6:26 pm
- Forum: IBM COBOL, GnuCOBOL (OpenCOBOL), OOCobol.
- Topic: How to find the Day of the week?
- Replies: 6
- Views: 4473
Re: How to find the Day of the week?
Going through old topics, this may help new members or someone very lazy :) IDENTIFICATION DIVISION. PROGRAM-ID. YOUR-PROGRAM-NAME. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 01 WS-IN-DATE PIC 9(8). 01 WS-IN-DATE-FUNC PIC 9(8). 01 WS-DAY-OF-WEEK PIC S9(08). 01 WS-QUOTIENT PIC S9(04). 01 W...