オフコン練習帳 - 掲示板->ＮＥＣのオフコン情報掲示板（ノウハウ系）->｢プリンタ占有プログラム」の公開

｢プリンタ占有プログラム」の公開

富山清風 2011-6-14 18:12 [返信] [編集]

皆さんもすでに、自作でお持ちだとは思いますが、｢プリンタ占有プログラム｣を公開します。

以前、｢旧家イトウ家の小技裏技（その７）｣にプリンタ占有プログラムが載っていましたが、
小生も、｢ステップ数の少ない｣かつ｢見やすい｣プリンタ占有プログラムを作成しましたので公開します。
｢プリンタ占有プログラム｣の必要性については記述しませんが、・・・

使用方法は
１.本プログラムを起動する→PRN999(ステーション対応プリンタ?)が｢使用中｣となり、かつ、入力待ちになる
２.入力待ちでエンターでプログラム終了(プリンタ開放)
　XXXリターンで現在使用中のプリンタが開放され、PRNXXXが｢使用中｣となり、再度、入力待ちになる
　以下、２を繰り返す。

ごくごく、簡単なプログラムです。

000010_IDENTIFICATION___________DIVISION.
000020_PROGRAM-ID.______________PRN999.
000030******************************************************************
000040*____ＰＲＮ９９９使用中__________________________________________*
000050******************************************************************
000060_DATE-COMPILED.
000070_ENVIRONMENT_____DIVISION.
000080_CONFIGURATION___SECTION.
000090_SOURCE-COMPUTER.____SYSTEM150.
000100_OBJECT-COMPUTER.____SYSTEM150.
000110_INPUT-OUTPUT____SECTION.
000120_FILE-CONTROL.
000130_____SELECT______________________LPF
000140_________________ASSIGN__________LPF-PRN999.
000150_DATA____________________DIVISION.
000160_FILE____________________SECTION.
000170_FD__LPF
000180_________LABEL_RECORD_OMITTED
000190_________LINAGE__66.
000200_01__LP-RC________________PIC_X(300).
000210******************************************************************
000220_WORKING-STORAGE__________SECTION.
000230_01__QASG01.
000240_____03__QASG0101_________PIC_X(06).
000250_01__QASG02.
000260_____03__QASG0201_________PIC_X(06).
000270_01__FILE-STATUS.
000280_____03__STSXXX___________PIC_X(02).
000290_01__WG-AREA.
000300_____03__F________________PIC_X(03)_VALUE_"PRN".
000310_____03__WG-PRN___________PIC_9(03).
000320_01__WG-PRN999.
000330_____03__WG-PRN001________PIC_N(03).
000340_____03__WG-PRN002________PIC_N(03).
000350_____03__WG-PRN003________PIC_N(03).
000360******************************************************************
000370_SCREEN______________SECTION.
000380_SD__GAMEN___________END_STATUS__ESTS.
000390_01__GA.
000400_____03__GA-PRN__LINE_23__COLUMN_77__PIC_9(03)__INTO_WG-PRN
000410_____________________CHECK__OVERFLOW_________NO__IFC.
000420_01__GD.
000430_____03__GD-PRN__LINE_12__COLUMN_30__PIC_N(09)__FROM_WG-PRN999
000440______________________BLINK_REVERSE.
000450******************************************************************
000460_PROCEDURE_______________DIVISION.
000470_ST.
000480_____MOVE____"PRN"_______TO______WG-PRN001.
000490_____MOVE____"999"_______TO______WG-PRN002.
000500_____MOVE____NC"使用中"__TO______WG-PRN003.
000510_____DISPLAY_GD-PRN.
000520_____OPEN____OUTPUT__LPF.
000530_____PERFORM_MAIN-RTN________THRU____MAIN-EXT
000540_____CLOSE___________LPF.
000550_ST-END.
000560_____STOP____RUN.
000570******************************************************************
000580_MAIN-RTN.
000590_____ACCEPT__GA-PRN.
000600_____IF____(_WG-PRN______=_______"_"_)___________GO__MAIN-EXT.
000610_____CLOSE___________LPF.
000620_____MOVE____WG-AREA_____TO______QASG0101.
000630_____MOVE____"_"_________TO______QASG0201.
000640_____CALL____"CBLASGN"___USING___LPF_____QASG01__QASG02.
000660_____MOVE____"PRN"_______TO______WG-PRN001.
000670_____MOVE____WG-PRN______TO______WG-PRN002.
000680_____MOVE____NC"使用中"__TO______WG-PRN003.
000690_____DISPLAY_GD-PRN.
000700_____OPEN____OUTPUT__LPF.
000710_________________________________________________GO__MAIN-RTN.
000720_MAIN-EXT.
000730_____EXIT.

質問などがあれば本掲示板にてお願いします。

以上です。

使用された方は感想をお願いします。

ガンバレ東日本！！
ガンバレＯＰユーザー！！

[掲示板に戻る] 全部次100 最新50