× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Numeric fields
  • From: boothm@xxxxxxx
  • Date: Sun, 15 Mar 98 15:35:26 -0500

This program:
0010.00  * :............................................................: 
0011.00 ftest#     O    F   75        disk                                
0012.00  *  ..  ..  ..  ..  ..  ..  ..  ..  ..                            
0013.00 C                   MOVE      *blanks       data75           75   
0014.00 c                   do        10                                  
0015.00 c                   add       123456        count             7 0 
0016.00 C     count         mult      -1.2345       one               9 2 
0017.00 c                   except    out                                 
0018.00 C                   end                                           
0019.00  *  ..  ..  ..  ..  ..  ..  ..  ..  ..                            
0020.00 c                   move      *on           *inLR                 
0021.00  ** ====================================================          
0022.00 Otest#     E            out                                       
0023.00 O                       DATA75              75                    
0024.00 O                       one           l     15                    
0025.00 O                       one                 30 '0         -'      
0026.00 O                       one                 45 '0 ,   ,   .  -'   
0027.00 O                       one                 60 '0       .  -'     
0028.00 O                       one                 75                    
0029.00  * :............................................................: 

produced this data file:

                         Display Physical File Member                      

 File . . . . . . :   TEST#               Library  . . . . :   QFTP        

 Member . . . . . :   TEST#               Record . . . . . :   1            

 Control  . . . . .                       Column . . . . . :   1            

 Find . . . . . . .                                                         

 *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+

      152406.43-     015240643-  0,152,406.43-    0152406.43-     
01524064L 
      304812.86-     030481286-  0,304,812.86-    0304812.86-     
03048128O 
      457219.29-     045721929-  0,457,219.29-    0457219.29-     
04572192R 
      609625.72-     060962572-  0,609,625.72-    0609625.72-     
06096257K 
      762032.16-     076203216-  0,762,032.16-    0762032.16-     
07620321O 
      914438.59-     091443859-  0,914,438.59-    0914438.59-     
09144385R 
     1066845.02-     106684502-  1,066,845.02-    1066845.02-     
10668450K 
     1219251.45-     121925145-  1,219,251.45-    1219251.45-     
12192514N 
     1371657.88-     137165788-  1,371,657.88-    1371657.88-     
13716578Q 
     1524064.32-     152406432-  1,524,064.32-    1524064.32-     
15240643K 

The file still looks like this after it has been FTPed to a unix box, so I
can FTP negative numbers from an AS/400 CL command, if any of these are
ok.

My questions are:
- are any of these column lay-outs suitable for the PC people? - Is there
a way I can use the edit code or the edit word in an externally described
file's fields?  - Is there a need for the minus sign to be on the left of
the number?
 -- 
-----------------------------------------------------------
boothm@ibm.net
-----------------------------------------------------------

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.