JohnArchieMckown
/ irrenv00.txt
Created
May 24, 2018 20:30
Output for IRRENV00 link problem during SMPE apply + LMOD XREF of same.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| z/OS V1 R12 BINDER 13:09:51 WEDNESDAY MAY 23, 2018 | |
| BATCH EMULATOR JOB(TSH009AP) STEP(STEP001 ) PGM= HEWLH096 | |
| IEW2278I B352 INVOCATION PARAMETERS - LIST,LET,XREF,RENT,CALL | |
| IEW2322I 1220 1 INCLUDE SMPWRK3(IRRDPR01) UA69229 SEQ # 000030 | |
| IEW2322I 1220 2 IDENTIFY IRRDPR01('UA69229') | |
| IEW2322I 1220 3 SETSSI 01119229 | |
| IEW2322I 1220 4 INCLUDE SMPWRK3(IRRPRE04) UA69990 | |
| IEW2322I 1220 5 IDENTIFY IRRPRE04('UA69990') | |
| IEW2322I 1220 6 SETSSI 01119990 |
JohnArchieMckown
/ iefprmlb.s
Last active
November 15, 2017 15:05
Example use of IEFPRMLB macro and using C I/O routines in HLASM on z/OS
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| *PROCESS ALIGN,COMPAT(MACROCASE,NOCASE),DXREF,FLAG(ALIGN,CONT,RECORD) | |
| *PROCESS NOFOLD,NOINFO,PC(ON,DATA,GEN,MCALL) | |
| *PROCESS RA2,NORLD,MXREF,RXREF,USING(MAP,WARN(13)) | |
| *WARNING - THIS PROGRAM REQUIRES THE HIGH-LEVEL ASSEMBLER | |
| * AS WELL AS LE/370 | |
| * THIS PROGRAM IS RE-ENTRANT. | |
| * THIS PROGRAM USES SOME C LANGUAGE SUBROUTINES | |
| PUSH PRINT | |
| PRINT NOGEN | |
| IEABRCX DEFINE |
JohnArchieMckown
/ cob-c.cbl
Created
April 10, 2017 18:58
Example static CALLs to C language sub-routines
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| PROCESS ADV,AWO,NOC(W),DATA(31),FSRT,FLAG(I,I) | |
| PROCESS INTDATE(ANSI),LANG(EN),LIB,LIST,MAP | |
| PROCESS NONUM,NUMPROC(PFD),OBJ,OPT(FULL),APOST | |
| PROCESS RENT,RMODE(AUTO),NOSEQ,SOURCE,NOSSRANGE, | |
| PROCESS NOTERM,TEST(NONE,NOSYM),TRUNC(BIN),VBREF, | |
| PROCESS XREF(FULL),ZWB,FASTSRT,AR(E) | |
| *PROCESS DYNAM <-- cannot use with C run-time | |
| * Be sure to use a "static" CALL for C run-time routines | |
| ID DIVISION. | |
| PROGRAM-ID. 'COB$C'. |
JohnArchieMckown
/ vbscopy2.s
Last active
March 21, 2017 22:07
VBSCOPY - copy VBS files, dropping any "broken" records.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| IAZYREG | |
| MACRO | |
| &LBL XPUT &DATA | |
| &LBL DS 0H | |
| MVC LINE+1(8),&DATA | |
| MVC LINE+10,PINREC | |
| OI LINE+10,X'F0' | |
| MVC LINE+12,INREC | |
| OI LINE+10,X'F0' | |
| PUT SYSPRINT,LINE |
JohnArchieMckown
/ DEFINES.REXX
Created
January 5, 2017 19:20
z/OS REXX program which can create IDCAMS input to recreate one or more specified VSAM data sets.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* REXX PROGRAM TO GENERATE IDCAMS DEFINE */ | |
| TRACE E | |
| DEFINED = "" | |
| RESTARTS = 0 | |
| DO FOREVER; | |
| EXITCODE = @MAIN() | |
| IF EXITCODE = 0 THEN LEAVE | |
| RESTARTS = RESTARTS+1 | |
| IF RESTARTS > 3 THEN LEAVE | |
| SAY '************ RESTART ***********' |
JohnArchieMckown
/ cblhdlr2.bin
Last active
August 9, 2016 14:59
Example combined LE condition handler and test program. For IBM z/OS Enterprise COBOL. Tested on z/OS 1.12, COBOL 3.4.1
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 000100 PROCESS LIB,QUOTE,NAME(ALIAS) 00010000 | |
| 000200************************************************* 00020000 | |
| 000300* * 00030000 | |
| 000400* IBM Language Environment for OS/390 & VM * 00040000 | |
| 000500* * 00050000 | |
| 000600* Licensed Materials - Property of IBM * 00060000 | |
| 000700* * 00070000 | |
| 000800* 5647-A01 5688-198 * 00080000 | |
| 000900* (C) Copyright IBM Corp. 1991, 1997 * 00090000 | |
| 001000* All Rights Reserved * 00100000 |
JohnArchieMckown
/ REGS.mac
Created
November 30, 2015 13:18
z/OS HLASM macro which has the "proper" register equates for the General Purpose and Address Registers.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| MACRO | |
| &LBL REGS | |
| AIF (D'R0).MEND | |
| R0 EQU 0,,,,GR | |
| R1 EQU 1,,,,GR | |
| R2 EQU 2,,,,GR | |
| R3 EQU 3,,,,GR | |
| R4 EQU 4,,,,GR | |
| R5 EQU 5,,,,GR | |
| R6 EQU 6,,,,GR |
JohnArchieMckown
/ git-binary-release.txt
Last active
September 10, 2015 13:19
How to use git to store binary data, such as a "release level" containing executables & other non-textual files
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| On Thu, 10 Sep 2015 00:23:09 -0700 (PDT) | |
| [email protected] wrote: | |
| > I'm very new to VCS and git, so I have some difficulties to use them. | |
| > | |
| > I'd like to use git for my embedded projects. I consider a must have | |
| > feature the possibility to retrieve the binary files of an old | |
| > release. In this way, I can reprogram a real device with EXACTLY the | |
| > same binary after some years since the release. | |
| > |
JohnArchieMckown
/ config
Created
September 8, 2015 12:54
git config example - disables compression on push
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| [core] | |
| repositoryformatversion = 0 | |
| filemode = true | |
| bare = false | |
| logallrefupdates = true | |
| compression = 0 | |
| looseCompression = 0 | |
| [pack] | |
| compression = 0 | |
| window = 0 |
JohnArchieMckown
/ IND$FILE
Last active
August 29, 2015 14:22
Example to wrap the 3270 file transfer program, IND$FILE, in another CSECT in order to: (1) make it run non-swappable (for speed) and (2) write the IND$FILE command to the z/OS SYSLOG for auditing / logging purposes.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| //IND$FILE JOB (H00000I),'IND$FILE', 00010000 | |
| // CLASS=Z, 00020000 | |
| // MSGCLASS=X, 00030000 | |
| // NOTIFY=&SYSUID 00040000 | |
| //STEP010 EXEC ASMACL,PARM.ASM='OBJECT,NODECK,BATCH' 00050000 | |
| //ASM.SYSLIB DD DSN=SYS1.MACLIB, 00060000 | |
| // DISP=SHR 00070007 | |
| // DD DSN=SYS1.MODGEN, 00080000 | |
| // DISP=SHR 00090007 | |
| //ASM.SYSIN DD * 00120000 |
NewerOlder