I need to move low-values to an Alpha-Numeric field, is this possible in Focus? I can't find any documetation telling me how to do it.
ThanksThis message has been edited. Last edited by: <Kathryn Henning>,
FOCUS 7.7.03
z/OS 01.13.00 HBB7780
July 16, 2015, 12:58 PM
Francis Mariani
What does "move low-values" mean?
Francis
Give me code, or give me retirement. In FOCUS since 1991
Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
July 16, 2015, 01:05 PM
TomDx
Sorry... Binary 0's
Thanks
FOCUS 7.7.03
z/OS 01.13.00 HBB7780
July 16, 2015, 02:36 PM
Francis Mariani
You could try using one of several format conversion functions (e.g. PTOA, FPRINT), though I don't know how the low-values (a mainframe term I had forgotten) get transformed.
Francis
Give me code, or give me retirement. In FOCUS since 1991
Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
July 16, 2015, 05:03 PM
j.gross
Move ' ', which will fill it with blanks; then use CTRAN or STRREP to change those to binary zero.
To keep your code independent of the encoding of Space, I suggest using CTRAN: CTRAN(length, source_string, decimal, decvalue, output) with BYTVAL(' ','A1') (yieldimg the decimal value of Blank) in arg 3, and low-values coded as simply 0 in arg 4.