mainframe

0熱度

1回答

我想將mvs文件複製到我的PC ..我嘗試過使用下面的代碼。 //JOBNAME JOB NOTIFY=&SYSUID,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1), // REGION=0M //STEP01 EXEC PGM=FTP //OUTPUT DD SYSOUT=* //SY

0熱度

1回答

無法通過PUSH命令REXX

寫在文件超過8個字符我寫在其中，如果我找到一個線「C」然後我刪除C來自那裏，並追加到下一行10字符代碼在ps文件中。文件中的所有記錄除了一條記錄（可以是任何記錄）以外都有8個字符。下面是我輸入文件，在其中我更新： A2f6k1GG C B3g7l2HH C4h8m3II D5i9n4JJ 所需的輸出是： A2f6k1GG B3g7l2HH C C4h8m3II D5i9n4JJ

0熱度

1回答

cobol＆JCL刪除多餘的空格

我試圖接受來自jcl的輸入，例如'John Snow'並從我的cobol程序使用JUSTIFIED RIGHT VALUE SPACES運行它將字符串移動到右側，但是我需要刪除額外的空間使用我的cobol pgm。例如我的工作存儲是： 01 ALPHA-ITEM PIC X(50). 01 MOVE-ITEM REDEFINES ALPHA-ITEM PIC X(50). 0

0熱度

2回答

無論上一步的RC是什麼，我都想執行一個JCL步驟？

有我JCL 3個步驟：步驟1：過程第2步：NDM STEP 3：刪除輸出NDM 後，我要實現什麼目標？無論第2步的返回碼是什麼，我都想執行STEP 3。我試過這個： COND =（16，GT）和COND =（16，ST，STEP 2）但它沒有做我想做的事。

0熱度

1回答

使用Record Editor/Jrecord解壓縮COMP-3數字

我已經創建了基於cobol字帖的佈局。佈局快照：我試圖加載數據也選擇相同的佈局，它給了我一些列錯誤的結果。我嘗試使用所有二進制數字類型。 CLASS-ORDER-EDGE DIV-NO-EDG OFFICE-NO-EDG REG-AREA-NO-EDG CITY-NO-EDG 全國縣NO-EDG BILS-COUNT-EDG REV量電流EDG 用法-QTY-EDG GAS-CCF-EDG 結

-1熱度

2回答

ActiveX組件不能創建對象：PCOMM.autECLConnList

我想發送擊鍵正被使用PCOMM iSeries的仿真器相連的大型機應用程序自動化。我不確定我在這裏做錯了什麼，因爲相同的代碼在不同的機器上工作。以下是在構造中，工作機：視窗10的64位，32位Office 錯誤機：視窗7 64位，辦公室64位以下是密碼 On Error Resume Next Set autECLWinObj = CreateObject("PCOMM.autECL

1熱度

1回答

如何在Windows中爲Java程序模擬/測試大型機文件I/O（JZOS）？

在開發Java程序以讀取/處理&編寫大型機文件時，如何在開發人員本地環境（windows PC）中測試此文件I/O功能（使用JZOS實用程序）？有沒有辦法安全地模擬/測試的開發者的文件I/O功能當地的環境，而不是，每次代碼遷移到大型機和測試文件I/O功能的時間？

0熱度

2回答

如何在不損壞Java String的情況下存儲EBCDIC（IBM-1047）編碼文本？

我的java程序正在試圖讀取一個文本文件（主VSAM文件轉換爲平面文件）。我相信這意味着，文件以EBCDIC格式編碼。我正在使用com.ibm.jzos.FileFactory.newBufferedReader(fullyQualifiedFileName, ZFile.DEFAULT_EBCDIC_CODE_PAGE);來打開文件。並使用String inputLine = inputFi

0熱度

1回答

麻煩與py3270＆wc3270的Windows Server

我從Linux ENV遷移到Windows上。我的腳本中的一個經由c3270利用py3270到終端自動化。我已經安裝在這裏找到了wc3270設置：http://x3270.bgp.nu/WindowsInstall.html 成功： PIP安裝py3270 我想這個測試腳本只是把事情的工作： from py3270 import * import sys, os host = "tn32

1熱度

1回答

COBOL和HLASM（程序集）之間的連接超過32K字節

我需要實現一個Assembly模塊來讀取JCL中通知的任何文件（F，FB，V，VB）。這個模塊在我的COBOL程序中被調用。我已經設法實現了打開，讀取和關閉功能。鍵聯是這樣的： 01 LNK-MOD. 05 LNK-MOD-OPTION PIC X(01) VALUE SPACE. 05 LNK-MOD-STATUS PIC X(01) VALUE SPACE.