MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Search found 37 matches
MVSFORUMS.com Forum Index
Author Message
  Topic: Separating integer and decimal parts from comp3
jyoung

Replies: 16
Views: 13634

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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... Very Happy
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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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.
 
Page 1 of 3 Goto page 1, 2, 3  Next
All times are GMT - 5 Hours
Jump to:  


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group