|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
CANONプリンター出力のトレイ（ドロワー）指示;訪問者からの情報 | |||||||||
以下は、訪問者YT様からの情報です。ありがとうございます。ＣＬＰ/*********************************************************************/
/* */
/* 実寸Ａ４タテ・上余白・左マージン・給紙方法（手差し） */
/* のＲＰＧコーディングによる指示サンプル */
/* */
/* 使用機種 ： CANON LBP-750 IBM5577コントロールカード 使用 */
/* OS VER : V4R2M0 */
/* */
/*********************************************************************/
PGM
DCL VAR(&QTIME) TYPE(*CHAR) LEN(10)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&QTIME)
/* 実行前のプリンター設定状態に戻す制御コードをＲＰＧで */ /* 出力しているが、それが有効になるのに多少時間がかかる */ /* ので用紙タイプを変更して”用紙タイプ変更”の応答メッセージ */ /* で時間を稼ぐ （自動応答にしておく） */ OVRPRTF FILE(SMP010LP) PAGESIZE(82 110) LPI(7.5) +
CPI(15) OVRFLW(80) FORMTYPE(&QTIME) +
IGCCPI(*CONDENSED)
CALL PGM(SMP010R) DLTOVR FILE(SMP010LP) ENDPGM ＲＰＧ内部記述（ｏ仕様書）でも外部記述（Ａ仕様書）でもＯＫ レコード様式”＠STR”でページフォマット等の出力したいものを指定する。レコード様式”＠END”で設定値をもとに戻す（標準値にする)。（社内ルール等で決まっている設定値） H Y
FSMP010LPO E 60 PRINTER
E HEX 1 10 60 PRINTER CONTRO
C*
C EXSR \INZ
C*
C WRITE@STR
C ADD 1 PPAGE 40
C WRITE@HDR1
C WRITE@END
C*
C SETON LR
C RETRN
C*****************************************************************
C \INZ BEGSR
C MOVELHEX,1 PSCTL1
C MOVELHEX,2 PSCTL2
C MOVELHEX,3 PSCTL3
C MOVELHEX,4 PECTL1
C MOVELHEX,5 PECTL2
C MOVELHEX,6 PECTL3
C MOVELHEX,7 PSCTL4
C MOVELHEX,8 PECTL4
C MOVELHEX,9 PSCTL5
C MOVELHEX,10 PECTL5
C*
C @INZ ENDSR
C*------------------------------------------------------
** CTL プリンターコントロール
@@C?00071B7E0100026601 1 実寸 タテ
@@C?00091B7E0100042043FFD0 2 上余白 指定
@@C?00071B7E0A00020205 3 左 マージン 指定
@@C?00071B7E0A00020200 4 左 マージン ０
@@C?00091B7E01000420430000 5 上余白 ０
@@C?00071B7E0100026604 6 SF15->A5 縮小
@@C?00071B7E0100022205 7 HEXモード 改行 5カイムシ
@@C?00071B7E0100022200 8 0カイ
@@C?00071B7E0100026201 9 手差し
@@C?00071B7E0100026200 10 自動
ｅｘ．
ＰＲＴＦデータベースレコード設計書のフォーマット プリンターファイルの属性で”印刷不能文字の置き換え”は＊ＹＥＳでも出力可能です。 プリントバッファー（ＰＳＣＴＬ１〜）は必ずしも６０バイトでなくてもｏｋ プリンターの制御コードは ＣＡＮＯＮマニュアル”コントロールカード ＰＣＩ−５５７７／３ ユーザーズマニュアル”に詳細は記載されています。（約￥３，０００） A*%%**************************************************************
A R @HDR1
A SKIPB(003)
A* ヨコ
A DFNLIN(*HRZ 3 1 109)
A DFNLIN(*HRZ 09 1 109)
A DFNLIN(*HRZ 11 1 109)
A DFNLIN(*HRZ 13 1 109)
A DFNLIN(*HRZ 14 55 11)
A DFNLIN(*HRZ 16 1 109)
A DFNLIN(*HRZ 18 1 109)
A DFNLIN(*HRZ 20 1 109)
A DFNLIN(*HRZ 22 1 109)
A DFNLIN(*HRZ 24 1 109)
A DFNLIN(*HRZ 26 1 109)
A DFNLIN(*HRZ 28 1 109)
A DFNLIN(*HRZ 30 1 109)
A DFNLIN(*HRZ 32 1 109)
A DFNLIN(*HRZ 34 1 109)
A DFNLIN(*HRZ 36 1 109)
A DFNLIN(*HRZ 38 1 109)
A DFNLIN(*HRZ 40 1 109)
A DFNLIN(*HRZ 42 1 109)
A DFNLIN(*HRZ 44 1 109)
A DFNLIN(*HRZ 46 1 109)
A DFNLIN(*HRZ 48 1 109)
A DFNLIN(*HRZ 50 1 109)
A DFNLIN(*HRZ 52 1 109)
A DFNLIN(*HRZ 54 1 109)
A DFNLIN(*HRZ 56 1 109)
A DFNLIN(*HRZ 58 1 109)
A DFNLIN(*HRZ 60 1 109)
A DFNLIN(*HRZ 62 1 109)
A DFNLIN(*HRZ 64 1 109)
A DFNLIN(*HRZ 66 1 109)
A DFNLIN(*HRZ 68 1 109)
A DFNLIN(*HRZ 70 1 109)
A DFNLIN(*HRZ 72 1 109)
A DFNLIN(*HRZ 74 1 109)
A DFNLIN(*HRZ 76 1 109)
A DFNLIN(*HRZ 78 1 109)
A DFNLIN(*HRZ 80 1 109)
A* タテ
A DFNLIN(*VRT 4 1 77)
A*
A DFNLIN(*VRT 4 13 6)
A DFNLIN(*VRT 4 25 6)
A DFNLIN(*VRT 10 16 4)
A DFNLIN(*VRT 10 23 4)
A DFNLIN(*VRT 10 34 4)
A DFNLIN(*VRT 10 45 4)
A DFNLIN(*VRT 10 61 4)
A DFNLIN(*VRT 10 77 4)
A DFNLIN(*VRT 10 92 4)
A*
A DFNLIN(*VRT 14 24 67)
A DFNLIN(*VRT 14 27 67)
A DFNLIN(*VRT 14 40 67)
A DFNLIN(*VRT 14 44 67)
A DFNLIN(*VRT 14 47 67)
A DFNLIN(*VRT 14 50 67)
A DFNLIN(*VRT 14 55 67)
A DFNLIN(*VRT 15 61 66)
A DFNLIN(*VRT 14 66 67)
A DFNLIN(*VRT 4 110 77)
A SPACEA(001)
A 10
A ' '
A 100
A 'PAGE.'
A PPAGE 4S 0 +0
A* PAGNBR
A EDTCDE(4)
A 2
A ' 作成者印 '
A SKIPB(004)
A +3
A ' 承認印 '
A 34
A ' データ・ベース・レコード
A SKIPB(006)
A CHRSIZ(2.0 1.0)
A 38
A '('
A SKIPB(008)
A* WPFTXT 50O O +1
A 94
A ')'
A 3
A DATE(*SYS)
A SKIPB(009)
A EDTCDE(Y)
A 17
A '/'
A 20
A '/'
A 36
A 'アクセス・パス'
A SKIPB(010)
A 3
A ' ファイル名 '
A SKIPB(011)
A +3
A 'P / L'
A +2
A 'レコード 長 '
A +1
A ' 保守方法 '
A +0
A ' ライブラリー名 '
A +0
A ' 原始ファイル名 '
A +2
A ' メンバー名 '
A +2
A ' ライブラリー名 '
A* WHFILE 10A O 4
A 4' '
A SKIPB(012)
A* WPFTYP 6A O +3
A* WHRLEN 5S O +4
A* EDTCDE(4)
A* WPMANT 6A O +5
A* WHLIB 10A O +4
A* WPSRCF 10A O +6
A* WPSRCM 10A O +6
A* WPSRCL 10A O +6
A 26
A 'R'
A SKIPB(014)
A 57
A ' 位 置 '
A 3
A ' 項 目 名 称 '
A SKIPB(015)
A +7
A 'K'
A 28
A 'フィールド 名 '
A 40
A ' 桁数 '
A 46
A 'D'
A +0
A ' 属 '
A +0
A 'バイト'
A +15
A ' 機 能（注記） '
A 26
A 'S'
A SKIPB(016)
A 47
A ' 性 '
A 51
A ' 数 '
A +0
A ' 開始 終了 '
A*****************************************************************
A R @STR
A SKIPB(001)
A PSCTL4 60A O 1
A SPACEA(001)
A PSCTL5 60A O 1
A SPACEA(001)
A PSCTL1 60A O 1
A SPACEA(001)
A PSCTL2 60A O 1
A SPACEA(001)
A PSCTL3 60A O 1
A*****************************************************************
A R @END
A SKIPB(001)
A PECTL4 60A O 1
A SPACEA(001)
A PECTL5 60A O 1
A SPACEA(001)
A PECTL1 60A O 1
A SPACEA(001)
A PECTL2 60A O 1
A SPACEA(001)
A PECTL3 60A O 1
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
