目次 前 次 PDF


CICSコマンドとパラメータの範囲

CICSコマンドとパラメータの範囲
CICSコマンドとパラメータの範囲
サポートされているCICSコマンド
次の表では、Oracle Tuxedo ART for CICSでサポートされているCICSコマンドおよびパラメータについて説明します。
注意:
表14-1および表14-2にリストされていないコマンドおよびパラメータは、サポートされません。
CICSコマンドおよびパラメータのサポート表
 
ABENDコマンドによって生成されたHANDLE ABENDをサポートし、システムのABENDを部分的にサポートします。
0: 該当なし
2: 指定されたパスワードが間違っています。
3: 新規パスワードが必要です。
8: 外部セキュリティ・マネージャに不明のユーザーIDです。
13: ESMRESPに外部セキュリティ・マネージャからの不明のリターン・コードがあります。
18: CICS外部セキュリティ・マネージャ・インタフェースが初期化されていません。
19: ユーザーIDが失効しています。
29: 外部セキュリティ・マネージャが応答していません。
VERIFY PASSWORDを使用するには、Oracle TuxedoでXAUTHSVRを構成する必要があります。
メインフレームCICS v3以前では、ENTER TRACENUMENTER TRACEIDと記述されていました。
各セクションにINITPARMパラメータが複数指定されている場合は、最後の定義のみが有効になります。
DELETE RBAKSDSデータセットでのみ使用できます。
WRITE RBAESDSデータセットでのみ使用できます。
DELAYコマンドが発行したリモート・リクエストの取消しではサポートされません。
指定されない場合、START LENGTHは自動的に設定されます。デフォルト値の書式はLENGTH OF data-areaです。data-areaFROMで指定されます。
このオプションは、TERMIDと一緒には使用できません。
/Q、ARTSRM_ORAまたはARTSRM_UDB実装が使用される場合、指定するREQIDSTART非同期CICS遅延トランザクションで一意である必要があります。
このコマンドをサポートするには、Oracle TuxedoサーバーTMUSREVTUBBCONFIGファイルで構成する必要があります。
TERMIDオプションは、START TRANSIDコマンドのRTRANSID/RTERMID/QUEUEオプションと一緒には使用できません。
セキュリティ・スタブはUSERIDおよびTRANSIDで呼び出されます。
1から99の範囲の値を指定します。この数値はジャーナル識別子として使用されます。JFILEIDnnとして指定した場合、ジャーナルはジャーナル・ファイルDFHJnnに書き込まれます。
JESへの自動送信でJCLファイルに/*XEQ NODE行が定義されていない場合は、ローカル・ノードのみがサポートされます。
INTRDRのみをサポート
SHMモードでは、ARTSTRN/1ARTATRN/1およびARTDPLのみがサポートされます。
VTAMのみが返されます。
ACQUIREDのみが返されます。CONNSTATUSACQSTATUSと同じです。
サポートされる他のすべてのINQUIRE NETNAMEオプションについては、INQUIRE TERMINALを参照してください。
KIX_CICS_RELEASE環境変数またはシステム構成ファイルsystems.descCICS_RELEASEに構成されている値を返します。
両方とも構成されている場合は、systems.desc内の値が返されます。両方とも構成されていない場合は、値'0660' (CICS 4.1に対応)が返されます。
NOTAPPLICのみが返されます。
-
-
CREATESESS: NOCREATE
-
REMOTESYSTEM: 空白
-
SERVSTATUS: INSERVICEおよびOUTSERVICE
-
TRACING: STANTRACE
CONNSTATUSACQSTATUSと同じです。
VSAMのみが返されます。
DSNAMEのデフォルト値はVSAMファイル名です。SET FILE DSNAMEで指定されている場合、INQUIRE FILE DSNAMEは指定された値を返します。
NOEMPTYREQのみが返されます。
0のみが返されます。
0のみが返されます。
NOTTABLEのみが返されます。
このオプションを使用するには、programs.descRESCOUNT-STATENABLEDに設定する必要があります。
認識済。RUNNINGのみが返されます。
認識済。NULLのみが返されます。
サポートされるCVDA値は、DISABLEDおよびENABLEDです。
サポートされるCVDA値は、CLOSEDおよびOPENです。
ART for CICSでは、SET PROGRAM COPY (NEWCOPY)およびSET PROGRAM COPY (PHASEIN)に同じセマンティクスが実装されます。
NEWCOPYコマンドを使用してプログラムを再ロードする場合、新たにコンパイルした実行可能ファイルをランタイム環境にコピーする前にコンパイル済の実行可能ファイルを削除する必要があります。
サポートされるCVDA値は、ATIおよびNOATIです。
サポートされるCVDA値は、INSERVICEおよびOUTSERVICEです。
サポートされるCVDA値は、ACQUIREDおよびRELEASEDです。
サポートされるCVDA値は、NOTTIおよびTTIです。
サポートされるCVDA値は、TASKおよびUOWです。
WCCのビット2/3が00で、ビット4が1の場合、LENGTHおよびFLENGTHは1896を超えることはできません。
注意:
CLIENTSENDERSERVERおよびRECEIVERを含むすべてのCVDA値が認識済です。
WEB EXTRACT (サーバー)
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableHTTPRequestLine
常にHTTPYESが返されます。
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableCustomHTTPHeaders
SALT有効化プロパティ: enableHTTPRequestLine
WEB RECEIVE (サーバー)
常にHTTPYESが返されます。
WEB SEND (サーバー)
SALT有効化プロパティ: enableHTTPRequestLine
SALT有効化プロパティ: enableCustomHTTPHeaders
注意:
RESPRESP2およびNOHANDLEは、すべてのコマンドでサポートされます。
一部のCICSコマンドにはARTSRMサーバーが必要です。これらのCICSコマンドの完全なセットは、「ARTSRMの構成」を参照してください。
INQUIRE TERMINALSET TERMINALISSUE PASSおよびEXTRACT LOGONMSGにはARTLOGNサーバーが必要です。
 
間隔制御サービス
書込み演算子の外部インタフェース
WRITE OPERATOR関数は、ExternWriteOperatorという名前のスタブを呼び出します。
ExternWriteOperatorは、WRITE OPERATORのすべてのパラメータを受け取り、リターン・コード内で単にゼロを返し、他に何も返しません。
次に説明するインタフェースが考慮されたカスタマ関数に置き換えることができます。WRITE OPERATORは次のパラメータを渡し、符号付きint書式のリターン・コードを予期します。
リスト14‑1 WRITE OPERATORのパラメータ
TEXT pic x(1024).
TEXTLENGTH PIC S9(9) COMP-5.
ROUTECODES pic x(1024).
NUMROUTES PIC S9(9) COMP-5.
ACTION PIC X(2).
REPLY pic x(1024).
MAXLENGTH PIC S9(9) COMP-5.
REPLYLENGTH PIC S9(9) COMP-5.
TIMEOUT PIC S9(9) COMP-5.
 
S9(9) COMP-5は、符号付きintと同等です。
リクエストされた場合、つまりMAXLENGTH > 0の場合に、パラメータREPLYREPLYLENGTHWRITE OPERATOR関数に返される場合があります。
ExternWriteOperatorのためのサンプルCOBOLコード
リスト14-2 サンプルExternWriteOperator.cblコード
IDENTIFICATION DIVISION.
PROGRAM-ID. "ExternWriteOperator".
DATA DIVISION.
WORKING-STORAGE SECTION.
copy "ctypes".
01 ret-code usage int.
LINKAGE SECTION.
01 LK-TEXT pic x(1024).
01 LK-TEXTLENGTH PIC S9(9) COMP-5.
01 LK-ROUTECODES pic x(1024).
01 LK-NUMROUTES PIC S9(9) COMP-5.
01 LK-ACTION PIC X(2).
01 LK-REPLY pic x(1024).
01 LK-MAXLENGTH PIC S9(9) COMP-5.
01 LK-REPLYLENGTH PIC S9(9) COMP-5.
01 LK-TIMEOUT PIC S9(9) COMP-5.
 
PROCEDURE DIVISION USING LK-TEXT LK-TEXTLENGTH LK-ROUTECODES
LK-NUMROUTES LK-ACTION LK-REPLY
LK-MAXLENGTH LK-REPLYLENGTH LK-TIMEOUT.
 
 
* * display "ExternWriteOperator : LK-TEXT =<" LK-TEXT ">"
* * display "ExternWriteOperator : LK-TEXTLENGTH =<" LK-TEXTLENGTH ">"
* * display "ExternWriteOperator : LK-ROUTECODES =<" LK-ROUTECODES ">"
* * display "ExternWriteOperator : LK-NUMROUTES =<" LK-NUMROUTES ">"
* * display "ExternWriteOperator : LK-ACTION =<" LK-ACTION ">"
* * display "ExternWriteOperator : LK-REPLY =<" LK-REPLY ">"
* * display "ExternWriteOperator : LK-MAXLENGTH =<" LK-MAXLENGTH ">"
* * display "ExternWriteOperator : LK-REPLYLENGTH =<" LK-REPLYLENGTH ">"
* * display "ExternWriteOperator : LK-TIMEOUT =<" LK-TIMEOUT ">"
 
* * in case of REPLY
if LK-MAXLENGTH > zero
* * move "..............." to LK-REPLY
* * move 15 to LK-REPLYLENGTH
end-if
 
move zero to ret-code
* * return code
* * 0 = OK
* * -1 = operation failed (INVREC wil returned to the user program)
* * -9 = time out ocurred before the operators's reply was received
 
 
GOBACK returning ret-code.
問合せセキュリティのための外部インタフェース
QUERY SECURITY関数は、ExternQuerySecurityという名前のスタブを呼び出します。
提供されたExternQuerySecurityスタブは、QUERY SECURITYのすべてのパラメータを受け取り、リソースへのアクセスを常に許可し、リターン・コードでゼロを返します。次に説明する、インタフェースを遵守するカスタマ関数に置き換えることができます。
QUERY SECURITYは、次のパラメータを渡します。
リスト14-3 問合せセキュリティExternインタフェース
restype pic x(7).
restype-data-value pic x(12).
resclass pic x(8).
resclass-data-value pic x(8).
residlength pic x(11).
residlength-data-value pic s9(8) comp-5.
resid pic x(5).
resid-data-value pic x(246).
logmessage pic x(10).
logmessage-cvda pic s9(8) comp-5.
read pic x(10).
read-cvda pic s9(8) comp-5.
update pic x(10).
update-cvda pic s9(8) comp-5.
control pic x(10).
control-cvda pic s9(8) comp-5.
alter pic x(10).
alter-cvda pic s9(8) comp-5.
resp pic s9(8) comp-5.
resp2 pic s9(8) comp-5.
userid                      pic x(8).
すべてのパラメータがExternQuerySecurityに渡され、戻り値としては、次のパラメータだけが予期されます。
read-cvda pic s9(8) comp-5.
update-cvda pic s9(8) comp-5.
control-cvda pic s9(8) comp-5.
alter-cvda pic s9(8) comp-5.
resp pic s9(8) comp-5.
resp2 pic s9(8) comp-5.
「read」に「READ」が適用されると、read-cvdaが予期されます。
「update」に「READ」が適用されると、update-cvdaが予期されます。
「control」に「READ」が適用されると、control-cvdaが予期されます。
「alter」に「READ」が適用されると、alter-cvdaが予期されます。
「resp」と「resp2」は、常に予期されます。
注意:
各インタフェース・フィールドの末尾は2進数のゼロで、ExternQuerySecurityをCで書く場合に便利です。
「read」のcvda値は、次のとおりです。
READABLE 35.
NOTREADABLE 36.
「update」のcvda値は、次のとおりです。
UPDATABLE 37.
NOTUPDATABLE 38.
「control」のcvda値は、次のとおりです。
CTRLABLE 56.
NOTCTRLABLE 57.
「alter」のcvda値は、次のとおりです。
ALTERABLE 52.
NOTALTERABLE 53.
詳細は、IBMのドキュメントでcvda値を参照してください。
S9(9) COMP-5は、符号付きintと同等です。
ExternQuerySecurityのためのサンプルCOBOLコード
リスト14-4 ExternQuerySecurityのためのサンプルCOBOLコード
IDENTIFICATION DIVISION.
PROGRAM-ID. "ExternQuerySecurity".
DATA DIVISION.
WORKING-STORAGE SECTION.
copy "ctypes".
01 ret-code usage int.
01 cvda-logmessage pic s9(8) comp-5.
88 LOG value 54.
88 NOLOG value 55.
01 cvda-read pic s9(8) comp-5.
88 READABLE value 35.
88 NOTREADABLE value 36.
01 cvda-update pic s9(8) comp-5.
88 UPDATABLE value 37.
88 NOTUPDATABLE value 38.
01 cvda-control pic s9(8) comp-5.
88 CTRLABLE value 56.
88 NOTCTRLABLE value 57.
01 cvda-alter pic s9(8) comp-5.
88 ALTERABLE value 52.
88 NOTALTERABLE value 53.
LINKAGE SECTION.
01 LK-restype pic x(7).
01 LK-restype-data-value pic x(12).
01 LK-resclass pic x(8).
01 LK-resclass-data-value pic x(8).
01 LK-residlength pic x(11).
01 LK-residlength-data-value pic s9(8) comp-5.
01 LK-resid pic x(5).
01 LK-resid-data-value pic x(246).
01 LK-logmessage pic x(10).
01 LK-logmessage-cvda pic s9(8) comp-5.
01 LK-read pic x(10).
01 LK-read-cvda pic s9(8) comp-5.
01 LK-update pic x(10).
01 LK-update-cvda pic s9(8) comp-5.
01 LK-control pic x(10).
01 LK-control-cvda pic s9(8) comp-5.
01 LK-alter pic x(10).
01 LK-alter-cvda pic s9(8) comp-5.
01 LK-resp pic s9(8) comp-5.
01 LK-resp2 pic s9(8) comp-5.
       01 LK-userid                      pic x(8).
PROCEDURE DIVISION USING LK-restype
LK-restype-data-value
LK-resclass
LK-resclass-data-value
LK-residlength
LK-residlength-data-value
LK-resid
LK-resid-data-value
LK-logmessage
LK-logmessage-cvda
LK-read
LK-read-cvda
LK-update
LK-update-cvda
LK-control
LK-control-cvda
LK-alter
LK-alter-cvda
LK-resp
LK-resp2
                                LK-userid
.
* * display "ExternQuerySecurity : LK-restype =" LK-restype
* * display "ExternQuerySecurity : LK-restype-data-value =" LK-restype-data-value
* * display "ExternQuerySecurity : LK-resclass =" LK-resclass
* * display "ExternQuerySecurity : LK-resclass-data-value =" LK-resclass-data-value
* * display "ExternQuerySecurity : LK-residlength =" LK-residlength
* * display "ExternQuerySecurity : LK-residlength-data-value=" LK-residlength-data-value
* * display "ExternQuerySecurity : LK-resid =" LK-resid
* * display "ExternQuerySecurity : LK-resid-data-value =" LK-resid-data-value
* * display "ExternQuerySecurity : LK-logmessage =" LK-logmessage
* * display "ExternQuerySecurity : LK-logmessage-cvda =" LK-logmessage-cvda
* * display "ExternQuerySecurity : LK-read =" LK-read
* * display "ExternQuerySecurity : LK-read-cvda =" LK-read-cvda
* * display "ExternQuerySecurity : LK-update =" LK-update
* * display "ExternQuerySecurity : LK-update-cvda =" LK-update-cvda
* * display "ExternQuerySecurity : LK-control =" LK-control
* * display "ExternQuerySecurity : LK-control-cvda =" LK-control-cvda
* * display "ExternQuerySecurity : LK-alter =" LK-alter
* * display "ExternQuerySecurity : LK-alter-cvda =" LK-alter-cvda
* * display "ExternQuerySecurity : LK-resp =" LK-resp
* * display "ExternQuerySecurity : LK-resp2 =" LK-resp2
 
 
if address of LK-read not = null
if LK-read = "READ"
set READABLE to true
move cvda-read to LK-read-cvda
end-if
end-if
if address of LK-update not = null
if LK-update = "UPDATE"
set UPDATABLE to true
move cvda-update to LK-update-cvda
end-if
end-if
if address of LK-control not = null
if LK-control = "CONTROL"
set CTRLABLE to true
move cvda-control to LK-control-cvda
end-if
end-if
if address of LK-alter not = null
if LK-alter = "ALTER"
set ALTERABLE to true
move cvda-alter to LK-alter-cvda
end-if
end-if
 
move zero to LK-resp LK-resp2
 
move zero to ret-code
* * return code
* * 0 = OK
* * -1 = operation failed (INVREC wil returned to the user program)
 
GOBACK returning ret-code.
 
 
C言語によるExternQuerySecurityの開発
1.
int ExternQuerySecurity(char *restype, char *restype_data_value, char *resclass, char *resclass_data_value, char *residlength, int *residlength_data_value, char *resid, char *resid_data_value, char *logmessage, int *logmessage_cvda, char *read, int *read_cvda, char *update, int *update_cvda, char *control, int *control_cvda, char *alter, int *alter_cvda, int *resp, int *resp2, char *userid);
2.
ExternQuerySecurity.oを生成し、それをARTサーバー(STRN、STR1、ATRN、ATR1、CTRN、CTR1)にリンクさせます。
3.
4.
サポートされているEIBフィールド
次の表では、Oracle Tuxedo ART for CICSでサポートされているEIBフィールドについて説明します。
 
サポートされているBMSマクロ
Oracle Tuxedo ART for CICSによりサポートされているBMSマクロについて、次に説明します。
マップセットDFHMSD
TYPE=(リストから1つのみ選択)
SYSPARM (recognized)
DSECT (recognized)
MAP (recognized)
FINAL
注意:
recognizedは、関数は完了していないが、MAPGENコンパイルの実行時にエラーがないことを意味します。
MODE=(リストから1つのみ選択)
OUT
IN
INOUT
LANG=(リストから1つのみ選択)
COBOL
PLI
C
STORAGE=AUTO
BASE=NAME
CTRL=(リストから任意の組合せをコンマで区切って選択)
FREEKB
ALARM
FRSET
EXTATT=(リストから1つのみ選択)
NO
MAPONLY
YES
COLOR=(リストから1つのみ選択)
DEFAULT
Color
HILIGH=(リストから1つのみ選択)
OFF
BLINK
REVERSE
UNDERLINE
PS=(リストから1つのみ選択)
Psid
TERM=3270-2
SUFFIX=(1桁の英数字または空白)
MAPATTS=(リストから任意の組合せをコンマで区切って選択)
COLOR
HILIGHT
OUTLINE
PS
SOSI
DSATTS=(リストから任意の組合せをコンマで区切って選択)
COLOR
HILIGHT
OUTLINE
PS
SOSI
OUTLINE=(リストから1つのみ選択)
BOX
LEFT
LEFT,RIGHT
LEFT,OVER
LEFT,UNDER
LEFT,RIGHT,OVER
LEFT,RIGHT,UNDER
LEFT,RIGHT,OVER,UNDER
RIGHT
RIGHT,OVER
RIGHT,UNDER
RIGHT,OVER,UNDER
OVER
OVER,UNDER
UNDER
SOSI=(リストから1つのみ選択)
YES
NO
マップDFHMDI
SIZE=(line,column)
CTRL=(リストから任意の組合せをコンマで区切って選択)
FREEKB
ALARM
FRSET
EXTATT=(リストから1つのみ選択)
NO
MAPONLY
YES
COLOR=(リストから1つのみ選択)
DEFAULT
Color
HILIGHT=(リストから1つのみ選択)
OFF
BLINK
REVERSE
UNDERLINE
PS=(リストから1つのみ選択)
psid
MAPATTS=(リストから任意の組合せをコンマで区切って選択)
COLOR
HILIGHT
OUTLINE
PS
SOSI
DSATTS=(リストから任意の組合せをコンマで区切って選択)
COLOR
HILIGHT
OUTLINE
PS
SOSI
OUTLINE=(リストから1つのみ選択)
BOX
LEFT
LEFT,RIGHT
LEFT,OVER
LEFT,UNDER
LEFT,RIGHT,OVER
LEFT,RIGHT,UNDER
LEFT,RIGHT,OVER,UNDER
RIGHT
RIGHT,OVER
RIGHT,UNDER
RIGHT,OVER,UNDER
OVER
OVER,UNDER
UNDER
SOSI=(リストから1つのみ選択)
YES
NO
COLUMN=(リストから1つのみ選択)
SAME
Number
NEXT
LINE=(リストから1つのみ選択)
SAME
Number
NEXT
JUSTIFY=(リストから1つのみ選択)
LEFT
LEFT,FIRST
LEFT,LAST
RIGHT
RIGHT,FIRST
RIGHT,LAST
BOTTOM
HEADER=YES
TRAILER=YES
フィールドDFHMDF
CASE=MIXED
POS=(リストから1つのみ選択)
Number
Line,Column
LENGTH=number
JUSTIFY=(リストから1つのみ選択)
LEFT
LEFT,BLANK
LEFT,ZERO
RIGHT
RIGHT,BLANK
RIGHT,ZERO
INITIAL='char-data'
XINIT='hex-data'
GINIT='DBCS-characters'
ATTRB=(parameter group A, parameter B, parameter group C)
パラメータ・グループAから正確に1つだけ選択します。
ASKIP
PROT
UNPROT
UNPROT,NUM
パラメータ・グループBからゼロまたは1つ選択します。
BRT
NORM
DRK
パラメータ・グループCから任意の組合せ(ゼロからすべて)を選択します。このグループは、グループBのパラメータも使用される場合にのみ許容されます。
IC
FSET
COLOR=(リストから1つのみ選択)
DEFAULT
Color
PS=(リストから1つのみ選択)
Psid
HILIGHT=(リストから1つのみ選択)
OFF
BLINK
REVERSE
UNDERLINE
GRPNAME=group-name
OCCURS=number
PICIN='value'
PICOUT='value'
OUTLINE=(リストから1つのみ選択)
BOX
LEFT
LEFT,RIGHT
LEFT,OVER
LEFT,UNDER
LEFT,RIGHT,OVER
LEFT,RIGHT,UNDER
LEFT,RIGHT,OVER,UNDER
RIGHT
RIGHT,OVER
RIGHT,UNDER
RIGHT,OVER,UNDER
OVER
OVER,UNDER
UNDER
SOSI=(リストから1つのみ選択)
YES
NO
サポートされているECI C APIパラメータ
次の表では、Oracle Tuxedo ART for CICSでサポートされているECI C APIパラメータについて説明します。
注意:
ECI v1 API CICS_ExternalCall (ECI_Parms)のみがサポートされています。
 
eci_program_nameは、ART CICSのprograms.descで定義されているプログラム名です。
セキュリティがART CICS側で有効でない場合、eci_useridはECIエミュレータでチェックされません。
セキュリティがART CICS側で有効でない場合、eci_passwordはECIエミュレータでチェックされません。
サポートされているCPIC APIパラメータ
次の表では、Oracle Tuxedo ART for CICSでサポートされているCPIC APIパラメータについて説明します。
ART CICS CPI-Cクライアントでは、cminitによって設定されたシンボリック宛先名を使用してリモートCICSシステムIDが指定されます。
CM_SECURITY_PROGRAMCM_SECURITY_NONEの2つのタイプのみがサポートされています。
cmsplnは、ART CICS CPI-Cサポートで実装されるダミー関数です。リモートCICSを指定するには、cminitを使用してシンボリック宛先名を設定してください。
 
ART CICS CPI-Cクライアントでは、cminitによって設定されたシンボリック宛先名を使用してリモートCICSシステムIDが指定されます。

Copyright ©1994, 2017,Oracle and/or its affiliates. All rights reserved