Left Alignment in PL/1.

Ashokn · Posted: Fri Jun 27, 2008 4:46 pm Post subject: Left Alignment in PL/1.

Hi,

How can I format PIC '999V.99' to left align it in pl/1 ?

for ex: "bbbbb123.45" (b=blank). I want it without blanks & it should be left-aligned.

Please give me the solution.

Ashok.

Srihari Gonugunta · Active User Joined: 14 Sep 2007 Posts: 186 Location: Pune

Redefine your variable on a char and use LEFT function on char variable.

Ashokn · Posted: Fri Jun 27, 2008 5:47 pm Post subject: Left Alignment in PL/1.

Hi,

DCL LFTALN PIC 'bbbbb123.45'

pls make changes to above statement & how to use LEFT function.Please give me full syntax.

=============================================

Srihari Gonugunta · Active User Joined: 14 Sep 2007 Posts: 186 Location: Pune

DCL LFTCHR CHAR(11);
DCL LFTALN PIC 'ZZZZZ999V.99' BASED(ADDR(LFTCHR));
LFTALN=123.45;
LFTCHR=TRIM(LFTCHR,' ');
PUT SKIP LIST('LFTCHR : ',LFTCHR);

Hope this helps

Ashokn · Posted: Tue Jul 01, 2008 3:55 pm Post subject: Left Alignment in PL/1.

Hello Sir,

I compiled below PL/1 program(of LeftAlign) but I'm getting below error:

ERROR 1 SEVERITY 3 on or near line 3 of file "test.wrk"

The source text contains extraneous data. Check for excess

END statements, unbalanced quotes, and unbalanced /* */.===========================================