많은 분들 덕분으로 머리 싸매면서 헤매던 프로그램이 막바지에 다다랐습니다.
진심으로 감사드립니다.
질문의 요지는 그림과 같은 type1 프로그램이 있습니다.
테이블 자료를 근거로 자료를 가져오는데요
제가 진료 상병부위 나 기타사항을 롱텍스트로 저장하고 있습니다.
문제는 type-1의 상병위라는 공란에 롱텍스트에 저장된 내용을 나오게 하려면 어떻게 하면 될까요?
댓글 8
-
버미!
2010.10.30 02:17
-
특정단어
2010.10.30 02:20
write 화면 맞네요??
function READ_TEXT를 쓰면 itab에 long_text를 가져오는데, 그 구조는 매우 간단합니다.
바로 132컬럼짜리 CHAR 스트림이죠.
ex) begin of tline occurs 0,
tdformat(2),
tdline(132),
end of tline.
리포트에서는 READ_TEXT에서 받아온 itab을 루프 돌면서 한 줄씩 그냥 막 찍어주면 됩니다. ^^
-
특정단어
2010.10.30 02:23
tdline이 132컬럼이기는 하지만, SE75에서 object 만드실 때, 아마도 라인 사이즈를 72로 하셨을거라 믿습니다.
72컬럼이면 웬간한 리포트에서 다 커버할 수 있겠죠?
-
유정a
2010.10.30 05:25
버미님 특정단어님 write로 제가 하나하나 만든것이 맞구요
72컬럼도 맞아요
특정단어님의 예로 data 구문 주었구요
아래가 진료내역이 나와야 할 부분인데 이부분에 대해서는 예제가 많이 없네요
아래를 어떤식으로 바꿔줘야할까요
ULINE.
WRITE : /1 '|', 98 '|'.
WRITE : /1 '|', 98 '|'.
WRITE : /1 '|', 3 tline, 98 '|'.
WRITE : /1 '|', 98 '|'.
WRITE : /1 '|', 98 '|'.
ULINE.
-
특정단어
2010.10.30 07:20
tline[]에 값이 제대로 들어왔다면,
ULINE.
* WRITE : /1 '|', 98 '|'.
* WRITE : /1 '|', 98 '|'.
LOOP AT tline.
WRITE : /1 '|', 3 tline, 98 '|'.
ENDLOOP.
* WRITE : /1 '|', 98 '|'.
* WRITE : /1 '|', 98 '|'.
ULINE.
이렇게 되겠죠. ^^;
아주 쉬운데 어렵게 생각을 하셨나봐요.
-
유정a
2010.10.30 09:17
올려주신 소스대로 쳤는데 여전히 나오질 않네요 ㅠ.ㅠ
제가 txet를 만들때 structure key를 p_name 라고 주었거든요
이건 상관없는건가요?
음 테이블에 고소라라는 이름으로 4개의 라인이있는데 name을 차례로 고소라 고소라1 고소라2 고소라3
이렇게 주었는데요
name에 맞춰서 longtext에서는 자료를 잘 불러와요
그런데 특정단어님께서 해주신 자료로 했는데 type-1에는 내용이 입력되지가 않네요 ㅠ
혹시나 제가 미숙해서 이상하게 말한건 아닐까 해서 type-1 파일 올려놓았습니다. -
특정단어
2010.11.01 18:05
글쎄요. 올려주신 소스 상으로는, select_data 다음에 바로 write_data가 나오는데, READ_TEXT 부분은 없어서 tline[]에 올바른 값이 꽅히고 있는 지 판단은 안서네요.
그리고 LOOP 부분은 제가 간단히 써 놓았었는데, 정확히 쓰자면,
Loop at tline.
write:/ tline-tdline.
ENDLOOP.
요렇게 써야할 겁니다.
-
유정a
2010.11.01 18:22
에고 ㅠ.ㅠ 죄송합니다 설명도 자세히 해주셨는데 롱텍스트는 안되네요 ㅠ.ㅠ
진심으로 감사합니다.
어째 화면이 Write로 한건가요?