Common COMBPFS

0 Modifications
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.combpfs +++|
00002  M01S00002.combpfs +++|                                                                      #
00003  M01S00003.combpfs +++|          CTEXT COMBPFS - *PF* ROUTINE RETURN CODE STATUS.
00004  M01S00004.combpfs +++|                                                                      #
00005  M01S00005.combpfs +++|
00006  M01S00006.combpfs +++|                                               CONTROL NOLIST;
00007  M01S00007.combpfs +++|                                               CONTROL IFEQ LISTCON,1;
00008  M01S00008.combpfs +++|                                               CONTROL LIST;
00009  M01S00009.combpfs +++|                                               CONTROL FI;
00010  M01S00010.combpfs +++|
00011  M01S00011.combpfs +++|                             BEGIN  # COMBPFS #
00012  M01S00012.combpfs +++|
00013  M01S00013.combpfs +++|                                                                      #
00014  M01S00014.combpfs +++|
00015  M01S00015.combpfs +++|***       COMBPFS - *PF* ROUTINE RETURN CODE STATUS.
00016  M01S00016.combpfs +++|*
00017  M01S00017.combpfs +++|*         *COMBPFS* CONTAINS A STATUS WORD FOR THE *PF* ROUTINE IN
00018  M01S00018.combpfs +++|*         *CPUREL* TO RETURN AN ERROR CODE TO.  THIS STATUS WORD
00019  M01S00019.combpfs +++|*         MUST BE USED BY ALL *SSEXEC* ROUTINES THAT USE THE
00020  M01S00020.combpfs +++|*         ROUTINE *PFD*, WHICH INTERFACES TO THE *PF* ROUTINE.
00021  M01S00021.combpfs +++|
00022  M01S00022.combpfs +++|          USE    /APFSCOM/
00023  M01S00023.combpfs +++| PFSTAT   BSS    1
00024  M01S00024.combpfs +++|          USE
00025  M01S00025.combpfs +++|          COL    12
00026  M01S00026.combpfs +++|                                                                      #
00027  M01S00027.combpfs +++|
00028  M01S00028.combpfs +++|           COMMON APFSCOM;
00029  M01S00029.combpfs +++|             BEGIN  # APFSCOM #
00030  M01S00030.combpfs +++|             ITEM PFSTAT     I;      # *PF* RETURN CODE STATUS #
00031  M01S00031.combpfs +++|             END  # APFSCOM #
00032  M01S00032.combpfs +++|
00033  M01S00033.combpfs +++|           END  # COMBPFS #
00034  M01S00034.combpfs +++|
00035  M01S00035.combpfs +++|                                                                      #
00036  M01S00036.combpfs +++|          COL    30
00037  M01S00037.combpfs +++|          ENDX
00038  M01S00038.combpfs +++|                                                                      #
00039  M01S00039.combpfs +++|
00040  M01S00040.combpfs +++|                                               CONTROL LIST;