Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AIBCVTC

Package: IBM DDPS Record Consolidation

Global: ^AIBCVTC

Information

FileMan FileNo	FileMan Filename	Package
9002140	DPS IBM RECORD CONTROL	IBM DDPS Record Consolidation

Description

Directly Accessed By Routines, Total: 1

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	SYSTEM NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `ANSWER WITH NAME OF DDPS SYSTEM RECORDS ARE TO BE FORMATTED FOR` CROSS-REFERENCE: `9002140^B` 1)= S ^AIBCVTC("B",$E(X,1,30),DA)="" 2)= K ^AIBCVTC("B",$E(X,1,30),DA)
1	GLOBAL NAME PREFIX	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4) X` HELP-PROMPT: `ANSWER MUST BE FIRST FOUR LETTERS OF THE GLOBAL TO BE READ` CROSS-REFERENCE: `9002140^C` 1)= S ^AIBCVTC("C",$E(X,1,30),DA)="" 2)= K ^AIBCVTC("C",$E(X,1,30),DA)
2	UNIX RECORDS FILE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE THE FILE NAME WHICH WILL BE WRITTEN TO UNIX`
3	NODE COUNT		COMPUTED	MUMPS CODE: `X ^DD(9002140,3,9.3) S X=+Y(9002140,3,102) S D0=Y(9002140,3,80) S D1=Y(9002140,3,81)` 9.2 = S Y(9002140,3,80)=$S($D(D0):D0,1:""),Y(9002140,3,81)=$S($D(D1):D1,1:""),Y(9002140,3,102)="" 9.3 = X ^DD(9002140,3,9.2) X "F D1=0:0 S D1=$N(^AIBCVTC(D0,1,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""")'?."" "" Y(9002140,3,102)=Y(9002140,3,102)+1" S D(1)=D1 ALGORITHM: `COUNT(NODES)`
3.5	SECONDARY SYSTEM	0;4	POINTER TO DPS IBM RECORD CONTROL FILE (#9002140)	DPS IBM RECORD CONTROL(#9002140) HELP-PROMPT: `ENTER SYSTEM WHO'S RECORDS MAY ALSO BE CONTAINED IN THIS SYSTEM'S GLOBAL`
4	NODES	1;0	Multiple #9002140.04	9002140.04
5	JCL	0;5	POINTER TO DPS IBM RJE JOB FILE (#9002141)	**********************REQUIRED FIELD********************** DPS IBM RJE JOB(#9002141) HELP-PROMPT: `ENTER IBM JOB TO BE EXECUTED WHEN DATA IS SENT TO MAINFRAME`
6	BYSYNC CARD COUNT		COMPUTED	MUMPS CODE: `X ^DD(9002140,6,9.3) S X=+Y(9002140,6,102) S D0=Y(9002140,6,80) S D1=Y(9002140,6,81) S X=$J(X,0,0)` 9.2 = S Y(9002140,6,80)=$S($D(D0):D0,1:""),Y(9002140,6,81)=$S($D(D1):D1,1:""),Y(9002140,6,102)="" 9.3 = X ^DD(9002140,6,9.2) X "F D1=0:0 S D1=$N(^AIBCVTC(D0,2,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""")'?."" "" Y(9002140,6,102)=Y(9002140,6,102)+1" S D(1)=D1 ALGORITHM: `COUNT(BYSYNC C) (ALWAYS 0 DECIMAL DIGITS)`
7	BYSYNC CARDS	2;0	Multiple #9002140.07	9002140.07

Info | Desc | Directly Accessed By Routines | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All