mainframe

0熱度

1回答

我需要爲PS文件中的每位員工過濾最新記錄。我如何使用DFSORT實現這一點？ PS文件記錄爲員工id（6位數字）和日期（8位數字）。我需要過濾每個員工的最新紀錄保持原來爲了讓員工出現在例如： I/P文件： 10000120150101 10000320130101 10000120160101 10000220170101 10000220160101 10000320160101

2熱度

1回答

在主機中使用DFSORT實用程序的乘法除法

有兩個文件FILE1.DATA和FILE2.DATA 使用主機中的DFSORT計算百分比（FILE1中的記錄數/ FILE2中的記錄數）* 100。如果超過閾值（90％），則設置返回碼。 //********Extracting Unique records data***************** //SORTT000 EXEC PGM=SORT //SYSOUT DD SYSOUT=*

0熱度

1回答

在存儲過程中將數字轉換爲壓縮十進制

我正在構建本機存儲過程..其中一個字段是通過組合（連接）5個值派生的。這5個值中有3個是字符字段，2個是壓縮十進制數。在我寫入表格之前，我需要將它們合併到一個字段中。我不知道如何將任何數字轉換爲SP中的壓縮十進制（COMP-3等效的COBOL）。我試過DEC（）函數，但它沒有給出預期的結果。我使用的是DB2 V11 請讓我知道，如果有任何其他的方法.. 謝謝..

0熱度

1回答

適配器/方法連接到node.js中的大型機api

我需要從網頁/瀏覽器訪問大型機API。大型機API可供網絡服務器訪問，但不會暴露給網絡。 API每個數據包返回40000字節的數據，它使用CICS.LU6.2協議。我打算在linux上開發一個node.js服務器以將大型機API暴露給網絡，即將其設置爲「web API」，以便它可以與angular.js一起用於開發網站。我沒有找到任何適配器/方法連接到node.js中的大型機API。

1熱度

1回答

PL/I＆不打印在標籤停止

我有以下的PL/I代碼： declare 1 u union, 2 c character(1), 2 ci fixed binary(4) unsigned; ci = data_mem(data_ptr); put list (c); 這個做什麼，是它需要一個整數，輸出的是，如果它是一個ASCII/EBCDIC值。所以它顯示字符。沙發這個作品。

-1熱度

1回答

EBCDIC to ASCII not working正常

我必須處理來自大型機的文件。文件中有一些非拉丁文文本。我必須爲某些無效字符處理這些非拉丁字符。由於大型機以EBCDIC格式對數據進行編碼，因此我必須將其轉換爲ASCII才能進行驗證。我用this代碼將EBCDIC轉換爲ASCII。但是當我執行樣本輸入程序時，我得到Hello there]而不是Hello there!。我也檢查了樣本輸入與EBCDICtable。我還使用this生成了查找表。

0熱度

1回答

COBOL中用法COMP的變量

我想了解COMP用法子句中的COBOL變量如何存儲值。我試圖一例如下 01 VAR14 PIC S9(5) USAGE COMP. MOVE 12345 TO VAR14 DISPLAY VAR14 在SPOOL的VAR14值來作爲0000。 S9(5) COMP根據手冊大小是4個字節，所以我的理解是VAR14應顯示爲000。二進制表示如下： 0000 0000

-1熱度

1回答

擴展VSAM分配

我的任務是要求一個超過4GB限制的VSAM文件的項目。我正在嘗試使用IDCAM定義擴展的VSAM，但我找不到幫助我的示例或指南。這是我如何定義一個普通VSAM： //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD* DEFINE CLUSTER - (NAME(AA.AFILE.AV) -

-1熱度

2回答

邏輯

我無法理解什麼是這些線背後的邏輯： COMPUTE temp = RESULT - 1.843E19. IF temp IS LESS THAN 1.0E16 THEN 數據定義： 000330 01 VAR1 COMP-1 VALUE 3.4E38. // 3.4 x 10^38 以下是在上下文中的線（子程序返回平方根）： MOVE VAR1 TO PARM1.

0熱度

1回答

FTP到/從Windows 8到z/OS失敗，並顯示「無法打開數據連接」

有沒有人在z/OS系統（運行z/OS V1.13或V2.2）和Windows 8.1 Enterprise機器嗎？我們以前在XP下沒有任何問題，但是隨後我們的XP桌面被替換爲運行Windows 8的筆記本電腦，並且FTP不再起作用。當從Windows Shell聲明FTP會話時，我可以登錄到大型機，但不能再訪問任何文件。我們與我們的桌面支持團隊一起提出了一張票，認爲可能是以前在XP下打開的FT