TXeries CIC for AIX 3270: DBC IBM Japan ystems Engineering Co.,Ltd. Enterprise Middleware CIC Group 1: 3270 2: TN3270 DBC
1: 3270 Blank Page
3270 3270 CIC3270 3270IDTERMID)ID4IDCIC CIC 3270 CIC3270 BM 3270CIC CIC BM3270 3270 BM 3270 BM Note 3270 CICBMBasic Mapping upport CIC (CICBM) BM BMEXEC CIC END MAP/RECEIVE MAP
3270 TRN1 TRANID) PROGRAMA () () EXEC CIC END EXEC CIC RECEIVE 3270 EXEC CIC END EXEC CIC RECEIVE...... () EXEC CIC END EXEC CIC RETURN 3270 3270 :( = COPY BOOK) BM (cicsmap) ***.map *** CIC CIC translation/ compile/link () () BM 1.BM 2.cicsmapxxx.map)xxx)»» = (COBOLCOPY BOOK)»» () 3.
3270 cicsmap BM # cicsmap filename -s -p C» xxx.map (xxx.h( IBM COBOL» xxx.map(xxx() C # cicsmap GEPI03.bms ERZ005011I/0106: (BM) 0 0 ERZ005013I/0702: 'gepi03.map' ERZ005014I/0601: 'gepi03.h' IBM COBOL # cicsmap GEPI03.bms ERZ005011I/0106: (BM) 0 0 ERZ005013I/0702: 'GEPI03.map' ERZ005014I/0601: 'GEPI03' 3270 BM(COBOL) GEPI03.bms # cicsmap GEPI03.bms GEPI03.map PDGEPI03 BM GEPI03
3270 BM(COBOL) CIC// PEPI11.ccp CIC CopyBook cicstcl -libmcob PEPI11.ibmcob PDPEPI11 TDTE11 Blank Page
3270 TE11 GEPI03 12345 TRANID=TE11 TE12 IBM JAPAN IBM EBCDIC Enter CI71Y104 Enter ENTER F9 CI71Y104 PF9 GEPI03 TE15 NORMAL ENDED 12345 EBCDIC PF9 ENTER F9 CI71Y104 CI71Y104 12345 CI71Y104 3270 *2 TRANID TRANID CIC (12345) Enter Attention ID PF9 PF9 PF9 DFHENTER 3270
3270 CIC 3270 1 EXEC CIC END/RECEIVE TRX TE12 (MG) CIC Enter TE12 (PGM PEPI12) () EX END MAP (GEPI03) WAIT BM GEPI03 Enter () () EX RECV MAP (GEPI03) EX END MAP (GEPI03) PF9 EX RECV MAP (GEPI03) EX END TEXT EX RETURN 3270 CIC TE14(PEPI14) 12345 BM GEPI03.map BM GEPI03.map
2: TN3270 Blank Page
TN3270(cicsteld) TN3270(cicsteld) 3270 EBCDIC 3270(TN3270) TN3270EBCDICJI TN3270 IBM Personal Communications (PCOM) TN3270 inetdtn3270 cicsteldtn3270 AIX TN3270 TN3270 (cicsteld) CIC EBCDIC(930) JI(943) TN3270 TN3270(inetd) cicsteld.sh inetd #ls -la grep cicsteld.sh -r-xr-xr-x 1 cics cics 1432 Oct 16 2008 cicsteld.sh /etc/services cicsteld... ci01teld 9175/tcp #cicsteld for cics01 /etc/inetd.conf cicsteld CIC... ci01teld stream tcp nowait cics /usr/lpp/cics/bin/cicsteld.sh cicsteld -r cics01 -c IBM-930 -s IBM-943 -l Ja_JP
TN3270 TN3270 (PCOM) PCOM cicsteldip TN3270 cicsteld -P -r CIC -c TN3270(EBCDIC encode) -s TN3270(TXeries)(JI) -n (WD)NetName () -e -t -l (ex. Ja_JP) inetd.conf... Y201teld stream tcp nowait cics /usr/lpp/cics/bin/cicsteld.sh cicsteld -r CI71Y201 -c IBM-930 -s IBM-943 -e teld-model -l Ja_JP Y201_TRM1 stream tcp nowait cics /usr/lpp/cics/bin/cicsteld.sh cicsteld -r CI71Y201 -c IBM-939 -s IBM-943 -n TERMTRM1 -l Ja_JP...
DBC Blank Page
<> <> ID (TT1) ID(TT2) JI => EBCDICDBC TXeries3270 (DBC) TXeries V7.1 (20105) / TN3270(PCOM, HOD, HAT) JI => EBCDIC Mixed (BC/DBC) (EXEC CIC END) JI => EBCDIC
EBCDICJI "aaaaaa" JI: 12 a a a a a a EBCDIC: 14 (12 + 2) a a a O I a a a DBC DBCO(hift-Out), I(hift-In) BC JI (: DBC 2) TN3270 AIX cicsteld EBCDIC<=>JI (iconv) a a a a a a O I TN3270 (cicsteld) a a a a a a CIC EBCDIC JI CIC(EXEC CIC END), JI -> EBCDIC 3270 3270EBCDIC PCOMCtrl+F1 Ctrl + F1 O/I O/I O/I
BM <BM Map ource> BM CIC 114 24178 BM3270 EBCDIC BMcicsmap() cicsmapcic(copy BOOK) # cicsmap GEPI03.bms ERZ005011I/0106: (BM) 0 0 ERZ005013I/0702: 'GEPI03.map' ERZ005014I/0601: 'GEPI03' : BM (cicsmap) ***.map *** (): = (COPY BOOK) BMcicsmap # cicsmap MAPDBX.bms ERZ005017W/0537: 6 ERZ005011I/0106: (BM) 0 1 ERZ005013I/0702: 'MAPDBXM.map' ERZ005014I/0601: 'MAPDBX'
(COPY BOOK) <BM Map ource> <generated COPY book> EXEC CIC END MAP // RECEIVE MAP cicsmap BM BM LENGTH LENGTH <Program ource> BMCOPY BOOK JI
BM BMTN3270 LENGTHEBCDIC LENGTH LENGTH=xxx (cicsmap) copy book program TN3270 ***.map AIX TN3270 (cicsteld) BM CIC / END MAP BMLENGTH LENGTHBM JI EBCDIC JI CIC(EXEC CIC END), JI -> EBCDIC CIC()BM EBCDIC JI BC/DBCEBCDIC CIC EBCDIC O/I(OI)3270 TN3270
: BM BMLENGTH=14Mixed LENGTH=14 (cicsmap) copy book program AIX ***.map / TN3270 EBCDIC TN3270 (cicsteld) JI BM CIC END MAP 14 O/I2 a a a a a O I a a a a a a a 16 bytes BMLENGTH=14 O/I 14 bytes (BM14) Mixed... a a a a a O I a x x x x.... BM (BM )... ()
x x x x x x O I... O I TXeries Lab BMTXeries fix / PTF DCR(Design Change Requirement) (20105)
(1) Null O/I x'20' Null x'00' Null3270() a a a a a a 14 bytes NULL (x'00') Blank Page
(2) 3270PF 3270 (BM ) (BM ) O/I O I O I O I Note BM (178 )DBCO/I O/IO/I PF11, ()BMCOBOL /