Author |
Message |
Topic: Separating integer and decimal parts from comp3 |
jyoung
Replies: 16
Views: 13634
|
Forum: Application Programming Posted: Tue Jun 05, 2012 7:11 am Subject: Separating integer and decimal parts from comp3 |
If you don't care about the sign how about this:
WORKING-STORAGE SECTION.
01 WS-AMOUNT PIC S9(3)V99 VALUE +123.45.
01 WS-AMT PIC 9(5) ... |
Topic: FTP Issue -> File stored with Quotes |
jyoung
Replies: 4
Views: 2582
|
Forum: Job Control Language(JCL) Posted: Wed Jun 03, 2009 5:57 am Subject: FTP Issue -> File stored with Quotes |
This is how we use FTP:
//******************************************************
//FTPSTEP EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
... |
Topic: Reg the COBOL program Compiler options |
jyoung
Replies: 5
Views: 2480
|
Forum: Job Control Language(JCL) Posted: Sat Jan 17, 2009 7:39 pm Subject: Reg the COBOL program Compiler options |
It's also possible that the input data is different between production and development. Just a thought. |
Topic: Ftp to non-existing MVS file |
jyoung
Replies: 4
Views: 2920
|
Forum: Utilities Posted: Sat Jan 17, 2009 7:35 pm Subject: Ftp to non-existing MVS file |
Could you put a check in to see if the file exist? If not then bypass the FTP step. I am with expat though, create the file in the ftp step with the lrecl you need. |
Topic: Dynamically Create next GDG version if current GDG is full |
jyoung
Replies: 14
Views: 6671
|
Forum: Job Control Language(JCL) Posted: Thu Jul 31, 2008 12:41 pm Subject: Dynamically Create next GDG version if current GDG is full |
Ok here is another silly idea...
Define the output file as a sequential file with a disp of old. When the job is done kick off another job to offload the data to somewhere - anywhere(FTP?). W ... |
Topic: Dynamically Create next GDG version if current GDG is full |
jyoung
Replies: 14
Views: 6671
|
Forum: Job Control Language(JCL) Posted: Wed Jul 30, 2008 2:01 pm Subject: Dynamically Create next GDG version if current GDG is full |
What if you determined the maximum number of records that the file can hold then keep a record count of the records written and when the get close to the maximum close the file and reopen a new one. |
Topic: why this warning message? |
jyoung
Replies: 4
Views: 4570
|
Forum: Job Control Language(JCL) Posted: Thu Jul 17, 2008 8:19 am Subject: why this warning message? |
Sounds like you are allocating more space that you need. It looks like a Computer Associates message. How much of the space allocated is actually being used? |
Topic: Problem when converting the Input file to mainframe. |
jyoung
Replies: 10
Views: 7091
|
Forum: TSO and ISPF Posted: Mon Jun 30, 2008 10:54 am Subject: Problem when converting the Input file to mainframe. |
The problem with saving it as a PRN file is that unless each column in the spread sheet is set to left or right justify you will have problems when you have a mixture of numbers in one cell in the col ... |
Topic: Problem when converting the Input file to mainframe. |
jyoung
Replies: 10
Views: 7091
|
Forum: TSO and ISPF Posted: Mon Jun 30, 2008 6:03 am Subject: Problem when converting the Input file to mainframe. |
I use Active States Perl on my Windows PC to extract the cells from an Excel spread sheet and place them in a text file formatted to what I need. Here is a link:
http://aspn.activestate.com/ASPN/doc ... |
Topic: Uploading .xls file to Mainframe |
jyoung
Replies: 2
Views: 2603
|
Forum: Job Control Language(JCL) Posted: Mon Jun 23, 2008 6:42 am Subject: Uploading .xls file to Mainframe |
You can use Active States Perl version to extract cells from a MS Spread Sheet and create a text file. Here is a link:
http://aspn.activestate.com/ASPN/docs/ActivePerl/5.8/faq/Windows/ActivePerl-Win ... |
Topic: Cobol Internal Sort |
jyoung
Replies: 2
Views: 2181
|
Forum: Application Programming Posted: Thu May 01, 2008 8:50 am Subject: Cobol Internal Sort |
The parm - &WORK is for the value SYSDA. |
Topic: Cobol Internal Sort |
jyoung
Replies: 2
Views: 2181
|
Forum: Application Programming Posted: Thu May 01, 2008 8:48 am Subject: Cobol Internal Sort |
You would do it through your JCL. Here is a example:
//SORTWK01 DD UNIT=&WORK, <--- SORT WORK SPACE
// SPACE=(CYL,(10),,CONTIG) ... |
Topic: Help on Tallying |
jyoung
Replies: 3
Views: 1729
|
Forum: Application Programming Posted: Wed Apr 09, 2008 6:20 am Subject: Help on Tallying |
What is the compile error that you are receiving? |
Topic: SIgn is leading separate |
jyoung
Replies: 7
Views: 4887
|
Forum: Application Programming Posted: Tue Apr 08, 2008 7:26 am Subject: SIgn is leading separate |
Hi Slade,
Don't be afraid when you are correct. Thank you for correcting my mistake. Must have had a brain fart. I don't know what I was thinking. |
Topic: SIgn is leading separate |
jyoung
Replies: 7
Views: 4887
|
Forum: Application Programming Posted: Mon Apr 07, 2008 7:55 am Subject: SIgn is leading separate |
I count them both as 5 bytes long due to the sign. The "Sign leading separate" phrase should not make a difference when determining what number of bytes are used to store the value. |
|