HP3000-L Archives

August 2001, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Supertool : Leading Zeroes
From:
"Rao, Ragu" <[log in to unmask]>
Reply To:
Rao, Ragu
Date:
Thu, 16 Aug 2001 15:14:32 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (94 lines) 
Hi all,

I am extracting a X(4) field having leading spaces from the table into a
flat file for processing. Is it possible somehow to convert this to leading
zeroes ? If so, how ?

The following seems to be the solution (and results) which I am able to come
up with !! Any better thoughts and ideas ? Thanks in advance.

Regards
Raghu.

>
>INPUT RAGST304
>FO
    File: RAGST304.RZR1.PCARTP1     (SD Version B.00.00)
       Entry:                     Offset
          REMARK-CAT           X26     1  <<Sort# 1 >>
          SEQ#                 X4     27
    Limit: 15  EOF: 15  Entry Length: 30  Blocking: 128
>DEF SEQ1,27,4,DISPLAY
>EXT REMARK-CAT,SEQ1; SORT REMARK-CAT
>OUT RAGST305,LINK
>XEQ
IN=15, OUT=15. CPU-Sec=1. Wall-Sec=1.

>
>INPUT RAGST305
>FO
    File: RAGST305.RZR1.PCARTP1     (SD Version B.00.00)
       Entry:                     Offset
          REMARK-CAT           X26     1  <<Sort# 1 >>
          SEQ1                 Z4     27
    Limit: 15  EOF: 15  Entry Length: 30  Blocking: 128
>DEF SEQ2,1,4,DISPLAY
>EXT REMARK-CAT,SEQ2 = SEQ1 + 0000
>SORT REMARK-CAT
>OUT RAGST306,LINK
>XEQ
IN=15, OUT=15. CPU-Sec=1. Wall-Sec=1.

>
>INPUT RAGST306
>FO
    File: RAGST306.RZR1.PCARTP1     (SD Version B.00.00)
       Entry:                     Offset
          REMARK-CAT           X26     1  <<Sort# 1 >>
          SEQ2                 Z4     27
    Limit: 15  EOF: 15  Entry Length: 30  Blocking: 128
>L STAN;XEQ
Aug 16, 2001 15:05               File: RAGST306                      Page 1


REMARK-CAT                 SEQ2

                      ME08    1
                      ME08    1
                      ME08    1
                      ME08    1
                      ME08    1
                      ME08    1
                      ME08    1
                      ME08    1
                      ME08    1
                      ME08    1
                      ME08    3
                      ME08    2
                      ME08    1
                      ME08    1
                      ME08    2
IN=15, OUT=15. CPU-Sec=1. Wall-Sec=1.

>
>PRINT RAGST306
                      ME080001
                      ME080001
                      ME080001
                      ME080001
                      ME080001
                      ME080001
                      ME080001
                      ME080001
                      ME080001
                      ME080001
                      ME080003
                      ME080002
                      ME080001
                      ME080001
                      ME080002
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2