これはデータ(半角全角混在可)を短くするというプログラムです。(QLGTRDTA APIを使用しています)

例えば、漢字データを短くして画面に表示(または印字)したいと思っても0E0Fの制御まで考えなくてはなりませんね。その場合に漢字データを短くするというプログラムを作ったと思います。これを当プログラムで行います。

このプログラムはパラメータの数が任意になっていますが最初の4つは必須です。
必須 IN  256桁 文字 切断したいデータ
　　 IN    4桁 数字 切断したいデータの長さ
　　 IN    4桁 数字 切断したい長さ
　　 OUT 256桁 文字 切断後のデータ
任意 OUT   4桁 数字 切断後のデータの長さ
　　 OUT 256桁 文字 切断された残りのデータ
　　 OUT   4桁 数字 切断された残りのデータの長さ
　　 OUT   7桁 文字 エラーコード

(エラーコードはQLGTRDTA APIのエラーにより設定されますがパラメータの内容が正常ならまず必要ないでしょう)

例) 200バイトのデータを100バイトで切断し、残った100バイトを50バイトで切断。

MOVELDATA      I#BUF 
Z-ADD200       I#BUFL
Z-ADD100       I#TRNL


CALL 'RTRUNC'
PARM           I#BUF 256 
PARM           I#BUFL  40
PARM           I#TRNL  40
PARM           O#BUF 256 
PARM           O#BUFL  40
PARM           O#REM 256 
PARM           O#REML  40


MOVELO#REM     I#BUF 
Z-ADDO#REML    I#BUFL
Z-ADD50        I#TRNL


CALL 'RTRUNC'
PARM           I#BUF 256 
PARM           I#BUFL  40
PARM           I#TRNL  40
PARM           O#BUF 256

[1999/10/19]
- ver 1.0の公開。