COBOL
文章平均质量分 73
假装80后
一个不念过去,不畏将来的程序员
展开
-
How to compile COBOL program into shared library
This sample describe how compile mixed COBOL and C program into a single shared library, and used by C program.1. HELLOCBL.cbl: provide a COBOL function2. HELLOCPP.c : provide a C function3.原创 2016-10-18 21:34:59 · 539 阅读 · 0 评论 -
COBOL use EXTFH handler to access dataset
This is sample usage of EXTFH handler to access a file.Access an Index FileREAD-KEYREAD-RBA IDENTIFICATION DIVISION. PROGRAM-ID. READIDXF16. ENVIRONMENT原创 2016-10-19 22:49:41 · 581 阅读 · 0 评论 -
COBOL Define Your Own File Handler
What's User Defined File HandlerCustomers can build some kind of their own file handler, inner the handler you can change default operation behavior. For example you can change “OUTPUT” mode to原创 2016-10-19 22:50:30 · 1137 阅读 · 0 评论 -
COBOL GLOBAL & EXTERNAL Variable
GLOBAL VariableGLOBAL in an enclosing program makes that variable visible to a nested program with it.PROGRAM-ID. Outer.WORKING-STORAGE SECTION.01 Not-Global PIC X.01 Is-Global原创 2016-10-19 22:51:27 · 962 阅读 · 0 评论 -
COBOL access record-sequential dataset sample
This is a serial code samples of how COBOL access datasetWrite Fixed-Length Record-Sequential Dataset IDENTIFICATION DIVISION. PROGRAM-ID. WRITEF16. ENVIRONMENT原创 2016-10-19 22:52:31 · 673 阅读 · 0 评论 -
COBOL access line-sequential dataset sample
This is a serial code samples of how COBOL access datasetLine-sequential is something like a record-sequential dataset, except there is no record header for variable length, and all record原创 2016-10-19 22:54:02 · 946 阅读 · 0 评论 -
COBOL access Relative dataset sample
This is a serial code samples of how COBOL access datasetWrite a Relative Dataset IDENTIFICATION DIVISION. PROGRAM-ID. WRITERELXF16. ENVIRONMENT DIVISION. INPUT-OUTP原创 2016-10-19 22:55:00 · 488 阅读 · 0 评论 -
COBOL access Index dataset sample
This is a serial code samples of how COBOL access datasetWrite an Index Dataset IDENTIFICATION DIVISION. PROGRAM-ID. WRITEINDEXV14. ENVIRONMENT DIVISION. INPUT-OUTPU原创 2016-10-19 22:55:45 · 750 阅读 · 0 评论 -
COBOL access Oracle database sample
This is a sample program how COBOL access Oracle database.Table DefinitionSQL> desc tab; Name Null? Type ----------------------------------------- ---原创 2016-10-19 22:56:50 · 657 阅读 · 0 评论 -
COBOL dynamic SQL access Oracle
Samples to execute dynamic SQL: EXEC SQL BEGIN DECLARE SECTION END-EXEC.01 DYNSTMT PIC X(1024).01 TABLENAME PIC X(100).01 ROWS-TO-INSERT PIC S9(4) COMP.01 TABLE-ROW. 03 S原创 2016-10-19 22:58:43 · 509 阅读 · 0 评论 -
COBOL array data insert into Oracle
Oracle procob support multi-row insert into database.-- WSS Definition --EXEC SQL BEGIN DECLARE SECTION END-EXEC. 01 ROWS-TO-INSERT PIC S9(4) COMP. * DEFINE DATA ROW原创 2016-10-20 21:37:10 · 490 阅读 · 0 评论 -
Micro Focus COBOL multi-thread programming
This is samples of Micro Focus support multi-thread programming.Step 1: Check multi-thread run-time systemCBL_THREAD_SELF API can be used to check whether multi-thread run-time ?原创 2016-10-20 21:42:13 · 687 阅读 · 0 评论 -
Micro Focus COBOL multi-thread solution
There are 4 solution to support multi-thread program; it's depend on customer's requirement which one can be used properly.(Details from MF document)To launch a multi-thread program, please us原创 2016-10-20 21:49:43 · 686 阅读 · 0 评论 -
Micro Focus mfsort command
Here describe the micro focus utility 'mfsort' usage, and give some samples:Command OptionsUsage: mfsort . . .原创 2016-10-20 21:54:36 · 1495 阅读 · 0 评论 -
COBOL access raw byte-stream dataset
This is a sample how COBOL access byte-stream file using Byte-stream File RoutinesCOBOL provide FD attribute to access well organized record files, however on modern operating system environment原创 2016-10-19 22:47:46 · 517 阅读 · 0 评论 -
COBOL call printf system library function
Inside cobol libc function such as printf can be called directlyPrint an integerTo print an integer in %d, or %x CALL "printf" USING "CONST INT=[%d, 0x%04x]%c"&x"00"原创 2016-10-19 22:46:29 · 786 阅读 · 0 评论 -
How C program call COBOL gnt program
DescriptionA sample of how C program call a COBOL program (COBOL program is compiled into .gnt format)1. C program is trying to read a record from a variable-length data set.2. COBOL gnt原创 2016-10-18 21:36:26 · 582 阅读 · 0 评论 -
Install procob for Oracle 11gR2
1. procob does not in the Oracle server installer, you must install Oracle client to get procob installed.2. procob does not installed by default, it must be selected explicit.Steps1. [原创 2016-10-18 21:37:52 · 794 阅读 · 0 评论 -
COBOL use timestamp
Display timestamp in COBOL.Program Sample: IDENTIFICATION DIVISION. PROGRAM-ID. TESTTIMESTAMP. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTI原创 2016-10-18 21:39:00 · 961 阅读 · 0 评论 -
procob handle array-type host variable
l Use select statement when we know the max rows will bereturned.WORKING-STORAGE SECTION.01 TABLE-ROWS . 03S-SEQ-NUM-S PIC S9(8) COMP-3 OCCURS 3 TIMES. 03S-NAME-S原创 2016-10-18 21:41:30 · 447 阅读 · 0 评论 -
COBOL data type buffer content
== BASIC VALUE == 01 BUFFER-X PIC X(5) MOVE "ABC" TO BUFFER-X. *>0x 41 42 43 20 20 = "ABC " MOVE "123" TO BUFFER-X. *>0x 31 32 33 20 20 = "123 " MOVE 123原创 2016-10-19 21:24:17 · 507 阅读 · 0 评论 -
COBOL parsing command-line options
Sample to parse command-line optionsCommand line option syntax: "ab:c:"- a: a switch option- b/c: has a option valueFor example:PROG -aPROG -b b_valuePROG -a -b b_value -c v_value.原创 2016-10-19 21:25:46 · 997 阅读 · 0 评论 -
COBOL EBCDIC ASCII transcoding
Usually we can use three solutions to transcode a EBCDIC to ASCII when rehost a mainframe dataset to an open system.1. using COBOL INSPECT command.2. using Intrinsic function ORD, and move cha原创 2016-10-19 22:36:39 · 768 阅读 · 0 评论 -
COBOL call C function
Give a sample on how COBOL call C function.Including:1. C function definition2. parameter passing, char * pointer, int, null pointer1. Define C function (myfun.c)void myfun(const uns原创 2016-10-19 22:40:09 · 1120 阅读 · 0 评论 -
COBOL PERFORM verb
PERFORM paragraph vs. PERFORM paragraph1 THRU paragraph2PERFORM paragraphTransfer control to paragraph, and transfer back when paragraph has finished to instruction immediately after the P原创 2016-10-19 22:41:09 · 1144 阅读 · 0 评论 -
COBOL OPEN AND CLOSED SUBROUTINES
COBOL supports open and closed subroutines.Open subroutinesThey are implemented using the first format of the PERFORM verb.For example:PERFORM SUBPREFORM....SUBPROFORM. COBOL-STATEM原创 2016-10-19 22:43:00 · 410 阅读 · 0 评论 -
COBOL GOBACK & STOP RUN & EXIT PROGRAM STATEMENT
There are 3 statements can be used to return from a program.1. STOP RUN2. GOBACK3. EXIT PROGRAMSTOP RUNStop run statement will stop the current program and give control back to O原创 2016-10-19 22:43:54 · 2721 阅读 · 0 评论 -
COBOL Linkage Section
Brief introduction of variables defined in Linkage SectionLinkage Section Variable LimitationsOnly 01 and 77 level variable is defined in Linkage-Section.All 01 and 77 level variable are allocat原创 2016-10-19 22:44:45 · 2364 阅读 · 0 评论 -
COBOL Pointer variable
How to define a pointer variableDefine a pointer variable in Working-Storage Section01 SILLY-POINTER USAGE IS POINTER.or01 POINTERS-AND-OTHER-STUFF. 05 S原创 2016-10-19 22:45:34 · 954 阅读 · 0 评论 -
COBOL Decimal Numbers
There are two type of formats for decimal numbers:1. Zoned Decimal2. Packed Decimal1. Zoned Decimal Numbers-- each byte present 1 numeric value.-- the sign mark is plac原创 2017-02-26 15:13:37 · 786 阅读 · 0 评论