随笔分类 - JCL/COBOL/CICS/VSAM
摘要:WRITE T AFTER ADVANCING 2 LINES 意思是“在前进两行之后打印T记录内容” (ADVANCING 和 LINE 字可省略) WRITE T BEFORE ADVANCING 2 LINES 意思是“前进两行之前记录T记录"
阅读全文
摘要:The following COBOL program depicts the use of STRING DELIMITED BY SIZE IDENTIFICATION DIVISION. PROGRAM-ID. PGM040. AUTHOR. MAINFRAMEWIZARD. DATA DIV
阅读全文
摘要://JOBCARD... //* * //* Alter GDG limit //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the approp
阅读全文
摘要://JS001 EXEC PGM=SORT //* //SYSOUT DD SYSOUT=* //* //SORTIN DD * -190000 200 -200 /* //SORTOUT DD DSN=TEMP.TLM.FTBDATE.OUT, // DISP=(NEW,CATLG), // SP
阅读全文
摘要: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
阅读全文
摘要: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
阅读全文
摘要: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
阅读全文
摘要: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
阅读全文
摘要: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
阅读全文
摘要:COBOL的调用可以是静态调用(Static Call),这时,被调用的子程序必须与调用程序一起链接(link-edited)起来形成一个完整的装载模块(Load module),但子程序依然可以单独编译。这种方法会生成一个大的模块,同时也使得多个主程序调用同一个子程序时共享程序拷贝的愿望落空。 另外一种COBOL调用方法是动态调用(Dynamic CALL),这时,被调用的子程序必须编...
阅读全文
摘要: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
阅读全文
摘要: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,
阅读全文
摘要:OPTION COPY OUTREC FINDREP=(INOUT=(X'0E',X'400E', X'0F',X'0F40'))
阅读全文
摘要:1 Track = 48 KB1 Cylinder = 720 KBso 1 Cylinder = 15 TracksRead more: http://ibmmainframes.com/about17868.html#ixzz59X94vGFa
阅读全文
摘要:"C" hex is positive, "D" hex is negative, and "F" hex is unsigned.
阅读全文
摘要:use HDELETE to migration file deletion is good a choice.sample://STEP0010 EXEC PGM=IKJEFT01 //SYSOUT DD SYSOUT=* ...
阅读全文

浙公网安备 33010602011771号