|
1:｢プリンタ占有プログラム」の公開 06/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. 質問などがあれば本掲示板にてお願いします。 以上です。 使用された方は感想をお願いします。 ガンバレ東日本！！ ガンバレＯＰユーザー！！ |