06开发序列培训文档的模板.docx
- 文档编号:1162132
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:58
- 大小:125.91KB
06开发序列培训文档的模板.docx
《06开发序列培训文档的模板.docx》由会员分享,可在线阅读,更多相关《06开发序列培训文档的模板.docx(58页珍藏版)》请在冰点文库上搜索。
06开发序列培训文档的模板
常用副程式
1JC0002身份證字號(ID)轉換-(ID-TO-NUM)的應用說明3
1.1目的3
1.2處理範圍3
1.3輸入值與回傳值4
1.4使用方法4
1.5JC0002的原始碼5
1.6注意事項5
2JC0003身份證字號(ID)轉換-(NUM-TO-ID)的應用說明5
2.1目的5
2.2處理範圍5
2.3輸入值與回傳值6
2.4使用方法7
2.5JC0003的原始碼7
2.6注意事項7
3JCR508[YYYYDDDTORRRMMDD/YYYYMMDD]的應用說明8
3.1目的8
3.2處理範圍8
3.3輸入值與回傳值8
3.4使用方法9
3.5JCR508的原始碼10
3.6注意事項10
4JCR507[RRRMMDD/YYYYMMDDTOYYYYDDD]的應用說明11
4.1目的11
4.2處理範圍11
4.3輸入值與回傳值11
4.4使用方法12
4.5JCR507的原始碼13
4.6注意事項14
5JCRDATE3[RRRMMDD]合理性檢核)的應用說明15
5.1目的15
5.2處理範圍15
5.3輸入值與回傳值15
5.4使用方法15
5.5JCRDATE3的原始碼17
5.6注意事項18
6JCRDIFD3[RRRMMDD+/-N天]的應用說明19
6.1目的19
6.2處理範圍19
6.3輸入值與回傳值19
6.4使用方法19
6.5JCRDIFD3的原始碼20
6.6注意事項22
7JCGDATE[YYYYMMDD合理性檢核]的應用說明23
7.1目的23
7.2處理範圍23
7.3輸入值與回傳值23
7.4使用方法23
7.5JCGDATE的原始碼25
7.6注意事項26
8JCRCYWIN[RRMMDDWINDOWINGTORRRMMDD]的應用說明27
8.1目的27
8.2處理範圍27
8.3輸入值與回傳值27
8.4使用方法28
8.5JCRCYWIN的原始碼28
8.6注意事項29
9CHK0E0FP[處理0E、0F及中文資料]的應用說明29
9.1目的29
9.2處理範圍29
9.3輸入值與回傳值31
9.4使用方法31
9.5CHK0E0FP的原始碼32
9.6注意事項32
10CPS550FROMCARD-NO算出CARDTYPE的應用說明32
10.1目的32
10.2處理範圍32
10.3輸入值與回傳值33
10.4使用方法33
10.5CPS550的原始碼34
10.6注意事項34
1JC0002身份證字號(ID)轉換-(ID-TO-NUM)的應用說明
1.1目的
身份證字號(ID)轉換-(ID-TO-NUM)
1.2處理範圍
一般正常身份證號(第1碼字符后10碼為數字)A000000000~Z999999999
In
Out
A000000000
0000010000000000
….
…
Z999999999
0000035999999999
DOMESTICDUPLICATION身份證號:
第1碼是字符,第11碼是數字
EX:
In
Out
A1234567891
0001012345678901
FOREIGNERDUPLICATION身份證號:
第1碼是’1’,第11碼是數字
EX:
In
Out
19930406AB1
0019930406101101
FOREIGNERDUPLICATION身份證號:
第1碼是’1’,第9,10碼是數字
EX:
In
Out
1993040635
199304060305
DOMESTICCORPDUPLICATION身份證號:
第1碼是’9’,第2码是字符,第12碼是數字
EX:
In
Out
9A0123456789
91001234567809
FOREIGNERCORPDUPLICATION身份證號:
第1碼是’9’,第2码是’1’,第12碼是數字
EX:
In
Out
919930406AB1
919930406101101
FOREIGNERCORPDUPLICATION身份證號:
第1碼是’9’,第2码是’1’,第10,11碼是數字
EX:
In
Out
91993040439
9199304040309
特殊:
In
Out
Out-WS-CHECK-CODE
文字
0000000000000000
1
LOWVALUE
0000000000000000
1
空白
0000000000000000
1
1.3輸入值與回傳值
輸入值與回傳值
使用COPYBOOK:
JC0001
********************************************************************
**COPYBOOK:
JC0001*
**PROCESS:
CUSTOMER(ID)CONVERTTONUMERIC*
**ATOZCONVERTTO10TO35*
**WORKAREAS*
********************************************************************
01WS-DTE-WKAREA.
03WS-CHECK-CODEPICX.
88WS-CHECK-OKVALUE'0'.
88WS-CHECK-ERRORVALUE'1'.
*
03WS-CUS-DATA-1PIC9(16)VALUEZEROS.
*
03WS-CUS-DATAPICX(16)VALUESPACES.
03WS-CUS-DATAAREDEFINESWS-CUS-DATA
PICXOCCURS16.
*
03WS-CUS-DATA-OREDEFINESWS-CUS-DATA-Z.
05WS-CUS-DATAOPIC9(16).
*
1.4使用方法
1.4.1將要接受轉換的16位數身份證字符搬到WS-CUS-DATA
1.4.2再執行PERFORMCUS-ID-TO-NUMTHRUCUS-ID-TO-NUM-EXIT.
1.4.3JC0002回傳16位數之身份證數字型WS-CUS-DATAO以及其身份證檢核碼WS-CHECK-CODE.
Example:
參考程式:
JCCPB444
====================
COPYJC0001(WORKING)
COPYJC0002(PROCEDURE)
*****
MOVESAVE-CUST-IDTOWS-CUS-DATA.
PERFORMCUS-ID-TO-NUMTHRUCUS-ID-TO-NUM-EXIT.
IFWS-CHECK-OK
MOVEWS-CUS-DATAOTOCR-ACCT-NMBR
ELSE
GOTO100-EXIT.
*****
1.5JC0002的原始碼
請見CPCPCMN.SRC.BOOKC(JC0002)
1.6注意事項
1.6.1一些非法的身份證號,如1234567890123451也是能轉換的,返回碼WS-CHECK-OK也是TRUE.
2JC0003身份證字號(ID)轉換-(NUM-TO-ID)的應用說明
2.1目的
身份證字號(ID)轉換-(NUM-TO-ID)
2.2處理範圍
一般正常身份證號(第1碼字符后10碼為數字)10000000000~36000000000
In
Out
0000010000000000
A000000000
…
….
0000035999999999
Z999999999
CORP公司統編號0~100000000
EX:
In
Out
0000000013077608
13077608
CORP&DOMESTICID900000000000~1000000000000
EX:
In
Out
0000910123456789
9A123456789
DOMESTICID&DUPLICATION1000000000000~3600000000000
EX:
In
Out
0001012345678910
A123456789A
0001012345678901
A1234567891
CORP&IDDUPLI90000000000000~100000000000000
EX:
In
Out
0091012345678910
9A123456789A
FOREIGNER190000000000~200000000000
EX:
In
Out
0000199304063435
19930406YZ
FOREIGNER19000000000000~20000000000000
EX:
In
Out
0019930406343501
19930406YZ1
FOREIGNER900000000000000~1000000000000000
EX:
In
Out
0919930406343501
919930406YZ1
特殊:
In
Out
文字
文字
LOWVALUE
LOWVALUE
空白
空白
2.3輸入值與回傳值
輸入值與回傳值
使用COPYBOOK:
JC0001
********************************************************************
**COPYBOOK:
JC0001*
**PROCESS:
CUSTOMER(ID)CONVERTTONUMERIC*
**ATOZCONVERTTO10TO35*
**WORKAREAS*
********************************************************************
01WS-DTE-WKAREA.
03WS-CHECK-CODEPICX.
88WS-CHECK-OKVALUE'0'.
88WS-CHECK-ERRORVALUE'1'.
*
03WS-CUS-DATA-1PIC9(16)VALUEZEROS.
*
03WS-CUS-DATA-Z.
05WS-CUS-DATAZPICXOCCURS16.
03WS-CUS-DATA-SREDEFINESWS-CUS-DATA-Z.
05WS-CUS-DATASOCCURS16TIMES
INDEXEDBYX-WS-CUS-DATAS
PICX.
03WS-CUS-DATA-OREDEFINESWS-CUS-DATA-Z.
05WS-CUS-DATAOPIC9(16).
*
2.4使用方法
2.4.1將要接受轉換的16位數身份證字符搬到WS-CUS-DATA-1
2.4.2再執行PERFORMCUS-NUM-TO-IDTHRUCUS-NUM-TO-ID-EXIT
2.4.3JC0003回傳16位數之身份證字符型WS-CUS-DATA-Z以及其身份證檢核碼WS-CHECK-CODE.
Example:
參考程式:
JCAPB083
====================
COPYJC0001(WORKING)
COPYJC0003(PROCEDURE)
*****
MOVEEMPO-CUSTOMER-NMBRTOWS-CUS-DATA-1.
PERFORMCUS-NUM-TO-IDTHRUCUS-NUM-TO-ID-EXIT.
IFWS-CHECK-OK
MOVEWS-CUS-DATA-ZTOWK-ID
ELSE
GOTO3000-EXIT.
*****
2.5JC0003的原始碼
請見CPCPCMN.SRC.BOOKC(JC0003)
2.6注意事項
2.6.1任何身份證號,即使是非法的,返回碼WS-CHECK-OK也是TRUE.
3
JCR508[YYYYDDDTORRRMMDD/YYYYMMDD]的應用說明
3.1目的
JCR508成立的目的在取代CCS508太陽日轉民國日的功能,另順道提供太陽日轉西元的功能.執行它,同時可以得到7位數的民國日期與8位數的西元日期.
3.2處理範圍
正常:
1911-001(民國00年01月01日)~2199-365(民國288年12月31日)
特殊:
In
Out
文字
零
LOWVALUE
零
空白
零
0
零
平年第366天
ABEND
>366天
零
3.3輸入值與回傳值
JCR508的輸入值與回傳值,均存放在COPYBOOK,JCCSR301定義的變數裡.
01R301-WORK-AREA.
*
05R301-DTE-JULPIC9(7)VALUEZERO.
05R301-DTE-JUL-RREDEFINESR301-DTE-JUL.
10R301-DTE-JUL-YYYYPIC9(4).
10R301-DTE-JUL-DDDPIC9(3).
*
05R301-DTE-REPPIC9(7)VALUEZERO.
05R301-DTE-REP-RREDEFINESR301-DTE-REP.
10R301-DTE-REP-RRRPIC9(3).
10R301-DTE-REP-MMPIC9
(2).
10R301-DTE-REP-DDPIC9
(2).
*
05R301-DTE-GREPIC9(8)VALUEZERO.
05R301-DTE-GRE-RREDEFINESR301-DTE-GRE.
10R301-DTE-GRE-YYYYPIC9(4).
10R301-DTE-GRE-MMPIC9
(2).
10R301-DTE-GRE-DDPIC9
(2).
*
05R301-DTE-WSPIC9(8)VALUEZERO.
05R301-DTE-R-WSREDEFINESR301-DTE-WS.
10R301-DTE-YYYY-WSPIC9(4).
10R301-DTE-MM-WSPIC9
(2).
10R301-DTE-DD-WSPIC9
(2).
05R301-DTE-QUT-WSPIC9
(2)VALUEZERO.
05R301-DTE-REM-WSPIC9(3)VALUEZERO.
*
05R301-DTE-TABLE.
10FILLERPICX(39)VALUE
'000031059090120151181212243273304334365'.
05R301-BDMREDEFINESR301-DTE-TABLE
PIC999OCCURS13TIMES
INDEXEDBY
R301-BDM-IDX.
3.4使用方法
3.4.1將太陽日搬到R301-DTE-JUL,
3.4.2再執行JCR508-JUL-TO-RNGTHRUJCR508-EXIT.
3.4.3JCR508即回傳2個值:
3.4.3.1民國日期R301-DTE-REP
3.4.3.2西元日期R301-DTE-GRE
Example:
……
WORKING-STORAGESECTION.
COPYJCCSR301.
……
PROCEDUREDIVISION.
……
MOVEIN-DATETOR301-DTE-JUL.註:
IN-DATEPIC9(7)或X(7).
PERFORMJCR508-JUL-TO-RNGTHRUJCR508-EXIT.
MOVER301-DTE-REPTO……
MOVER301-DTE-GRETO……
……
COPYJCR508.
3.5JCR508的原始碼
******************************************************************
*JCR508CCSCOMMONJUL-TO-REPUBLIC/GREGDATEROUTINE*
******************************************************************
*INPUT:
*1.MOVEJULIANDAY(YYYYDDD)TOR301-DTE-JUL
*CALL:
*2.PERFORMJCR508-JUL-TO-RNGTHRUJCR508-EXIT
*(REPUBLIC&GREGORIAN)
*OUTPUT:
*3.R301-DTE-REP(RRRMMDD)民國
*4.R301-DTE-GRE(YYYYMMDD)西元
****************************************************************
JCR508-JUL-TO-RNG.
*
INITIALIZER301-DTE-GRE
R301-DTE-REP.
*
IFR301-DTE-JULNOTNUMERIC
MOVE0TOR301-DTE-JUL.
*
IF(R301-DTE-JUL-DDD=0OR
R301-DTE-JUL-DDD>366)
MOVE0TOR301-DTE-JUL.
*
IFR301-DTE-JUL-YYYY<1601OR
R301-DTE-JUL-YYYY>9999
MOVE0TOR301-DTE-JUL.
*
IFR301-DTE-JUL=0
MOVE0TOR301-DTE-REP
MOVE0TOR301-DTE-GRE
GOTOJCR508-EXIT.
*
COMPUTER301-DTE-GRE=FUNCTIONINTEGER-OF-DAY(R301-DTE-JUL).
COMPUTER301-DTE-GRE=FUNCTIONDATE-OF-INTEGER(R301-DTE-GRE)
COMPUTER301-DTE-REP=R301-DTE-GRE-19110000.
*
JCR508-EXIT.
EXIT.
3.6注意事項
3.6.1JCR508保証(實測過)可以轉換的日期範圍相當於1911年1月1日~2199年12月31日.
3.6.2空白,零,和其他非數字型態的輸入值,只會轉出全0的民國日和西元日.
3.6.3數字型態,但超出2.6.1所述範圍,或其他不合理的日期,只會轉出無法預期的數值,並且不會ABEND.這是相仿CCS508的模式.只有唯一一個例外,就是當輸入值為平年的第366天時,JCR508才會造成ABEND.這是COBOLDATEFUNCTION的限制.對於不合理的日期會直接ABEND.
4
JCR507[RRRMMDD/YYYYMMDDTOYYYYDDD]的應用說明
4.1目的
JCR507成立的目的在取代CCS507民國/西元轉太陽日的功能.執行它,可以得到7位數的太陽日.
4.2處理範圍
正常:
1911-001(民國00年01月01日)~2199-365(民國288年12月31日)
特殊:
In
Out
文字
零
LOWVALUE
零
空白
零
0
零
平年2月29
錯誤數值
4.3輸入值與回傳值
JCR507的輸入值與回傳值,均存放在COPYBOOK,JCCSR301定義的變數裡.
01R301-WORK-AREA.
*
05R301-DTE-JULPIC9(7)VALUEZERO.
05R301-DTE-JUL-RREDEFINESR301-DTE-JUL.
10R301-DTE-JUL-YYYYPIC9(4).
10R301-DTE-JUL-DDDPIC9(3).
*
(民國轉
太陽)
05R301-DTE-REPPIC9(7)VALUEZERO.
05R301-DTE-REP-RREDEFINESR301-DTE-REP.
10R301-DTE-REP-RRRPIC9(3).
10R301-DTE-REP-MMPIC9
(2).
10R301-DTE-REP-DDPIC9
(2).
*
05R301-DTE-GREPIC9(8)VALUEZERO.
(西元轉
太陽)
05R301-DTE-GRE-RREDEFINESR301-DTE-GRE.
10R301-DTE-GRE-YYYYPIC9(4).
10R301-DTE-GRE-MMPIC9
(2).
10R301-DTE-GRE-DDPIC9
(2).
*
05R301-DTE-WSPIC9(8)VALUEZERO.
05R301-DTE-R-WSREDEFINESR301-DTE-WS.
10R301-DTE-YYYY-WSPIC9(4).
10R301-DTE-MM-WSPIC9
(2).
10R301-DTE-DD-WSPIC9(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 06 开发 序列 培训 文档 模板