-
Notifications
You must be signed in to change notification settings - Fork 0
/
Q231217C1.CLLE
96 lines (72 loc) · 4.18 KB
/
Q231217C1.CLLE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
/*****************************************************************/
/* */
/* システム名 :Qiitaアドベントカレンダー */
/* サブシステム名 :2023 */
/* プログラム名 :CLで引数省略する方法1レガシー */
/* プログラムID : Q231217C1 */
/* 会 社 名 :株式会社中部システム */
/* */
/* 作 成 者 : CSC)Y.USHIDA */
/* 作 成 日 : 2023/12/05 */
/* テンプレート№: _______________ */
/* */
/* 変 更 者 : */
/* 変 更 日 : ____/__/__ */
/* */
/* プログラム特記事項 */
/* */
/* */
/* */
/*****************************************************************/
PGM PARM( +
&P@VAR1 +
&P@VAR2 +
)
/*======================================*/
/*引数定義 */
/*======================================*/
/*入力*/
DCL VAR(&P@VAR1 ) TYPE(*CHAR) LEN(016 ) /*IN引数1 */
DCL VAR(&P@VAR2 ) TYPE(*CHAR) LEN(016 ) /*IN引数2 */
/*======================================*/
/*変数定義 */
/*======================================*/
DCL VAR(&W@VAR1 ) TYPE(*CHAR) LEN(016 ) /*WK引数1 */
DCL VAR(&W@VAR2 ) TYPE(*CHAR) LEN(016 ) /*WK引数2 */
/*======================================*/
/*初期処理 */
/*======================================*/
/*入力引数の処理*/
CALLSUBR @INPARM
/*引数を表示*/
SNDPGMMSG MSG(&W@VAR1) MSGTYPE(*INFO)
SNDPGMMSG MSG(&W@VAR2) MSGTYPE(*INFO)
/*終了*/
CALLSUBR SUBR(@END)
/*====================================================================*/
/*入力引数の処理(引数の判定/省略値設定) */
/*====================================================================*/
SUBR @INPARM
/*入力引数の有無を判定*/
/*引数1が渡されていない時に省略値をセット*/
CHGVAR VAR(&W@VAR1 ) VALUE(&P@VAR1 )
MONMSG MSGID(MCH3601) EXEC(CHGVAR VAR(&W@VAR1 ) VALUE('省略1'))
/*引数2が渡されていない時に省略値をセット*/
CHGVAR VAR(&W@VAR2 ) VALUE(&P@VAR2 )
MONMSG MSGID(MCH3601) EXEC(CHGVAR VAR(&W@VAR2 ) VALUE('省略2'))
ENDSUBR
/*====================================================================*/
/*出力引数の処理(引数の判定/返り値設定) */
/*====================================================================*/
SUBR @OTPARM
ENDSUBR
/*====================================================================*/
/*終了処理 */
/*====================================================================*/
SUBR @END
/*出力引数の処理*/
CALLSUBR @OTPARM
/* 終了*/
RETURN
ENDSUBR
ENDPGM