随笔分类 -  JCL/COBOL/CICS/VSAM

摘要:XDC 阅读全文
posted @ 2019-06-20 11:58 kakaisgood 阅读(83) 评论(0) 推荐(0)
摘要:WRITE T AFTER ADVANCING 2 LINES 意思是“在前进两行之后打印T记录内容” (ADVANCING 和 LINE 字可省略) WRITE T BEFORE ADVANCING 2 LINES 意思是“前进两行之前记录T记录" 阅读全文
posted @ 2019-03-19 11:34 kakaisgood 阅读(347) 评论(0) 推荐(0)
摘要:The following COBOL program depicts the use of STRING DELIMITED BY SIZE IDENTIFICATION DIVISION. PROGRAM-ID. PGM040. AUTHOR. MAINFRAMEWIZARD. DATA DIV 阅读全文
posted @ 2019-03-13 15:20 kakaisgood 阅读(830) 评论(0) 推荐(0)
摘要://JOBCARD... //* * //* Alter GDG limit //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the approp 阅读全文
posted @ 2018-12-06 14:05 kakaisgood 阅读(156) 评论(0) 推荐(0)
摘要://JS001 EXEC PGM=SORT //* //SYSOUT DD SYSOUT=* //* //SORTIN DD * -190000 200 -200 /* //SORTOUT DD DSN=TEMP.TLM.FTBDATE.OUT, // DISP=(NEW,CATLG), // SP 阅读全文
posted @ 2018-11-26 17:52 kakaisgood 阅读(192) 评论(0) 推荐(0)
摘要:SORT FIELDS=COPY OUTREC FINDREP=(IN=X'05',OUT=X'40', STARTPOS=107,ENDPOS=204) SORT FIELDS=COPY OUTREC FINDREP=(IN=X'05',OUT=X'40', STARTPOS=107,ENDPOS 阅读全文
posted @ 2018-11-16 17:21 kakaisgood 阅读(183) 评论(0) 推荐(0)
摘要:Comp (Computational) Comp (with no suffix) leaves the choice of the data type to the compiler writer. The intent of this data type is to make it the m 阅读全文
posted @ 2018-10-29 15:21 kakaisgood 阅读(671) 评论(0) 推荐(0)
摘要:Take the compile listing for the program that has either OFFSET or LIST option selected. Use the OFFSET or LIST output to determine which line of the 阅读全文
posted @ 2018-10-10 10:12 kakaisgood 阅读(489) 评论(0) 推荐(0)
摘要:JCL: What is EXCP ? EXCP stands for EXecute Channel Program. These are the I/O subsystem hardware driverprograms that do the actual data transfer betw 阅读全文
posted @ 2018-10-08 16:12 kakaisgood 阅读(316) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2018-09-28 11:48 kakaisgood 阅读(269) 评论(0) 推荐(0)
摘要:Generally, the use of a table/array (Static Memory) is most common in COBOL modules in an application system. When a space abend (SOC4) occurs, due to 阅读全文
posted @ 2018-09-28 11:41 kakaisgood 阅读(473) 评论(0) 推荐(0)
摘要:COBOL的调用可以是静态调用(Static Call),这时,被调用的子程序必须与调用程序一起链接(link-edited)起来形成一个完整的装载模块(Load module),但子程序依然可以单独编译。这种方法会生成一个大的模块,同时也使得多个主程序调用同一个子程序时共享程序拷贝的愿望落空。 另外一种COBOL调用方法是动态调用(Dynamic CALL),这时,被调用的子程序必须编... 阅读全文
posted @ 2018-09-27 14:21 kakaisgood 阅读(877) 评论(0) 推荐(0)
摘要:Usually you have a requirement of removing the duplicate records from a file using SORT with the option SUM FIELDS=NONE If the requirement is to alway 阅读全文
posted @ 2018-08-17 14:14 kakaisgood 阅读(187) 评论(0) 推荐(0)
摘要:Lets say your packed data is at 10th column and is of length 6, S9(4)V99 You could try the following sample sort card SORT FIELDS=COPY OUTREC=(1,9,10, 阅读全文
posted @ 2018-07-12 16:11 kakaisgood 阅读(474) 评论(0) 推荐(0)
摘要:OPTION COPY OUTREC FINDREP=(INOUT=(X'0E',X'400E', X'0F',X'0F40')) 阅读全文
posted @ 2018-05-28 16:32 kakaisgood 阅读(207) 评论(0) 推荐(0)
摘要:arrange max-rc b owner 阅读全文
posted @ 2018-04-17 17:34 kakaisgood 阅读(161) 评论(0) 推荐(0)
摘要:1 Track = 48 KB1 Cylinder = 720 KBso 1 Cylinder = 15 TracksRead more: http://ibmmainframes.com/about17868.html#ixzz59X94vGFa 阅读全文
posted @ 2018-03-12 19:36 kakaisgood 阅读(248) 评论(0) 推荐(0)
摘要:"C" hex is positive, "D" hex is negative, and "F" hex is unsigned. 阅读全文
posted @ 2017-12-18 15:05 kakaisgood 阅读(624) 评论(0) 推荐(0)
摘要:use HDELETE to migration file deletion is good a choice.sample://STEP0010 EXEC PGM=IKJEFT01 //SYSOUT DD SYSOUT=* ... 阅读全文
posted @ 2015-11-04 18:09 kakaisgood 阅读(204) 评论(0) 推荐(0)