|
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 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.